[xanburzum]

Localiza qualquer URL encontrado dentro de texto especificado e cria um link hiper para http, https, ftp, e endereços de e-mail.

- Entrada:asContent - Conteúdo a ser analisado para URLs

- Reourn:retorna o conteúdo HTML com hyperlinks codificados.

'
'**************************************

Function LinkURLs(ByRef asContent)
	Dim loRegExp	' Regular Expression Object (Requires vbScript 5.0 and above)
	
	
	If asContent = "" Then Exit Function
	
	
	Set loRegExp = New RegExp
	
					
	loRegExp.Global = True
	
	' Ignora upper/lower case
	loRegExp.IgnoreCase = True
	' procura por URLs
	loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
	' Link URLs
	LinkURLs = loRegExp.Replace(asContent, "<A href=""$1"">$1</A>$3")
	' procura por email 
	loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)"
	' Link endereço de email
	LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
	' dá um Release no objeto da expression regular 
	Set oRegExp = Nothing
	
End Function