vb 读取html 乱码,如何解决 VB 获取UTF8 显示乱码的問題

'-----------UTF8转Unicode编码

Private Declare Function MultiByteToWideChar Lib kernel32 (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 = 65001

'Purpose:Convert Utf8 to Unicode

Public Function UTF8_Decode(ByVal sUTF8 As String) As String

Dim lngUtf8Size As Long

Dim strBuffer As String

Dim lngBufferSize As Long

Dim lngResult As Long

Dim bytUtf8() As Byte

Dim n As Long

If LenB(sUTF8) = 0 Then Exit Function

On Error GoTo EndFunction

bytUtf8 = StrConv(sUTF8, vbFromUnicode)

lngUtf8Size = UBound(bytUtf8) + 1

On Error GoTo 0

lngBufferSize = lngUtf8Size * 2

strBuffer = String$(lngBufferSize, vbNullChar)

'Translate using code page 65001(UTF-8)

lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _

lngUtf8Size, StrPtr(strBuffer), lngBufferSize)

'Trim result to actual length

If lngResult Then

UTF8_Decode = Left$(strBuffer, lngResult)

End If

EndFunction:

End Function

'把你上面获取的内容转一下就行，比如Text1.Text=UTF8_Decode(strResponse)

还可以加多一句InStr(1, strResponse, charset=utf-8) 0判断是否是UTF8编码再执行，不是UTF8的就直接显示。 还有些网页编码那里是大写的，要这样写InStr(1, strResponse, charset=UTF-8) 0

取消

评论