webadresser i tekstarea laves om til et klikbart link

sender det igennem en RegExp funktion:

Function LinkString(strInput)
dim arrPattern, arrReplaceString, Rx, intIndex
  arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
  "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
  "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")
  arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
  " <a href='$1$2' target='_blank'>$1$2</a> ", _
  " <a href='http://$2' target='_blank'>$2</a> ")
  Set Rx = New RegExp
  Rx.Global = True
  Rx.IgnoreCase = True
  For intIndex = 0 To UBound(arrPattern)
    Rx.Pattern = arrPattern(intIndex)
    strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
  Next
  Set Rx = Nothing
  LinkString = strInput
End Function

resposne.write LinkString("en tekst med www.exp.dk og mail@exp.dk")

Denne funktion omdanner også emails til klikbare link...

Super!!!

Mange tak for hjælpen. Smider du lige et svar?!

RegExp er desuden et MEGET kraftfuldt, som det kan anbefales at kikke nærmere på, men som du kan se, kan syntaxen være meget indviklet :o)

Det findes i mange programmeringssprog, og har sin helt egen kategori her på E:
http://www.eksperten.dk/spm/Programmering/RegExp/
.o) <-- One Eyed Jack

Aha, det vil jeg tage og kigge lidt nærmere på. Takker :)