-
'ชื่อฟังก์ชั่น: แน่นอน
'ฟังก์ชั่น: แปลงที่อยู่สัมพัทธ์เป็นที่อยู่สัมบูรณ์
'พารามิเตอร์: PrimitiveUrl --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'พารามิเตอร์: consulturl -------- ที่อยู่เว็บปัจจุบัน
-
FunctionDefiniteurl (ByvalprimitiveUrl, Byvalconsulturl)
dimcontemp, pritemp, pi, ci, priarray, conarray
ifprimitiveUrl = "" orconsulturl = "" orprimitiveUrl = "$ false $" orconsulturl = "$ false $"
definiteUrl = "$ false $"
exitfunction
endif
ifleft (lcase (consoldurl), 7) <> "http: //"
consulturl = "http: //" & consulturl
endif
consulturl = แทนที่ (Consulturl, "/", "/")
consulturl = แทนที่ (consulturl, ": //", ": //")
PrimitiveUrl = แทนที่ (PrimitiveUrl, "/", "/")
ifright (consulturl, 1) <> "/" แล้ว
ifinstr (consulturl, "/")> 0 แล้ว
ifinstr (ขวา (consulturl, len (consulturl) -instrrev (Consulturl, "/")), ",.". ".")> 0 แล้ว
อื่น
consulturl = consulturl & "/"
endif
อื่น
consulturl = consulturl & "/"
endif
endif
conarray = split (Consulturl, "/")
ifleft (lcase (primitiveUrl), 7) = "http: //"
definiteUrl = แทนที่ (PrimitiveUrl, ": //", ": //")
elseifleft (PrimitiveUrl, 1) = "/" แล้ว
definiteUrl = conarray (0) & primitiveUrl
elseifleft (PrimitiveUrl, 2) = "./" แล้ว
PrimitiveUrl = ขวา (PrimitiveUrl, Len (PrimitiveUrl) -2)
ifright (consulturl, 1) = "/" แล้ว
Poiriteurl = consulturl & primitiveurl
อื่น
definiteUrl = ซ้าย (consulturl, instrrev (consulturl, "/")) & primitiveurl
endif
elseifleft (PrimitiveUrl, 3) = "../" แล้ว