[vb6.0/vba] 자바스크립트를 이용한 Escape(Encode) / Unescape(Decode) vb에서 사용하기 > vb6.0/vba

Function Escape(s As String) As String

    Dim scr As Object

    Set scr = CreateObject("MSScriptControl.ScriptControl")

    scr.Language = "VBScript"

    scr.Reset

    Escape = scr.Eval("escape(""" & s & """)")

End Function

 

Function Unescape(s As String) As String

    Dim scr As Object

    Set scr = CreateObject("MSScriptControl.ScriptControl")

    scr.Language = "VBScript"

    scr.Reset

    Unescape = scr.Eval("unescape(""" & s & """)")

End Function


Encode
사용:)
debug.? Escape("가을하늘 i love You")

결과:)
%uAC00%uC744%uD558%uB298%20i%20love%20You


Decode
사용:)
debug.? Unescape("%uAC00%uC744%uD558%uB298%20i%20love%20You")

결과:)
가을하늘 i love You