android gb2312 utf-8,求助，pb的字符串GB2312转utf-8代码

满意答案

Private Sub command1_click()

Debug.Print (UTF8EncodeURI("汉字"))

Debug.Print (GBKEncodeURI("汉字"))

End Sub

Function UTF8EncodeURI(szInput)

Dim wch, uch, szRet

Dim x

Dim nAsc, nAsc2, nAsc3

If szInput = "" Then

UTF8EncodeURI = szInput

Exit Function

End If

For x = 1 To Len(szInput)

wch = Mid(szInput, x, 1)

nAsc = AscW(wch)

If nAsc < 0 Then nAsc = nAsc + 65536

If (nAsc And &HFF80) = 0 Then

szRet = szRet & wch

Else

If (nAsc And &HF000) = 0 Then

uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

Else

uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _

Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _

Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

End If

End If

Next

UTF8EncodeURI = szRet

End Function

Function GBKEncodeURI(szInput)

Dim i As Long

Dim x() As Byte

Dim szRet As String

szRet = ""

x = StrConv(szInput, vbFromUnicode)

For i = LBound(x) To UBound(x)

szRet = szRet & "%" & Hex(x(i))

Next

GBKEncodeURI = szRet

End Function

00分享举报