'============================================================.
'Nom de la fonction: définieurl
«Fonction: convertir l'adresse relative en adresse absolue
'Parameters: PrimitiveUrl--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Paramètres: consultation -------- Adresse Web actuelle
'============================================================.
FunctionDefiniteUrl (ByValprimititiveUrl, byvalconsulturl)
Dimcontemp, Pritemp, Pi, CI, Priarray, ConaRray
IfPrimitiveUrl = "" Orconsulturl = "" OrPrimitiveUrl = "$ false $" orconsulturl = "$ false $" alors
DéfinitUrl = "$ false $"
Sortie
Endire
Ifleft (lCase (consultrl), 7) <> "http: //" puis
ConsurTurl = "http: //" et consultation
Endire
ConsurTurl = Remplacer (consultation, "/", "/")
Consultation = remplacer (consultation, ": //", ": //")
PrimitiveUrl = remplacer (primitiveUrl, "/", "/")
Ifright (consulterl, 1) <> "/" puis
IFinstr (consultation, "/")> 0
IFinstr (Right (Consurl, Len (Consurl) -Instrrev (Consurl, "/")), ",.". ")
Autre
ConsurTurl = Consurtul & "/"
Endire
Autre
ConsurTurl = Consurtul & "/"
Endire
Endire
ConArray = Split (Consurl, "/")
Ifleft (lCase (primitiveUrl), 7) = "http: //" puis
DefiteUrl = remplacer (primitiveUrl, ": //", ": //")
ElseIfleft (primitiveUrl, 1) = "/" puis
DéfinirUrl = conaRray (0) & primitiveUrl
ElseIfleft (primitiveUrl, 2) = "./" alors
PrimitiveUrl = à droite (primitiveUrl, len (primitiveUrl) -2)
Ifright (consultation, 1) = "/" puis
Définirurl = consultation et primitiveurl
Autre
DefiteUrl = Left (Consurl, Instrrev (Consurl, "/")) & primitiveUrl
Endire
ElseIfleft (primitiveUrl, 3) = "../" alors