Lav automatisk hyperlink

hmm ja jeg har ikke lige en i javascript, men du kan få dette:

Der har været en konkurrence på www.netkoders.dk og vinder script er her:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=859&tech_id=1

Runner ups:
http://www.netcoders.dk/sources.asp?mode=view_source&cat_id=9&id=860&tech_id=1


Jeg bruger selv denne som laver www adresse samt email adresse om til trykbare links.


Function LinkString2(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp

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

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True

strOutput = objRegExpHTTP1.Replace(strInput, " <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

LinkString2 = strOutput
End Function


Og den kaldes sådan her:

str = "En steng som indeholder links (www.eksperten.dk) som skal laves om til klikbare links."
response.write linkString2 (str)

eagleeye - Tak ska\ du ha! Den virker, og jeg ser lige om der kommer nogen i javascript, eller jeg proever selv! eagleeye, ved du hvad jeg skal goere, mit tastatur er blevet lidt underligt, naar jeg vil skrive de sidste danske bogstaver i alfabetet skriver den bare ; ' [ Jeg ved ikke hvad der lige pludselig skete...

Det lyder underligt, hvis du har Win2K,XP har du måske en lille blå icon nede tæt ved uret. Der skal stå DA med hvid tekst for dansk keyboard. Det kan være den er blevet ændret til EN for engelsk keyboard.

Nej, den har hele tiden været sådan, men jeg lukkede bare explore ned, og op igen, og så virkede det :-) men nu er der et nyt problem: Jeg kan ikke copy & paste noget tekst ind fra nettet, uden alt html'en kommer med :(

Det ser ikke ud til at der kommer flere... Du får point's! :)

...Hvis du altså ligger et svar!

Ok ;) det gør jeg da gerne.