REGULAR EXPRESSIONS: Gøre links aktive, både med og uden www

Test:

inet.tele.dk

Jeg lavet denne til mit eget formål måske du kan bruge den, den lave links og email adresser om:


Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
objRegExpHTTP2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}[\w\S]*)"
objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, " <a href='mailto:$1'>$1</a> ")
strOutput = objRegExpHTTP1.Replace(strOutput, " <a href='$1$2' target='_blank'>$1$2</a> ")
strOutput = objRegExpHTTP2.Replace(strOutput, " $1<a href='http://$2' target='_blank'>$2</a> ")

objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])('>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(' target=)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2")
objRegExpHTTP2.Pattern = "(<br>|[,.)\]\}])(</a>)"
strOutput = objRegExpHTTP2.Replace(strOutput, "$2$1")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function

Netcoders.dk havde en konkurrence hvem der kunne lave det bedste script til at highlighte link. Her er vinder scriptet:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Og her er samlige deltages scripte:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1

Så det skulle være muligt at finde noget der kan bruges. Jeg kan ikke lige finde konkurrence beskrivelsen så du kunne se de forskellige links som skulle laves om.. Men der ligger sikkert en test fil i source koden så kan man se dem der.

Hej eagleeye! :o)

Jeg stoler på, at det virker tester det efter senere, skal lige byen.

Jeg har set linket til NetCoders, men regular expressions virker noget bedre og hurtigere, synes jeg.

Tak for hjælpen :o)

Hej eagleeye

Denne her er godt nok gammel, men jeg stod lige og skulle bruge den :)

Den tager adressen dobbelt med, når den åbner i et nyt vindue. Hvordan kan det være?