[vb6.0/vba] VBScript 를 이용한 URL Encode/Decode

Private JSEngine As Object

 

Public Function URLEncode(ByVal value As String)

    If JSEngine Is Nothing Then SetJSEngine

    value = JSEngine.CodeObject.encodeURIComponent(value)

    value = Replace(value, "'", "%27")

    URLEncode = Replace(value, """", "%22")

End Function

 

Public Function UrlDecode(ByVal value As String)

    If JSEngine Is Nothing Then SetJSEngine

    value = Replace(value, "+", " ")

    UrlDecode = JSEngine.CodeObject.decodeURIComponent(value)

End Function

 

Private Sub SetJSEngine()

    Set JSEngine = CreateObject("MSScriptControl.ScriptControl")

    JSEngine.Language = "JScript"

End Sub