VB UTF-8 URL编码函数

最新推荐文章于 2018-08-11 13:19:52 发布

miaozk2006

最新推荐文章于 2018-08-11 13:19:52 发布

阅读量584

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82417048

版权

这是一个VB函数，用于实现UTF-8编码的URL编码。代码通过遍历输入字符串，根据Unicode值进行不同方式的编码，生成符合URL规范的编码结果。此函数适用于需要对包含非ASCII字符的字符串进行URL编码的场景。

摘要由CSDN通过智能技术生成

代码如下：

Public Function UTF8_URLEncoding(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
UTF8_URLEncoding = 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
UTF8_URLEncoding = szRet
End Function