[vb6.0/vba] VBScript 를 이용한 URL Encode/Decode
하나를하더라도최선을
2020-06-30 10:01:45
30,990
0
0
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