'=====================================================================
'Nombre de la función: formatremoteurl
'Función: formatea la URL completa del sitio web actual: convierta la dirección relativa a la dirección absoluta
'Argumentos: URL ---- cadena de URL
'Parámetros: CurrentUrl --- Por supuesto, la URL del sitio web
'Valor de retorno: URL formateada
'=====================================================================
PublicFunctionFormatremoteurl (Byvalurl, Byvalcurrenturl)
Dimstrurl
Iflen (url) <2orlen (url)> 255orlen (currenturl) <2Then
Formatremoteurl = vbnullString
Extinción
Endif
CurrentUrl = trim (reemplazar (reemplazar (reemplazar (reemplazar (reemplazar (currentUrl, "" ", vbnullString)," "" "", vbnullString), vbnewline, vbnullString), "/", "/", "|", vbnullString))))
URL = TRIM (Reemplace (reemplace (reemplace (reemplace (reemplace (reemplace (url, "" ", vbnullString)," "" ", vbnullString), vbnewline, vbnullString),"/","/"," | ", vbnullString)))
Ifinstr (9, currentUrl, "/") = 0then
Strurl = CurrentUrl
Demás
Strurl = Left (CurrentUrl, Instr (9, CurrentUrl, "/")-1)
Endif
Ifstrurl = vbnullStringThinstrUrl = CurrentUrl
SelectCaseleft (lcase (URL), 6)
Caso "http:/", "https:", "ftp: //", "rtsp:/", "mms: //"
Formatremoteurl = url
Extinción
EndSelectar
Ifleft (url, 1) = "/" entonces
Formatremoteurl = strurl & url
Extinción