############## VB中如何使用escape？ ########################

Question

VB中如何使用escape？
要引用什么，怎么声明，如何使用？
目的是对URL中的中文字符实现编码，以解决UTF-8无法经URL传递中文参数问题。

Answer 1

Function Escape(ByVal Text As String) As String
    Dim s As String
    Dim ch As String
    Dim iAscii As Integer
    Dim i As Long
    
    For i = 1 To Len(Text)
        ch = Mid$(Text, i, 1)
        Select Case ch
            Case "0" To "9", "a" To "z", "A" To "Z", _
                 "-", "_", ".", "!", "~", "*", "'", "(", ")"
                s = s & ch
            Case Else
                iAscii = AscW(ch)
                If (0 <= iAscii) And (iAscii < 255) Then
                    s = s & ("%" & Right$("0" & Hex(iAscii), 2))
                Else
                    s = s & ("%u" & Right$("000" & Hex(iAscii), 4))
                End If
        End Select
    Next
    
    Escape = s
End Function