vb6.0/vba [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
- 이전글[vb6.0/vba] 네이버 api를 이용한 http://me2.do/ 단축 URL 생성 20.07.01
- 다음글[vb6.0/vba] WinHttp를 이용하여 443포트 통신으로 위키백과(ko.wikipedia.org) 에서 특정 키워드로 검색하여 특정 단어가 있는지 체크하기 20.05.23
댓글목록
등록된 댓글이 없습니다.