Función que sustituya Http por enlace directo

[yomesmo]

¿Alguien sabe una función que reemplace si en un texto viene una URL tanto en formato Http://loquesea o www.loquesea por el link directo, Lo que quiero es que si en un texto de un campo de una base de datos alguien pone una URL, en lugar de mostrarlo como texto plano, aparezca con formato de link.

Gracias a todos

[Myakire]

NO te sirve replace?

[yomesmo]

La pongo por si le sirve a alguien en el futuro:

<%
'----------------------------------------------
' URL pueden empezar con "www" o "http"
' o
' URL pueden ser emails "*@*"
'----------------------------------------------
Function InsertHyperlinks(inText)
Dim objRegExp, strBuf
Dim objMatches, objMatch
Dim Value, ReplaceValue, iStart, iEnd

strBuf = ""
iStart = 1
iEnd = 1
Set objRegExp = New RegExp

objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' Match URLs and emails
objRegExp.IgnoreCase = True ' Set case insensitivity.
objRegExp.Global = True ' Set global applicability.
Set objMatches = objRegExp.Execute(inText)
For Each objMatch in objMatches
iEnd = objMatch.FirstIndex
strBuf = strBuf & Mid(inText, iStart, iEnd-iStart+1)
If InStr(1, objMatch.Value, "@") Then
strBuf = strBuf & GetHref(objMatch.Value, "EMAIL", "_BLANK")
Else
strBuf = strBuf & GetHref(objMatch.Value, "WEB", "_BLANK")
End If
iStart = iEnd+objMatch.Length+1
Next
strBuf = strBuf & Mid(inText, iStart)
InsertHyperlinks = strBuf
End Function


Function GetHref(url, urlType, Target)
Dim strBuf

strBuf = "<a href="""
If UCase(urlType) = "WEB" Then
If LCase(Left(url, 3)) = "www" Then
strBuf = "<a href=""http://" & url & """ Target=""" & _
Target & """>" & url & "</a>"
Else
strBuf = "<a href=""" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If
ElseIf UCase(urlType) = "EMAIL" Then
strBuf = "<a href=""mailto:" & url & """ Target=""" & _
Target & """>" & url & "</a>"
End If

GetHref = strBuf

End Function
%>

[sjam7]

Esto esta en las FAQ's?

por cierto, para regresar a tomar el tema tan tratado hace un buen tiempo.. cuando se hara una especie de directorio tematico de las faq's para que pueda ser un poco mas facil encontrar cosas en el como esta en casi todos los foros?

[Myakire]

Al verla creo recordar que dicha función esta en las FAQ's

Aquí esta comentada

[u_goldman]

Y hace match a una dirección segura? https

Ya vi que si...es que solo ve si comienza con http

[sjam7]

si lo hace con las https? se podria agregar aqui no?
objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' Match URLs and emails

[u_goldman]

Si, para refinarla un poco podrias agregar al patron https, pero veo que no es necesario, lo que pensé en primera instancia es que validaba http:// pero no es así.

Salud