'=========================================================================
'Nombre de la función: definitiveUrl
'Función: Convierta la dirección relativa en una dirección absoluta
'Parámetros: PrimitiveUrl ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Parámetros: Consulturl -------- Dirección web actual
'=========================================================================
FunctionDefiniteUrl (ByvalPrimitiveUrl, Byvalconsulturl)
DimContemp, Pritemp, Pi, CI, Priarray, Conarray
IfPrimitiveUrl = "" orconsulturl = "" oPrimitiveUrl = "$ false $" orconsulturl = "$ falso $" entonces entonces
DefiniteUrl = "$ falso $"
Extinción
Endif
Ifleft (lcase (consulturl), 7) <> "http: //" entonces
Consulturl = "http: //" y consulturl
Endif
Consulturl = reemplazar (consulturl, "/", "/")
Consulturl = reemplazar (consulturl, ": //", ": //")
PrimitiveUrl = reemplazar (primitivo, "/", "/")
Ifright (consulturl, 1) <> "/" entonces
Ifinstr (consulturl, "/")> 0then
Ifinstr (derecho (consulturl, len (consulturl) -instrev (consulturl, "/"), ",." ")> 0Then
Demás
Consulturl = consulturl & "/"
Endif
Demás
Consulturl = consulturl & "/"
Endif
Endif
Conarray = split (consulturl, "/")
Ifleft (lcase (primitiveUrl), 7) = "http: //" entonces
DefiniteUrl = reemplazar (primitivourl, ": //", ": //")
Else shatifleft (primitiveUrl, 1) = "/" Entonces
DefiniteUrl = conarray (0) y primitivourl
Else shatifleft (primitiveUrl, 2) = "./" Entonces
PrimitiveUrl = Right (PrimitiveUrl, LEN (PrimitiveUrl) -2)
Ifright (consulturl, 1) = "/" entonces
DefinitiveUrl = consulturl & primitiveUrl
Demás
DefiniteUrl = izquierda (consulturl, instrrev (consulturl, "/")) y primitiveUrl
Endif
Else shatifleft (primitiveUrl, 3) = "../" entonces