'=========================================================.
'Nom de la fonction: FormatremOreurl
«Fonction: formatez l'URL complète du site Web actuel - convertissez l'adresse relative en adresse absolue
'Arguments: URL ---- URL String
'Paramètres: CurrentUrl --- Bien sûr, l'URL du site Web
'Valeur de retour: URL formatée
'=========================================================.
PublicFonctionFormatremOreurl (ByValurl, ByValcurrenturl)
Diminue
Iflen (url) <2orlen (URL)> 255orlen (currentUrl) <2Then
FormatremOreurl = vbnullstring
Sortie
Endire
CurrentUrl = TRIM (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (currenturl, "'", vbnullstring), "" "", vbnullstring), vbnewline, vbnullstring), "/", "/", "|", vbnullstring)))
URL = TRIM (remplacer (remplacer (remplacer (remplacer (remplacer (remplacer (url, "'", vbnullstring), "" "", vbnullstring), vbNewline, vbnullstring), "/", "/", "|", vbnullstring)))
IFinstr (9, currentUrl, "/") = 0Then
strurl = currenturl
Autre
Strurl = Left (CurrentUrl, instr (9, currentUrl, "/") - 1)
Endire
Ifstrurl = vbnullStringthinstrurl = currenturl
SelectCaseleft (LCase (URL), 6)
Cas "http: /", "https:", "ftp: //", "rtsp: /", "mms: //"
FormatremOreurl = URL
Sortie
Se licez
Ifleft (url, 1) = "/" puis
FormatremOreurl = strurl & url
Sortie