我想转换所有语言的百分比编码URL,但vb6仅支持英语。
我已经测试了以下代码。但只能转换英文字符:
Private Sub Form_Load()
THE_ARABIC_URL = "%D8%AF%D8%B4%D9%85%D9%86%DB%8C+%D8%AF%D8%B1+%D8%A7%D8%B9%D9%85%D8%A7%D9%82-2019-12-09+01%3A09%3A00"
MsgBox URLDecode(THE_ARABIC_URL)
End Sub
Private Function URLDecode(ByVal txt As String) As String
Dim txt_len As Integer
Dim i As Integer
Dim ch As String
Dim digits As String
Dim result As String
result = ""
txt_len = Len(txt)
i = 1
Do While i <= txt_len
' Examine the next character.
ch = Mid$(txt, i, 1)
If ch = "+" Then
' Convert to space character.
result = result & " "
ElseIf ch <> "%" Then
' Normal character.
result = result & ch
ElseIf i > txt_len - 2 Then
' No room for two following digits.
result = result & ch
Else
' Get the next two hex digits.
digits = Mid$(txt, i + 1, 2)
result = result & Chr$(CInt("&H" & digits))
i = i + 2
End If
i = i + 1
Loop
URLDecode = result
End Function
来源:VB Helper。
如果要手动执行,则必须编写支持UTF-8的函数。但是,有一种更简单的方法是使用MSScriptControl.ScriptControl
对象依赖JScript引擎。您可以使用this answer中的功能。
这是一个完整的示例:
Public JSEngine
Public Sub InitializeJSEngine()
Set JSEngine = CreateObject("MSScriptControl.ScriptControl")
JSEngine.Language = "JScript"
End Sub
Function UrlDecode(s) As String
UrlDecode = Replace(s, "+", " ")
UrlDecode = JSEngine.CodeObject.decodeURIComponent(UrlDecode)
End Function
Private Sub Form_Load()
' Make sure this is called before calling `UrlDecode`.
InitializeJSEngine
End Sub
Private Sub btnDecode_Click()
' Prints: "دشمني در اعماق-2019-12-09 01:09:00"
' ..which is Persian, not Arabic ;‑)
Debug.Print UrlDecode("%D8%AF%D8%B4%D9%85%D9%86%DB%8C+%D8%AF%D8%B1+%D8%A7%D8%B9%D9%85%D8%A7%D9%82-2019-12-09+01%3A09%3A00")
End Sub