utf-8 to Chinese 

Option Explicit 

'API declartion 
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long 
Public Const CP_UTF8 = 65001 

'Decode the utf-8 text to Chinese 
Public Function UTF8_Decode(bUTF8() As Byte) As String 
    Dim lRet As Long 
    Dim lLen As Long 
    Dim lBufferSize As Long 
    Dim sBuffer As String 

    lLen = UBound(bUTF8) + 1 

    If lLen = 0 Then Exit Function 

    lBufferSize = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, 0, 0) 

    sBuffer = String$(lBufferSize, Chr(0)) 

    lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize) 

    UTF8_Decode = sBuffer 
End Function

文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=366
Tags: