请问这个路径怎么用程序把后面的字符解析成中文

Question

请问这个路径怎么用程序把后面的字符解析成中文
ftp://a:[email protected]:7000/n%C4%D0%C8%CB%CB%C4%CA%AEA.rm
也就是这个n%C4%D0%C8%CB%CB%C4%CA%AEA.rm 解析成中文在线谢谢

Answer 1

Public Function UrlDecode(ByVal sEncoded As String) As String
    Dim pointer As Long
    Dim pos As Long
    Dim temp As String
    If sEncoded = "" Then Exit Function
    pointer = 1
    Do
        pos = InStr(pointer, sEncoded, "+")
        If pos = 0 Then Exit Do
        Mid$(sEncoded, pos, 1) = " "
        pointer = pos + 1
    Loop
     pointer = 1
    Do
        pos = InStr(pointer, sEncoded, "%")
        If pos = 0 Then Exit Do
        temp = Chr$("&H" & (Mid$(sEncoded, pos + 1, 2)))
        If Mid(sEncoded, pos + 3, 1) = "%" And (temp <> ":") And (temp <> "_") And (temp <> "/") _
        And (temp <> "(") And (temp <> ")") And (temp <> ".") And (temp <> ",") _
        And (temp <> ";") And (temp <> "%") Then
            Mid$(sEncoded, pos, 2) = Chr$("&H" & (Mid$(sEncoded, pos + 1, 2)) & (Mid$(sEncoded, pos + 4, 2)))
            sEncoded = Left$(sEncoded, pos) & Mid$(sEncoded, pos + 6)
            pointer = pos + 1
        Else
            Mid$(sEncoded, pos, 1) = temp
            sEncoded = Left$(sEncoded, pos) & Mid$(sEncoded, pos + 3)
            pointer = pos + 1
        End If
    Loop
    UrlDecode = sEncoded
    Exit Function
End FunctionPrivate Sub Command1_Click()
MsgBox UrlDecode("%C4%D0%C8%CB%CB%C4%CA%AEA.rm")
End Sub