07/02/2002, 16:32
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| Re: Detectar y convertir en url
Te paso un código que hicimos con Inutil hace un tiempo. Está incompleto ya que le falta poder convertir direcciones de email (la versión final la perdí) pero convierte perfectamente URL's siempre que éstas comiencen por www y haya un espacio al final de la misma .
El código está listo para copiar, pegar y verlo funcionando:
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
<%
CADENA = "En el sitio web de la Subsecretaría de Asuntos Municipales www.municipios.gov.ar encontrará información de los Municipios Argentinos. Y qué pasa si hay dos direcciones: www.elsitioinutil.20m.com/main.html . Con dos direcciones también funciona ;). Y hasta con 3: www.forosdelweb.com , o quizá 4? www.maestrosdelweb.com . En realidad, no hay límite."
Response.Write CADENA
Response.Write "<p></p>"
COMIENZO = InStr(CADENA,"www")
contador = 0
do while COMIENZO<>0
FIN = InStr(COMIENZO,CADENA," ")
URL = Mid(CADENA, COMIENZO, FIN-COMIENZO)
URL_ARREGLADA = ("<a href=" & CHR(034) & "http://" & URL & CHR(034) & ">" & URL & "</a>")
if contador > 0 then
CADENA_ARREGLADA = Replace(CADENA_ARREGLADA,URL,URL_ARREGLADA)
else
CADENA_ARREGLADA = Replace(CADENA,URL,URL_ARREGLADA)
end if
COMIENZO = InStr(FIN,CADENA,"www")
contador = contador + 1
loop
Response.Write CADENA_ARREGLADA
%>
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
Espero que te sirva
diego |