Criando Link

[xanburzum 169]

procurando qualquer URL dentro de um texto especificado e criar Link para http, https, ftp e endereços de e-mail

 

function crialink(ByRef asContent)
		Dim loRegExp	' Regular Expression	 	
		'Se nenhum conteúdo foi recebido, Sair
		if asContent = "" Then Exit function
		
		' Cria Regular Expression 
		Set loRegExp = New RegExp
		
		loRegExp.Global = True
		
		' Ignora upper/lower 
		loRegExp.IgnoreCase = True
		loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
		' Link URLs
		LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"">$1</A>$3")
		'  Endereço email
		loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
		' Link Endereço email 
		LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
		' destroi objeto
		Set oRegExp = Nothing
		
	End function

[marcosalmeida 0]

Não estou conseguindo implementar o codigo.

 

Listo minhas noticias com esta string

 

<tr>

<td height="60"></td>

<td colspan="2" valign="top" class="texto">

<%

if rsNoticia("img_completo_noticia") <> "" then

%>

<img src="fotos/<%=(rsNoticia.Fields.Item("img_completo_noticia").Value)%>" hspace="3" vspace="3" border="0" align="left" />

<%

end if

%>

<DIV class=txt id=texto><%=(replace(rsNoticia("txt_completo_noticia") & "", VbCrlf, "<br>")) & "<br>"%></DIV>

</td>

<td></td>

</tr>

 

Onde devo inserí-lo?

 

att.

Marcos

 

MSN: marcos.plus@msn.com

www.LesteMais.com.br