"===================================================================================================================
'Funktionsname: DefiniteUrl
'Funktion: Konvertieren Sie die relative Adresse in die absolute Adresse
'Parameter: Primitiveurl ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Parameter: Consulturl -------- aktuelle Webadresse
"===================================================================================================================
FunctionDefiniteUrl (Byvalprimitiveurl, Byvalconsulturl)
Dimcontemp, Pritemp, PI, CI, Priarray, Conarray
IfPrimitiveUrl = "" orconsulturl = "" orprimitiveUrl = "$ false $" orconsulturl = "$ false $"
DefiniteURl = "$ false $"
Ausgangsfunktion
Endif
IFleft (Lase (Consulturl), 7) <> "http: //" dann
Consulturl = "http: //" & Consulturl
Endif
Consulturl = Ersetzen (Consulturl, "/", "/")
Consulturl = Ersetzen (Consulturl, // ",": // ")
PrimitiveUrl = ersetzen (primitiveUrl, "/", "/")
IFright (Consulturl, 1) <> "/" Dann
IFINSTR (Consulturl, "/")> 0Then
IFINSTR (Right (Consulturl, Len (Consulturl) -instrrev (Consulturl, "/")), ".")> 0Then
Anders
Consulturl = Consulturl & "/"
Endif
Anders
Consulturl = Consulturl & "/"
Endif
Endif
Conarray = split (Consulturl, "/")
Ifeft (lase (primitiveUrl), 7) = "http: //" dann
DefiniteUrl = ersetzen (primitiveUrl, ": //", ": //")
Elseifleft (primitiveUrl, 1) = "/" Dann
DefiniteURl = conarray (0) & primitiveUrl
Elseifleft (primitiveUrl, 2) = "./" Dann
PrimitiveUrl = rechts (primitiveUrl, len (primitiveUrl) -2)
IFright (Consulturl, 1) = "/" Dann
DefiniteURl = Consulturl & PrimitiveUrl
Anders
DefiniteUrl = links (Consulturl, Instrrev (Consulturl, "/")) & primitiveUrl
Endif
Elseifleft (primitiveUrl, 3) = "../" Dann