VB.NET按位截取

 

        Public Function GetBytesSubChar(ByVal s As String, ByVal CharCount As Integer) As String
            Dim strRtn As String = ""
            Dim bytArray() As Byte
            Dim chrArray() As Char
            Dim intI As Integer
            bytArray = System.Text.Encoding.Default.GetBytes(s)
            If CharCount > System.Text.Encoding.Default.GetCharCount(bytArray) Then
                strRtn = s
            Else
                chrArray = System.Text.Encoding.Default.GetChars(bytArray, 0, CharCount)
                For intI = 0 To chrArray.Length - 1
                    strRtn = strRtn & chrArray(intI)
                Next
            End If
            Return strRtn
        End Function