Regular Expressions?

Jag har sett någonstans här ett script(Regular Expressions) som konventera t ex www.saw.songer.com till länkar. Likadant email adress osv. Nu är jag inte f-n till att hitta den.
Någon?

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__

http://script.webforum.nu/wf/Forum1/HTML/000093.html

:)

------------------
kolung.....det tål att tänkas på!

Tack men i denna applikation som jag nu håller på med, så vill jag bara ha att den leta rätt på URL
Jag försökte så här:
ParseURLs(RS("Rubrik"))
Men fick detta felmedellande:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'ParseURLs'
/Hemsidor/GlobalaForeningen/Nyheter/nyheter.asp, line 135
Hur skall jag göra?

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__

Har du någon sorts funktion?

Annars kan du söka på "http till länkar" och du hittar bra grejer ;)

------------------
Talet är tankens död

Det är det här jag försöker att koppla:

Public Function ParseURLs(TextToParse,LinkTarget)		
dim f_strText		
f_strText=TextToParse		
m_objRxp.Pattern="(^|[^""])(http://|https://|ftp://|mailto:|file://|telnet://|gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)"		
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""$2$3"">$2$3</a>$4")		
m_objRxp.Pattern="(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"		
f_strText=m_objRxp.Replace(f_strText,"$1<a target=""" & LinkTarget & """ href=""http://$2"">$2</a>$3")		
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"		
m_objRxp.Pattern="(^&#0124;[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b&#0124;$)"		
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"">$2</a>")		
ParseURLs=f_strText	
End Function

Några förslag?

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__

Function ParseURLs(TextToParse) 
dim f_strText 
f_strText=TextToParse 
m_objRxp.Pattern="(^|[^""])(http://|https://|ftp://|mailto:|file://|telnet://|gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""$2$3"">$2$3</a>$4") 
m_objRxp.Pattern="(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""http://$2"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
m_objRxp.Pattern="(^&#0124;[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b&#0124;$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"">$2</a>") 
ParseURLs=f_strText 
End Function

------------------
Talet är tankens död

[Redigerat av Rinaldo den 30 dec 2001]

Suck, nix.
Så här skrev jag;

ParseURLs(RS("Rubrik"))

Och det här felmedelandet fick jag.

Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'm_objRxp'
/Hemsidor/GlobalaForeningen/Style/ParsFunktion.inc, line 308

Jag är nog ganska så trött, men hur skall jag göra?

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__

ojdå... också ganska trött så jag missade en sak

Function ParseURLs(TextToParse) 
dim f_strText 
f_strText=TextToParse 
Set m_objRxp = New RegExp

m_objRxp.Pattern="(^|[^""])(http://|https://|ftp://|mailto:|file://|telnet://|gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]|$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""$2$3"">$2$3</a>$4") 
m_objRxp.Pattern="(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""http://$2"">$2</a>$3") 
'objRxp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)" 
m_objRxp.Pattern="(^&#0124;[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b&#0124;$)" 
f_strText=m_objRxp.Replace(f_strText,"$1<a href=""mailto:$2"">$2</a>") 
ParseURLs=f_strText 
End Function

------------------
Talet är tankens död

Jag bugar och bockar.
Fungerar perfekt

------------------
saw
__
saw@songer.com
www.mp3.com/saw_songer
__