vb读取到的角色名是utf8编码的 显示乱码

fullpolo

vb读取到的角色名是utf8编码的 显示乱码
有大牛知道怎么转换成u码的么？

雨夜

1. 
   
2. Function Utf8ToUnicode(ByRef Utf() As Byte) As String
   
3.     Dim lRet As Long
   
4.     Dim lLength As Long
   
5.     Dim lBufferSize As Long
   
6.     lLength = UBound(Utf) - LBound(Utf) + 1
   
7.     If lLength <= 0 Then Exit Function
   
8.     lBufferSize = lLength * 2
   
9.     Utf8ToUnicode = String$(lBufferSize, Chr(0))
   
10.     lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(LBound(Utf))), lLength, StrPtr(Utf8ToUnicode), lBufferSize)
    
11.     If lRet <> 0 Then
    
12.         Utf8ToUnicode = Left(Utf8ToUnicode, lRet)
    
13.     End If
    
14. End Function
    
15. 
    
16. 
    
17. Function UnicodeToUtf8(ByVal UCS As String) As Byte()
    
18.     Dim lLength As Long
    
19.     Dim lBufferSize As Long
    
20.     Dim lResult As Long
    
21.     Dim abUTF8() As Byte
    
22.     lLength = Len(UCS)
    
23.     If lLength = 0 Then Exit Function
    
24.     lBufferSize = lLength * 3 + 1
    
25.     ReDim abUTF8(lBufferSize - 1)
    
26.     lResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UCS), lLength, abUTF8(0), lBufferSize, vbNullString, 0)
    
27.     If lResult <> 0 Then
    
28.     lResult = lResult - 1
    
29.     ReDim Preserve abUTF8(lResult)
    
30.     UnicodeToUtf8 = abUTF8
    
31.     End If
    
32. End Function
    

复制代码