Share My Creation StringExtractPaths Snippet

Hello everyone.

I converted a regular expression I wrote a while ago in AutoIt language. The purpose of this snippet is to extract all the network paths, addresses, and links from a string and returns a list populated with the results.

Here is the snippet:

'StringExtractPaths by Jmon:
'Extracts network paths from a string
'and returns all the separate paths in a list.
Private Sub StringExtractPaths(s As String) As List
    Dim lst As List : lst.Initialize
    Dim ptrn As String = "(?i)((?:(?:https?|rtp|mms|rtsp|file|ftps?)\:)?[\\|\/]{2}[\w-_]*[\w\\\/?&=.~;\-+!*_#%]*)|([a-z]:[\\\/][\w\.-_\\\/]*)|(w{3}\.[\w\\\/?&=.~;\-+!*_#%]*)"   
    Dim Matcher As Matcher = Regex.Matcher(ptrn, s)
    Do While Matcher.Find
        lst.Add(Matcher.Match)
    Loop
    Return lst
End Sub

Comments and critics are welcome. If you find any way to improve this regular expression, please share.

I also attached a project that demonstrates how to use it. I have only tested this project in Windows, so if someone could test with Linux or Macintosh that would be great.

jmon.

 

[Theera]

Hi Jmon,

Why do I cann't download? Thank you in advance.

 

[Theera]

Ok. I can do now.

 

[JakeBullet70]

thanks!

 

[peacemaker]

Thanks for the sample, but how to also include such situation ?

one two http://link1.com and second,http://link2.ru;and 3rd:https://link3.biz, end.

?

 

[Erel]

It should work. What is the output?

 

[peacemaker]

http://link1.com
http://link2.ru;and
https://link3.biz,

"Stop-symbol" should be not only the space, but other delimiters: ";", "," at least.
But actually also needed ".", "!", "?"

 

[Erel]

Commas and semicolons are allowed in urls.

 

[peacemaker]

Seems, "[" and "]" are not supported, in links like

&lmi_shoppingcart.items[1].qty=1"

Help to update the pattern, please.

 

[jmon]

Help to update the pattern, please.

Please try with this pattern:

"(?i)((?:(?:https?|rtp|mms|rtsp|file|ftps?)\:)?[\\|\/]{2}[\w-_]*[\w\\\/?&=.~;\-+!*_#%\[\]]*)|([a-z]:[\\\/][\w\.-_\\\/]*)|(w{3}\.[\w\\\/?&=.~;\-+!*_#%]*)"