detectar link

[fernandowind]

Como puedo hacer para detectar si dentro de un texto hay algun link y en caso que este ponerlo como un link. Mejor dicho si en un texto hay "www.xxx.com.ar" o "[email protected]" ponerlo como <a href="">xxx</a>

[u_goldman]

Supongo que deberías valerte de una muy buena función que validara varias cosas, pero algo que se me ocurre rápido es si comienza con "www." entonces es una dirección electrónica, por lo tanto:

Código:

Function CrearURL(cadena)
  formato = ""
  If left(cadena, 4) = "www." Then
    formato = "<a href=http://" & cadena & ">" & cadena & "</a>"
  Else
    formato = cadena
  End If
  CrearURL = formato
End Function

variable = CrearURL("www.yahoo.com")
variable2 = CrearURL("Hola Mundo")
Response.write variable
Response.Write "<br>"
Response.write variable2

Salu2,

[AlZuwaga]

acá había hecho algo... fijate si te sirve de idea para adaptarlo:

http://www.forosdelweb.com/showpost....0&postcount=27

[fernandowind]

ok gracias use el de Al Zuwaga pero con unos arreglitos

[AlZuwaga]

fernando, podrías poner los arreglitos para chusmearlos?