Regular Expression for URL

[SROSeaner]

I am working on an ASP page which looks in a set of text for web page URLs.

Using the VBScript.RegExp regular expression object, I have this regular
expression:

[a-z]+\.[a-z]+\.[a-z]+/

And it works well finding URL's such as: windowsupdate.microsoft.com,
www.cnn.com, etc.

However, I have been trying to modify it to ALSO find URL's like this:

www.amazon.com/index/sell/ie6.html?val=1
Or
www.microsoft.com/windowsxp

Any ideas?

 

[Lasse Edsvik]

SROSeaner,


Function LinkURL(stringa)
Dim objRegExp, strTemp
Set objRegExp = New RegExp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "(\b(www\.|http\://)\S+\b)"
strTemp = objRegExp.replace(stringa, "<A HREF='http://$1'
class='orangelnk' TARGET='_new'>$1</A>")
LinkURL = Replace(strTemp, "http://http://","http://")
Set objRegExp = Nothing
End Function