把UTF8字符串转换为VB6的字符串

testid

找了很久才找到的来自https://www.0xaa55.com/thread-10972-1-1.html

1. Private Function utf8toString(utf8byte() As Byte) As String
   
2. Dim I&
   
3. Dim charcode As Long
   
4. Dim cb As Long
   
5. cb = UBound(utf8byte) + 1
   
6. 
   
7. Do While I < cb
   
8.     If (utf8byte(I) And &HFE) = &HFC& Then '1111110x
   
9.         If I + 6 <= cb Then
   
10.             charcode = _
    
11.                 ((utf8byte(I + 0) And &H1&) * &H40000000) Or _
    
12.                 ((utf8byte(I + 1) And &H3F&) * &H1000000) Or _
    
13.                 ((utf8byte(I + 2) And &H3F&) * &H40000) Or _
    
14.                 ((utf8byte(I + 3) And &H3F&) * &H1000&) Or _
    
15.                 ((utf8byte(I + 4) And &H3F&) * &H40&) Or _
    
16.                 ((utf8byte(I + 5) And &H3F&))
    
17.             I = I + 6
    
18.         Else
    
19.             Exit Do
    
20.         End If
    
21.     ElseIf (utf8byte(I) And &HFC) = &HF8& Then '111110xx
    
22.         If I + 5 <= cb Then
    
23.             charcode = _
    
24.                 ((utf8byte(I + 0) And &H3&) * &H1000000) Or _
    
25.                 ((utf8byte(I + 1) And &H3F&) * &H40000) Or _
    
26.                 ((utf8byte(I + 2) And &H3F&) * &H1000&) Or _
    
27.                 ((utf8byte(I + 3) And &H3F&) * &H40&) Or _
    
28.                 ((utf8byte(I + 4) And &H3F&))
    
29.             I = I + 5
    
30.         Else
    
31.             Exit Do
    
32.         End If
    
33.     ElseIf (utf8byte(I) And &HF8) = &HF0& Then '11110xxx
    
34.         If I + 4 <= cb Then
    
35.             charcode = _
    
36.                 ((utf8byte(I + 0) And &H7&) * &H40000) Or _
    
37.                 ((utf8byte(I + 1) And &H3F&) * &H1000&) Or _
    
38.                 ((utf8byte(I + 2) And &H3F&) * &H40&) Or _
    
39.                 ((utf8byte(I + 3) And &H3F&))
    
40.             I = I + 4
    
41.         Else
    
42.             Exit Do
    
43.         End If
    
44.     ElseIf (utf8byte(I) And &HF0) = &HE0& Then '1110xxxx
    
45.         If I + 3 <= cb Then
    
46.             charcode = _
    
47.                 ((utf8byte(I + 0) And &HF&) * &H1000&) Or _
    
48.                 ((utf8byte(I + 1) And &H3F&) * &H40&) Or _
    
49.                 ((utf8byte(I + 2) And &H3F&))
    
50.             I = I + 3
    
51.         Else
    
52.             Exit Do
    
53.         End If
    
54.     ElseIf (utf8byte(I) And &HE0) = &HC0& Then '110xxxxx
    
55.         If I + 2 <= cb Then
    
56.             charcode = _
    
57.                 ((utf8byte(I + 0) And &H1F&) * &H40&) Or _
    
58.                 ((utf8byte(I + 1) And &H3F&))
    
59.             I = I + 2
    
60.         Else
    
61.             Exit Do
    
62.         End If
    
63.     ElseIf (utf8byte(I) And &HC0) = &H80& Then '10xxxxxx
    
64.         '遇到高2位是10的字符，这是不应该出现的。
    
65.         Exit Do
    
66.     ElseIf (utf8byte(I) And &H80) = &H0& Then  '&Hxxxxxx
    
67.         charcode = utf8byte(I) And &H7F
    
68.         I = I + 1
    
69.     Else
    
70.         Exit Do
    
71.     End If
    
72.     utf8toString = utf8toString & ChrW(charcode)
    
73. Loop
    
74. End Function

复制代码