-
'ชื่อฟังก์ชั่น: FormatRemoteUrl
'ฟังก์ชั่น: จัดรูปแบบ URL แบบเต็มของเว็บไซต์ปัจจุบัน - แปลงที่อยู่สัมพัทธ์เป็นที่อยู่สัมบูรณ์
'อาร์กิวเมนต์: url ---- url string
'พารามิเตอร์: CurrentUrl --- แน่นอน URL เว็บไซต์
'ค่าส่งคืน: URL ที่จัดรูปแบบ
-
Publicfunctionatremoteurl (Byvalurl, Byvalcurrenturl)
Dimstrurl
iflen (url) <2orlen (url)> 255orlen (currenturl) <2 จากนั้น
formatRemoteUrl = vbnullString
exitfunction
endif
currentUrl = trim (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (currentUrl, "'", vbnullString), "" "", vbnullString), vbNewline, vbnullString), "/", "/", "
url = trim (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (แทนที่ (url, "'", vbnullstring), "" "", vbnullstring), vbnewline, vbnullstring), "/", "/", "|", vbnullstring))
ifinstr (9, currenturl, "/") = 0 แล้ว
strurl = currenturl
อื่น
strurl = ซ้าย (currenturl, instr (9, currenturl, "/")-1)
endif
ifSturl = vbnullStringThinStrurl = currenturl
SelectCaseleft (LCASE (URL), 6)
กรณี "http:/", "https:", "ftp: //", "rtsp:/", "mms: //"
formatRemoteUrl = url
exitfunction
endelect
ifleft (url, 1) = "/" แล้ว
formatRemoteUrl = strurl & url
exitfunction