check
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 |
check
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" wrote: 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 |
check
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" wrote: 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" wrote: 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 |
check
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" wrote: 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" wrote: 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" wrote: 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 |
All times are GMT +1. The time now is 11:04 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com