Android Question Get url from String

ilan · Jan 20, 2017

i remember @Erel wrote a very useful snippet where you can get a link from a string (Text)

for example:

B4X:

dim str as string = "Yesterday i came across a very useful website www.b4x.com and i wanted to share it with you."

now i want to get the link (if such exist) from that text but i cant find that snippet from erel

inakigarm · Jan 20, 2017

https://www.b4x.com/android/forum/t...mages-from-html-regex-help.30977/#post-180201

DonManfred · Jan 20, 2017

it will not work as the code is getting the url from the src tag of an image.
You need to rewrite the regex to get the partially (it is NOT a URL as it does not have a scheme) url in the string.

ilan · Jan 20, 2017

yes this is not the snippet but thanx anyway @inakigarm.
i am still looking for it. (not that easy)

inakigarm · Jan 20, 2017

ilan said:
yes this is not the snippet but thanx anyway @inakigarm.
i am still looking for it. (not that easy)

Ok, new one http://stackoverflow.com/questions/5713558/detect-and-extract-url-from-a-string

DonManfred · Jan 20, 2017

inakigarm said:
Ok, new one

Ok, another fail

It will not work too as it requires a comlete url (but again WITH scheme!) in the String.

ilan · Jan 20, 2017

inakigarm said:
Ok, new one http://stackoverflow.com/questions/5713558/detect-and-extract-url-from-a-string

i have the same site open but cant get it to work
all i get is "https://"

inakigarm · Jan 20, 2017

DonManfred said:
Ok, another fail

It will not work too as it requires a comlete url (but again WITH scheme!) in the String.

sorex · Jan 20, 2017

non reg-ex method that works on the format you have there

B4X:

Dim str As String = "Yesterday i came across a very useful website www.b4x.com and i wanted to share it with you."
Dim url As String
url=str.SubString2(str.IndexOf("www."),str.IndexOf2(" ",str.IndexOf("www.")))
Log(url)

DonManfred · Jan 20, 2017

Im not good at regex but try this please

B4X:

    Dim str As String = "Yesterday i came across a very useful website www.b4x.com and i wanted to share it with you."
  
    Dim m As Matcher = Regex.Matcher("([a-z0-9-.]*\.[a-z0-9-.]*\.[a-z]*)", str)
    If m.Find Then
        Log(m.Group(1))
    End If

www.b4x.com

ilan · Jan 20, 2017

i came up with this:

B4X:

'Use:

Sub btn_Click
    Dim str As String = "Yesterday i came across a very useful website https://www.b4x.com and i wanted to share it with you."
 
    For Each txt As String In returnLink(str)
        Log(txt)
    Next
End Sub

Sub returnLink(txt As String) As List
    Dim l As List
    l.Initialize
 
    Dim urlRegex As String = "(https?|ftp|gopher|telnet|file).*(jpg|mp4|com|net|il|org|uk|at|de)"

    Dim matcher As Matcher
    matcher = Regex.Matcher(urlRegex,txt)

    Do While matcher.Find
        l.Add(matcher.Match) 
    Loop 
 
    Return l
End Sub

DonManfred · Jan 20, 2017

ilan said:
i came up with this

1. You have a wrong url in the string. must be http://
2. You needed to change the string to get it to work (see my answer #10)

ilan · Jan 20, 2017

DonManfred said:

Im not good at regex but try this please

B4X:

    Dim str As String = "Yesterday i came across a very useful website www.b4x.com and i wanted to share it with you."
 
    Dim m As Matcher = Regex.Matcher("([a-z0-9-.]*\.[a-z0-9-.]*\.[a-z]*)", str)
    If m.Find Then
        Log(m.Group(1))
    End If

www.b4x.com

very good @DonManfred but can you add also the "http://" at start when it contains http:// or ftp:// or https://

ilan · Jan 20, 2017

DonManfred said:
1. You have a wrong url in the string. must be http://
2. You needed to change the string to get it to work (see my answer #10)

if you put http:// it will work too. the only problem is if i have 2 links it that string then i wont get the right result but with 1 link it works

ilan · Jan 20, 2017

this works for me with 1 link in the string

B4X:

    Dim str As String = "Yesterday i came across a very useful website https://www.b4x.com and i wanted to share it with you."
    Log(returnLink(str))

B4X:

Sub returnLink(txt As String) As String
    Dim urlRegex As String = "(https?|ftp|gopher|telnet|file).*(jpg|mp4|com|net|il|org|uk|at|de)"

    Dim matcher As Matcher
    matcher = Regex.Matcher(urlRegex,txt)

    If matcher.Find Then Return matcher.Group(0) Else Return ""
End Sub

inakigarm · Jan 20, 2017

ilan said:
i have the same site open but cant get it to work
all i get is "https://"[/QUOTE

]

ilan said:
this works for me with 1 link in the string

Try

B4X:

regexpattern= (?:(?:https?|ftp|file):\/\/|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$])

DonManfred · Jan 20, 2017

B4X:

    Dim m As Matcher = Regex.Matcher("(((https?|http|ftp)://)?[a-z0-9-.]*\.[a-z0-9-.]*\.[a-z]*)", str)
    If m.Find Then
        Log(m.Group(1))
    End If

https://www.b4x.com

?

ilan · Jan 20, 2017

inakigarm said:

Try

B4X:

regexpattern= (?:(?:https?|ftp|file):\/\/|www\.|ftp\.)(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[-A-Z0-9+&@#/%=~_|$?!:,.])*(?:\([-A-Z0-9+&@#/%=~_|$?!:,.]*\)|[A-Z0-9+&@#/%=~_|$])

View attachment 52179

sorry but i am not getting any matches

DonManfred said:
B4X:

Dim m As Matcher = Regex.Matcher("(((https?|http|ftp)://)?[a-z0-9-.]*\.[a-z0-9-.]*\.[a-z]*)", str) If m.Find Then Log(m.Group(1)) End If

https://www.b4x.com

?

good, we are getting close

now it works great but what happens if the end of the url is not .com ?

like my facebook page: https://www.facebook.com/profile.php?id=100011525702168

maybe we will need to search for a space after the url link starts and like this we could also get the url from such a link?

sorex · Jan 20, 2017

you know... you can use this simplified method aswell

(\w+:\/\/[^\s]+)

which works fine for https://www.b4x.com and even urls like https://www.b4x.com/android/forum/threads/get-url-from-string.75415/#post-478734

if you really want to be sure it's a url you can still go for the word method

(\w+:\/\/\w+.\w+.[^\s]+)

mindful · Jan 20, 2017

Hi ... this works for me:

B4X:

    Dim StringContainingLink As String = "Yesterday i came across a very useful website www.b4x.com and http://www.google.com i wanted to share it with you also you should have a look at https://google.com:5123 to see what is going on."
    Dim mPattern As String = "(?:^|[\W])((ht|f)tp(s?):\/\/|www\.)" & "(([\w\-]+\.){1,}?([\w\-.~]+\/?)*" & "[\p{Alnum}.,%_=?&#\-+()\[\]\*$~@!:/{};']*)"
    Dim mMatcher As Matcher = Regex.Matcher2(mPattern, Bit.Or(Regex.CASE_INSENSITIVE, Regex.MULTILINE), StringContainingLink)
    Do While mMatcher.Find
        Dim matchStart As Int = mMatcher.GetStart(1)
        Dim matchEnd As Int = mMatcher.GetEnd(0)
        Log($"Start: ${matchStart} End: ${matchEnd} String: ${StringContainingLink.SubString2(matchStart, matchEnd)}"$)
    Loop

Android Question Get url from String

Expert

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Expert

Expert

Expert

Expert

Expert

Expert

Well-Known Member

Expert

Expert

Expert

Active Member

Similar Threads

Privacy & Transparency

Privacy & Transparency