字符串截取的方法

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

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

Public Shared Function MidB()Function MidB(ByVal nTarget 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 bBytes As Byte() = hEncoding.GetBytes(nTarget)
            Return hEncoding.GetString(bBytes, iStart - 1, iByteSize)
        End Function

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