字符串截取的方法

  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