vb6.0/vba [vba] ENCODEURL
페이지 정보
본문
Function ENCODEURL(varText As Variant, Optional blnEncode = True)
Static objHtmlfile As Object
If objHtmlfile Is Nothing Then
Set objHtmlfile = CreateObject("htmlfile")
With objHtmlfile.parentWindow
.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
End With
End If
If blnEncode Then
ENCODEURL = objHtmlfile.parentWindow.encode(varText)
End If
End Function
- 이전글[vb6.0/vba] MSXML2.XmlHttp와 MSXML2.DOMDocument 를 이용한 www.kimsonline.co.kr 크롤링 21.01.30
- 다음글[vb6.0/vba] 한글을 발음대로 영어로 변환(한글이름 영문표기) 21.01.30
댓글목록
등록된 댓글이 없습니다.