VB按字节截取字符串

最新推荐文章于 2022-07-26 16:19:54 发布

转载最新推荐文章于 2022-07-26 16:19:54 发布 · 462 阅读

内容绝大部分来自互联网，出处请百度。

全角半角皆适用

 1     Public Function bSubstring(ByVal s As String, ByVal length As Integer) As String
 2         Dim bytes As Byte() = Text.Encoding.Unicode.GetBytes(s)
 3         
 4 
 5         Dim n As Integer = 0
 6        
 7     Dim i As Integer = 0
 8         
 9      While i < bytes.GetLength(0) AndAlso n < length
10 
11             If i And 1 = 0 Then
12                 n += 1
13             Else
14                 If bytes(i) > 0 Then
15                     n += 1
16                 End If
17             End If
18             i += 1
19         End While
20 
21         If i Mod 2 = 1 Then
22             If bytes(i) > 0 Then
23                 i = i - 1
24             Else
25                 i = i + 1
26             End If
27         End If
28         Return System.Text.Encoding.Unicode.GetString(bytes, 0, i)
29     End Function