check

G

geebee

hi,

i found the following:

' Validate a URL
' Example: MessageBox.Show(IsValidUrl("http://www.vb2themax.com"))

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
"(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")
End Function

but im not sure how to use it or adapt it for my vba. can someone help?

thanks in advance,
geebee
 
G

geebee

hi,

i am pasting the folloowing function into VBA but getting an error message:

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")"
End Function

not sure what to do... looks like it is not recognizing the "return system"
part

thanks in advance,
geebee


Joel said:
All ISValidURL does is returns either a true or False response.
URL = "http://www.vb2themax.com"
if IsValidUrl(URL) = True then
'enter your code here
Else
msgbox("Invalid URL")
end if

geebee said:
hi,

i found the following:

' Validate a URL
' Example: MessageBox.Show(IsValidUrl("http://www.vb2themax.com"))

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
"(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")
End Function

but im not sure how to use it or adapt it for my vba. can someone help?

thanks in advance,
geebee
Click to expand...
Click to expand...
 
J

Joel

The like operator should work but doesn't give the correct results on my PC

Function IsValidUrl(ByVal URL As String) As Boolean
IsValidUrl = URL Like "(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?"
End Function


geebee said:
hi,

i am pasting the folloowing function into VBA but getting an error message:

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")"
End Function

not sure what to do... looks like it is not recognizing the "return system"
part

thanks in advance,
geebee


Joel said:
All ISValidURL does is returns either a true or False response.
URL = "http://www.vb2themax.com"
if IsValidUrl(URL) = True then
'enter your code here
Else
msgbox("Invalid URL")
end if

geebee said:
hi,

i found the following:

' Validate a URL
' Example: MessageBox.Show(IsValidUrl("http://www.vb2themax.com"))

Function IsValidUrl(ByVal url As String) As Boolean
Return System.Text.RegularExpressions.Regex.IsMatch(url, _
"(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?")
End Function

but im not sure how to use it or adapt it for my vba. can someone help?

thanks in advance,
geebee
Click to expand...
Click to expand...
Click to expand...
 
Top