[VB6→VB.NET] 문자열 변환

1. 현재 날짜
[VB6]
TextBox1.Text = Format(Now, "yyyy/mm/dd")

[VB.NET] 자동변환
TextBox1.Text = String.Format(Now, "yyyy/mm/dd")
문제점 → 시분초까지 표시됨

[VB.NET] 수정
TextBox1.Text = Now.ToString("yyyy/MM/dd")
주의 → MM을 mm으로 표시하면 그대로 분이 출력됨

2. LeftB, MidB, RightB
선언

 Public Class VBStrings

        Public Shared Function LeftB(ByVal stTarget As String, ByVal iByteSize As Integer) As String
            Return MidB(stTarget, 1, iByteSize)
        End Function

        Public Shared Function MidB(ByVal stTarget As String, ByVal iStart As Integer) As String
            Dim hEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
            Dim btBytes As Byte() = hEncoding.GetBytes(stTarget)
            Return hEncoding.GetString(btBytes, iStart - 1, btBytes.Length - iStart + 1)
        End Function

        Public Shared Function MidB _
        (ByVal stTarget As String, ByVal iStart As Integer, ByVal iByteSize As Integer) As String
            Dim hEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
            Dim btBytes As Byte() = hEncoding.GetBytes(stTarget)
            Return hEncoding.GetString(btBytes, iStart - 1, iByteSize)
        End Function

        Public Shared Function RightB(ByVal stTarget As String, ByVal iByteSize As Integer) As String
            Dim hEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS")
            Dim btBytes As Byte() = hEncoding.GetBytes(stTarget)
            Return hEncoding.GetString(btBytes, btBytes.Length - iByteSize, iByteSize)
        End Function

    End Class

사용예

    Dim stTarget As String = "ＡBＣDＥF"

    MessageBox.Show(VBStrings.LeftB(stTarget, 6))        'ＡBＣD

    MessageBox.Show(VBStrings.MidB(stTarget, 4))         'ＣDＥF

    MessageBox.Show(VBStrings.MidB(stTarget, 4, 5))      'ＣDＥ

    MessageBox.Show(VBStrings.RightB(stTarget, 3))       'ＥF

3. LenB
선언

Public Class VBStrings

    Public Shared Function LenB(ByVal stTarget As String) As Integer
        Return System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(stTarget)
    End Function

End Class

사용예

    MessageBox.Show(VBStrings.LenB("あいうabc"))  '9