Har denna kod som gör om länkar till klickbara länkar:
Set re = New regexp
re.Global = true
re.IgnoreCase = true
re.Pattern="(^|[^""])([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url]|mailto:|file://|[url]telnet://[/url]|[url]gopher://[/url])([\w/#~:;.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:;.,?+=&%@!\-]|$)"
txt=re.Replace(txt,"$1<a href=""$2$3"" target=""_blank"">$2$3</a>$4")
re.Pattern="(^|[^\w/>])(www\.[\w/#~:.,;?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.;,?+=&%@!\-]|$)"
txt=re.Replace(txt,"$1<a href=""http://$2"" target=""_blank"">$2</a>$3")
're.Pattern = "(\w+((-\w+)|(\.\w+))*\@\;[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
re.Pattern="(^|[^:>\w])([\w\.]*@[\w\.\-]*\.\w{2,3})(\b|$)"
txt=re.Replace(txt,"$1<a href=""mailto:$2"" target=""_blank"">$2</a>")
set re = nothing
Hur ska man göra om den så att den inte gör om länkar som finns mellan
:q