Parser (find URL i en tekststreng)

Der er en god chance for at finde en på www.activeserverpages.dk

hvorfof må den ikke det??? det er jo en selvfølge når du skriver http://......dk

http://www.activeserverpages.dk/download/default.asp?mode=showdownload&id=200

Her er en:
http://www.netsrac.dk/netsrac-dk/asp0003.asp

Så kan du samtidig lære lidt om reguler expressions :)

Det var jo et svar :)

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}\\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, \" <a href=\'http://$2\' target=\'_blank\'>$2</a> \")

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

LinkString = strOutput
End Function

Her en function som laver web og email adresse om til link.

Jeg har kigget lidt på de tre nu, det er gode udgangspunkter. Specielt et Netsrac\'s tutorial fed. Et spørgsmål mere dog: hvis nu folk skriver URL\'en som det sidste i en sætning, følger der som regel et punktum eller andet tegn lige efter. Kan der gøres sådan, at dette punktum ikke bliver talt med?

Det skulle da ikke gerne komme med i min tutorial ?

Nej... har også lige tjekket activeserverpages.dk-løsningen... den laver det også ordentligt. Jeg havde bare ikke kigget ordentligt efter.

Jeg takker alle tre. Deler lige over, da alle har hjulpet mig. OK?

Fint nok! Takker for points.