"=========================================================================================================
'Funktionsname: Formatremoteurl
'Funktion: Formatieren Sie die vollständige URL der aktuellen Website - Konvertieren Sie die relative Adresse in die absolute Adresse
'Argumente: URL ---- URL-Zeichenfolge
'Parameter: Currenturl --- Natürlich die URL der Website
'Rückgabewert: formatierte URL
"=========================================================================================================
PublicFunctionFormatremoteurl (Byvalurl, Byvalcurrenturl)
Dimstrurl
Iflen (url) <2orlen (url)> 255orlen (currenturl) <2then
Formatremoteurl = vbnullstring
Ausgangsfunktion
Endif
CurrentURL = Trimm (Ersetzen (ersetzen (ersetzen (ersetzen (ersetzen (currenturl, "'", vbnullstring), "", vbnullstring), vbNewline, vbnullstring), "/", "/", "|", vbnullstring)))
Url = trimm (ersetzen (ersetzen (ersetzen (ersetzen (ersetzen (url, "'", vbnullstring), "", vbnullstring), vbNewline, vbnullstring), "/", "/", "|", vbnullstring)))
Ifinstr (9, currenturl, "/") = 0Then
StRURL = Currenturl
Anders
StRURL = links (Currenturl, Instrument (9, Currenturl, "/")-1)
Endif
IfStrurl = vbnullStringthinStrurl = Currenturl
SelectCaseleft (Lase (URL), 6)
Fall "http:/", "https:", "ftp: //", "rtsp:/", "mms: //"
Formatremoteurl = url
Ausgangsfunktion
Endauswahl
Ifeft (URL, 1) = "/" Dann
Formatremoteurl = stRURL & URL
Ausgangsfunktion