UTF-8字符转换为Gb2312的汉字

发布网友发布时间：2022-05-01 08:38

共2个回答

热心网友时间：2022-04-20 10:35

　　对于使用UTF-8的Google搜索引擎来说，使用Google搜索“汉字”会变成http://www.google.com/search?q=%E6%B1%89%E5%AD%97 ，而对于使用GB2312的百度搜索引擎来说，使用百度搜索“汉字”会变成另外的 http://www.baidu.com/s?wd=%BA%BA%D7%D6 。下面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。
　　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

热心网友时间：2022-04-20 11:53

答案:张波

UTF-8编码的"=E5=BC=A0=E6=B3=A2"代表的"张波"

方法:将"="改为"%"放到Google的查询url的"q="后面.
即:
http://www.google.cn/search?client=aff-cs-maxthon&forid=1&ie=utf-8&oe=UTF-8&hl=zh-CN&q=%E5%BC%A0%E6%B3%A2
在google的搜索框中就会出现"张波".

原理:Google的url编码采用的是UTF-8."=E5=BC=AO=E6=B3=A2"就是十六进制表示的汉字.

要是回答的内容有问题，或认为不妥，请发送百度消息给我，消息内容加上本页网址哦。。

·