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

testid · 发表于 2018-9-3 18:37:29

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

Private Function utf8toString(utf8byte() As Byte) As String
Dim I&
Dim charcode As Long
Dim cb As Long
cb = UBound(utf8byte) + 1
Do While I < cb
If (utf8byte(I) And &HFE) = &HFC& Then '1111110x
If I + 6 <= cb Then
charcode = _
((utf8byte(I + 0) And &H1&) * &H40000000) Or _
((utf8byte(I + 1) And &H3F&) * &H1000000) Or _
((utf8byte(I + 2) And &H3F&) * &H40000) Or _
((utf8byte(I + 3) And &H3F&) * &H1000&) Or _
((utf8byte(I + 4) And &H3F&) * &H40&) Or _
((utf8byte(I + 5) And &H3F&))
I = I + 6
Else
Exit Do
End If
ElseIf (utf8byte(I) And &HFC) = &HF8& Then '111110xx
If I + 5 <= cb Then
charcode = _
((utf8byte(I + 0) And &H3&) * &H1000000) Or _
((utf8byte(I + 1) And &H3F&) * &H40000) Or _
((utf8byte(I + 2) And &H3F&) * &H1000&) Or _
((utf8byte(I + 3) And &H3F&) * &H40&) Or _
((utf8byte(I + 4) And &H3F&))
I = I + 5
Else
Exit Do
End If
ElseIf (utf8byte(I) And &HF8) = &HF0& Then '11110xxx
If I + 4 <= cb Then
charcode = _
((utf8byte(I + 0) And &H7&) * &H40000) Or _
((utf8byte(I + 1) And &H3F&) * &H1000&) Or _
((utf8byte(I + 2) And &H3F&) * &H40&) Or _
((utf8byte(I + 3) And &H3F&))
I = I + 4
Else
Exit Do
End If
ElseIf (utf8byte(I) And &HF0) = &HE0& Then '1110xxxx
If I + 3 <= cb Then
charcode = _
((utf8byte(I + 0) And &HF&) * &H1000&) Or _
((utf8byte(I + 1) And &H3F&) * &H40&) Or _
((utf8byte(I + 2) And &H3F&))
I = I + 3
Else
Exit Do
End If
ElseIf (utf8byte(I) And &HE0) = &HC0& Then '110xxxxx
If I + 2 <= cb Then
charcode = _
((utf8byte(I + 0) And &H1F&) * &H40&) Or _
((utf8byte(I + 1) And &H3F&))
I = I + 2
Else
Exit Do
End If
ElseIf (utf8byte(I) And &HC0) = &H80& Then '10xxxxxx
'遇到高2位是10的字符，这是不应该出现的。
Exit Do
ElseIf (utf8byte(I) And &H80) = &H0& Then '&Hxxxxxx
charcode = utf8byte(I) And &H7F
I = I + 1
Else
Exit Do
End If
utf8toString = utf8toString & ChrW(charcode)
Loop
End Function

复制代码

帐号		自动登录	找回密码
密码			加入我们

[其它源码] 把UTF8字符串转换为VB6的字符串