How to pass a string containing quotes into eval'ed code

[drgs]

Hello,

I'm trying to use the Escape function from VBScript to encode some URL addresses (not available in VBA). Looks like this:

Function Escape(strString As String) As String
    Dim objVBScript As Object
    Dim str As String
    
    Set objVBScript = CreateObject("MSScriptControl.ScriptControl")
    objVBScript.Language = "VBScript"
    objVBScript.Reset
    Escape = objVBScript.Eval("escape(""" & strString & """)")
End Function

Works fine unless strString is something like
strString = """hehe"

I've tried replacing single " with "", but it keeps generating syntax errors.
What can I do in this case?

 

[mikerickson]

Perhaps something like

Escape = objVBScript.Eval("escape(""" & Replace(strString, """", vbNullString) & """)")

 

[drgs]

Yes, deleting all quotes will help but I want to preserve the contents

The string """hehe" should be "%22hehe" when encoded

 

[wigi]

This works for me:

Sub tests()
    
    'test 1
    MsgBox Escape(Chr(34) & "wigi" & Chr(34)) 'or: MsgBox Escape("""wigi""")
    
    'test 2
    MsgBox Escape("wigi")

End Sub

Function Escape(strString As String) As String
    
    Const s = """"    
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "VBScript"
        .Reset
        Escape = .Eval("escape(" & s & IIf(Left(strString, 1) = Chr(34), s, "") & strString & s & IIf(Right(strString, 1) = Chr(34), s, "") & ")")
    End With
    
End Function

Wigi

 

[drgs]

Actually false alarm, my first method seems to work after all
Thanks

 

[wigi]

Actually false alarm, my first method seems to work after all
Thanks

Can you explain this? Your code below generates an error...

Sub tests()
    
    'this does not work
    MsgBox Escape("""hehe")

End Sub

Function Escape(strString As String) As String
    Dim objVBScript As Object
    Dim str As String
    
    Set objVBScript = CreateObject("MSScriptControl.ScriptControl")
    objVBScript.Language = "VBScript"
    objVBScript.Reset
    Escape = objVBScript.Eval("escape(""" & strString & """)")
End Function

Wigi