E-mail / Link

[mkboy 1]

O usuario posta uma mensagem... e no meio da mensagem ele pode postar um link... www.site.com.br ou um email contato@email.com.br... como faço para fazer um replace dinamico e colocar um a href neles... no meio do texto?

[Robex 171 0]

Eu acho que o cara terá que colocar uma referecia... por exemplo aqui no forum usamos http://' target="_blank">você poderia usar algo como [link][/link]texto=replace(texto,"[link]",<a herf=")texto=replace(texto,"[/link]",">")algo desse tipo...

[Marhault 1]

axo q pode ser assim:

 

<% 	Public function fnvalidate_email(ByVal strEmail) 	Dim intAtPos, intDotPos, texto, arrTexto, palavra, newTexto		fnvalidate_email = False		intAtPos = InStr(1, strEmail, "@")	if intAtPos > 1 Then	intDotPos = InStr(intAtPos, strEmail, ".")	if intDotPos > intAtPos + 1 Then	fnvalidate_email = True	End if	End if	Exit function	End function	texto = Request(texto)	arrTexto = Split(texto, " ")	For each palavra in arrTexto		If fnvalidate_email(palavra) = True Then	newTexto = newTexto & "<a href='mailto:" & palavra & "'> "	Else	newTexto = newTexto & palavra & " "	End If	Next	Response.Write newTexto%>

tenta ae...