Expressão Regular

[notax 0]

Pessoal, bom dia!

 

Queria pegar dentro de uma string, tudo que for URL e transformar em link...

 

Exs.:

www.algumacoisa.com.br

algumacoisa.com.br

algumacoisa.com

http://algumacoisa.com.br'>http://algumacoisa.com.br

http://algumacoisa.com

E por aí vai...

 

Alguém tem ou saiba onde tenha uma expressão regular que faça isso já pronta?

[xanburzum 169]

olha este link

[notax 0]

Uhm... não funfa...

 

se deixo exatamente igual dá isso:

Microsoft VBScript runtime error '800a01f5'

 

Illegal assignment: 'String'

 

/teste/teste.asp, line 68

 

line 68: String = "Elvis Presley, o homem, o mito, a lenda, o rei do rock-n-roll, " & _

 

Se mudo string para o nome de uma varaíavel qq dá esse erro:

 

Microsoft VBScript runtime error '800a0005'

 

Invalid procedure call or argument: 'Mid'

 

/teste/teste.asp, line 37

 

line 37: Link = Mid(conteudo, StartLink, (finalLink-inicioLink))

 

Algum help?

[xanburzum 169]

mude a string ( o texto) para qualquer texto, pode ser apenas de uma linha

[notax 0]

Já havia tentado... mesmo assim não deu!

[xanburzum 169]

olha este exemplo:

 

 

'**************************************
' Descrição: 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