中文汉字到URL编码的转换
来源:互联网 发布:网址制作软件 编辑:程序博客网 时间:2024/04/30 19:41
对于使用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
- 中文汉字到URL编码的转换
- URL 汉字转换编码
- URL地址中汉字的编码转换
- URL 汉字转换编码1
- url中文编码转换
- url编码转汉字 json编码转换
- iOS中 url带汉字时的编码转换
- 对有中文的URL进行URL编码转换
- URL中汉字和utf编码转换
- Java将汉字转换成URL编码
- 怎么把汉字转换成URL编码
- Python中文转换url编码
- python中文转换url编码
- python中文转换url编码
- 中文与url编码转换
- linux 下URL中 UTF-8编码、GB2312编码与汉字之间的转换
- Python 中文转换url编码的实际操作步骤介绍
- java实现url编码与中文的互相转换
- 上传图片 并生成缩略图 并添加文字水印
- 在ASP.NET中上传图片并生成缩略图
- SqlHelper:
- 指定下标删除 vector 中的元素
- 回帖参与国是:鼠标和键盘就是手中仅有的一点权力
- 中文汉字到URL编码的转换
- vs 2005 恢复初始设置
- Hibernate annotations 入门
- PHPer如何找工作
- ASP.NET中引用dll“找不到指定模块"的完美解决办法 -=--转
- 美伊战争小学版
- OLEDB SqlHelper
- 遍历页面上的所有控件
- 对于javascript的function的总结