regexp: estrarre indirizzi urle ed email e trasmormarli in link

[saltodifondi]

Ciao, sto cercando una funzione che mi trasformi tutti gli URL ed indirizzi email presenti in una stringa e me i trasformi in link.

insomma, la stringa

"prova testo www.sito.it testo testo xxx@xxx.xx pippo."

dovra essere trasformata in

"prova testo www.sito.it testo testo xxx@xxx.xx pippo."

Sapreste aiutarmi?

non so davvero da dove partire

[Roby_72]

Function Link_URL(stringa)
	Dim objRegExp, strTemp
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True                   
	objRegExp.Global = True                 
	objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
            strTemp = objRegExp.replace(stringa, "$1")
	Link_URL = strTemp
	Set objRegExp = Nothing
End Function

Function Link_email(stringa)
	Dim objRegExp
	Set objRegExp = New RegExp 
	objRegExp.Global = True 
	objRegExp.IgnoreCase = True
	objRegExp.Pattern = "([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
	Link_email = objRegExp.replace(stringa, "$1")
	Set objRegExp = Nothing
End Function

Il link lo devi scrivere con http://....

Roby