• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.05.23 03:01 299 0

본문



 

Function Escape(s As StringAs 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 StringAs 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



댓글목록 0

등록된 댓글이 없습니다.