VB生成UTF-8的URL编码

最新推荐文章于 2022-03-27 16:37:05 发布

weixin_34216036

最新推荐文章于 2022-03-27 16:37:05 发布

阅读量278

点赞数

本文介绍了一种将GB编码转换为UTF8编码的VBScript函数实现。该函数通过判断输入字符的ASCII值来决定是否进行转换及如何转换，并最终返回转换后的UTF8字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function GBtoUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3

'如果输入参数为空，则退出函数
If szInput = "" Then
GBtoUTF8 = 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
GBtoUTF8 = szRet
End Function