On Aug 31, 2006, at 11:55 AM, Phil M wrote:
On Aug 31, 2006, at 10:38 AM, Charles Yeomans wrote:
dim r as new RegEx
r.SearchPattern = "(([a-zA-Z][0-9a-zA-Z+\\-\\.]*:)?/{0,2}[0-9a-
zA-Z;/?:@&=+$\\.\\-_!~*'()%]+)?(#[0-9a-zA-Z;/?:@&=+$\\.\\-_!~*'()%]
+)?"
dim match as RegExMatch = r.Search(EditField1.Text)
if match <> nil then
MsgBox "Validated: " + match.SubExpressionString(0)
else
MsgBox "Failed."
end if
But it's not clear to me that this regular expression does quite
what one expects.
All this RegEx really does is verify that a URL is within the
contents of the string... you can have 100 pages of data and it
will locate the first URL. As written, this search pattern does
not verify that the entire source string is a valid URL.
if it were anchored to the beginning and end that should verify the
entire contents are a valid URL
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|