在VB6.0中怎么实现escape和unescape，需要引用哪个API？

[bsetsail]

如题
谢谢！

[嗷嗷叫的老马]

Function Escape(ByVal pstrInput As String) As String
     Dim objScrCtl      As Object
    
     Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "JavaScript"
     Unescape = objScrCtl.Eval("escape('" & pstrInput & "')")
     Set objScrCtl = Nothing
End Function

Function Unescape(ByVal pstrInput As String) As String
     Dim objScrCtl      As Object
    
     Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "JavaScript"
     Unescape = objScrCtl.Eval("unescape('" & pstrInput & "')")
     Set objScrCtl = Nothing
End Function

直接创建JS对象即可.

[嗷嗷叫的老马]

如果有性能要求,就写到一个类里,类初始化时将objScrCtl初始化,类销毁时objScrCtl销毁.

[贝隆]

[Quote=引用 1 楼 myjian 的回复:]
VB code
Function Escape(ByVal pstrInput As String) As String
Dim objScrCtl As Object

Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
objScrCtl.Language = "J……
[/Quote]
学习了。。

[橘子皮...]

[Quote=引用 1 楼 myjian 的回复:]

VB code
Function Escape(ByVal pstrInput As String) As String
Dim objScrCtl As Object

Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
objScrCtl.Language = "Java……
[/Quote]

你这个有时候会报错！！

[嗷嗷叫的老马]

[Quote=引用 4 楼 wowfiowow 的回复:]
你这个有时候会报错！！[/Quote]
报什么错?什么情况下?

[嗷嗷叫的老马]

什么错?什么情况下报?

[嗷嗷叫的老马]

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

Function Unescape(ByVal Text As String) As String
    Dim i As Long
    
    For i = 1 To Len(Text)
        If Mid$(Text, i, 2) = "%u" Then Text = Replace$(Text, Mid$(Text, i, 6), ChrW$(AscW(ChrW$("&H" & Mid$(Text, i + 2, 4)))))
        If Mid$(Text, i, 1) = "%" Then Text = Replace$(Text, Mid$(Text, i, 3), Chr$(Asc(Chr$("&H" & Mid$(Text, i + 1, 2)))))
    Next i
    Unescape = Text
End Function

倒,还以为没发成功.

调用对象如果出错,就使用代码自己转换吧.

[用户 昵称]

看答案才看懂问题

[bsetsail]

测试过了，两种方法都没报错

[Eagle112]

第一种方法当字符串中含有特殊字符时会报错

[Eagle112]

第二种方法不会报错，但有部分符号是要转换的

需要将
Case "0" To "9", "a" To "z", "A" To "Z", _
"-", "_", ".", "!", "~", "*", "'", "(", ")"


更改为
Case "0" To "9", "a" To "z", "A" To "Z", _
"-", "_", "/", ".", "*", "@"

[橘子皮...]

引用 11 楼 Eagle112 的回复:

第二种方法不会报错，但有部分符号是要转换的 需要将 Case "0" To "9", "a" To "z", "A" To "Z", _ "-", "_", ".", "!", "~", "*", "'", "(", ")" 更改为 Case "0" To "9", "a" To "z", "A" To "Z", _……

你错了，第2个代码某些时候还是出错

[橘子皮...]

第一个代码当含有( ' "之类的字符时会有出错可能