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

"SROSeaner" <SR*******@discussions.microsoft.com> wrote in message
news:C4**********************************@microsof t.com...

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?