'================================================================================
'기능 이름 : formatremoteurl
'기능 : 현재 웹 사이트의 전체 URL 형식 - 상대 주소를 절대 주소로 변환
'인수 : url ---- URL 문자열
'매개 변수 : currentUrl --- 물론 웹 사이트 URL
'반환 값 : 포맷 된 URL
'================================================================================
publicfunctionformatremoteurl (byvalurl, byvalcurrenturl)
Dimstrurl
iflen (url) <2orlen (url)> 255orlen (currenturl) <2then
formatremateurl = vbnullstring
종료 기능
endif
currentUrl = trim (교체 (교체 (교체)
url = trim (replace (replace (replace (replace (rown), "" ", vbnullstring)," "" "" ", vbnullstring), vbnewline, vbnullstring),"/","/","| ", vbnullstring))
ifinstr (9, currenturl, "/") = 0then
strurl = currentUrl
또 다른
strurl = 왼쪽 (currenturl, instr (9, currenturl, "/") -1)
endif
ifstrurl = vbnullStringThinStrurl = currentUrl
SelectCaseleft (lcase (url), 6)
"http :/", "https :", "ftp : //", "rtsp :/", "mms : //"
formatremateurl = url
종료 기능
EndSelect
ifleft (url, 1) = "/"그런 다음
formatremateurl = strurl & url
종료 기능