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

vb6.0/vba




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

하나를하더라도최선을
2020.06.30 10:01 272 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
 


댓글목록 0

등록된 댓글이 없습니다.