Android Question Regex help

Sergey_New

Sergey_New

Well-Known Member
Licensed User
Longtime User
It is necessary to remove the value <A HREF="UID50B5C7EEF7"> from the given string.
The highlighted characters can be any letters or numbers in any quantity.
Please help with the regular expression.
 
Solution
TILogistic
with a generic function to extract the values and do whatever you want
B4X: 
    Dim html As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Origen 1 2 </A>Tarea 1 2<A HREF="UIDD034051C4B77FA419DC48">Nombre Apellido</A>"$
    Dim sb As StringBuilder
    sb.Initialize
    For Each s As String In ExtractAllTagValues(html)
        Log(s)
        sb.Append(s).Append(" ")
    Next
    Log(sb.ToString.Trim)

B4X: 
Public Sub ExtractAllTagValues(html As String) As List
    Dim Pattern As String = "(<[^>]+>([^<]+)</[^>]+>)|([^<]+)"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, html)
    Dim Values As List
    Values.Initialize
    Do While Matcher.Find
        If Not(Matcher.Group(2) = Null) Then Values.Add(Matcher.Group(2))
        If...
Sort by date Sort by votes
i'm not sure i understand what you're trying to removed, but look at these:
B4X: 
    Dim s As String = $"<A HREF="UID50B5C7EEF7">"$
    Dim matcher As Matcher = Regex.Matcher($"<A HREF="(.+?)">"$, s)
        If matcher.Find Then
        s = Regex.Replace(matcher.Group(1),s,"")
        Log("s now: " & s)
    End If

    Dim s2 As String = $"<A HREF="UID50B5C7EEF7">"$
    Dim matcher As Matcher = Regex.Matcher($"(<A HREF=".+?">)"$, s2)
    If matcher.Find Then
        s2 = Regex.Replace(matcher.Group(1),s2,"")
        Log("s2 now: " & s2)
    End If
 

Attachments

  • regex1.png
    regex1.png
    20.7 KB · Views: 478
Upvote 0
I apologize for poorly expressing the required actions.
The line in which the replacement needs to be made:
<A HREF="UID50B5C7EEF789AB44AECFF">Source </A>Task<A HREF="UIDD034051C4B77FA419DC48"> Name</A>
I need to get:
Source Task Name
 
Upvote 0
there's this:
B4X: 
    Dim s As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Source </A>Task<A HREF="UIDD034051C4B77FA419DC48"> Name</A>"$
    Dim matcher As Matcher = Regex.Matcher($"<A HREF="(.+?)">Source </A>Task<A HREF="(.+?)"> Name</A>"$,s)
    If matcher.Find Then
        Log(" source = " & matcher.Group(1))
        Log(" name = " & matcher.Group(2))
        
    End If
 

Attachments

  • regex1.png
    regex1.png
    16.9 KB · Views: 496
Upvote 0
Your code returns:
B4X: 
 source = UID50B5C7EEF789AB44AECFF
 name = UIDD034051C4B77FA419DC48
But you need to get the string:
B4X: 
Dim s As String = "Source Task Name"
 
Upvote 0
B4X: 
Sub Process_Globals
    Private HtmlParser As MiniHtmlParser
End Sub

B4X: 
Dim SB As StringBuilder
SB.Initialize
Dim text As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Source </A>Task<A HREF="UIDD034051C4B77FA419DC48"> Name</A>"$
HtmlParser.Initialize
Dim root As HtmlNode = HtmlParser.Parse(text)
Dim nodes As Int = root.Children.Size
For i = 0 To nodes - 1
    Dim node As HtmlNode = root.Children.Get(i)
    Select node.Name
        Case "A"
            Dim value As String = HtmlParser.GetTextFromNode(node, 0)
        Case "text"
            Dim value As String = HtmlParser.GetAttributeValue(node, "value", "")
    End Select
    'Log(value)
    SB.Append(value)
Next
Log(SB.ToString)
 
Upvote 0
Sergey_New said:
I apologize for poorly expressing the required actions.
The line in which the replacement needs to be made:
<A HREF="UID50B5C7EEF789AB44AECFF">Source </A>Task<A HREF="UIDD034051C4B77FA419DC48"> Name</A>
I need to get:
Source Task Name
Click to expand...
If these are the requirements, then this regex should do it:

Code: 
Dim s As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Source </A>Task<A HREF="UIDD034051C4B77FA419DC48"> Name</A>"$
   
Dim result As String = Regex.Replace("<[^>]+>",s, "")
Log(result)

Result:
Code: 
Source Task Name

Alwaysbusy
 
Upvote 0
Alwaysbusy, thank you, that's what I wanted!
I would also like to ask you to clarify how the pattern should be changed if each of the words Source, Task, Name can consist of several words and spaces between them?
 
Upvote 0
Other
B4X: 
Dim html As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Origen 1 2 </A>Tarea 1 2<A HREF="UIDD034051C4B77FA419DC48">Nombre Apellido</A>"$
Log(Regex.Replace("<([^>]+)>",html, ""))
1726250686346.png
 
Upvote 0
To extract values inside and outside the tags of an html string
regex101.com

regex101: PCRE2 (PHP) Match Workspace

Explore and test this PCRE2 (PHP) regular expression online. Understand the pattern with regex explanations, generate code, and export matches to CSV or JSON.
regex101.com regex101.com
use:
B4X: 
    Dim html As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Origen 1 2 </A>Tarea 1 2<A HREF="UIDD034051C4B77FA419DC48">Nombre Apellido</A>"$
    Dim Pattern As String = "(<[^>]+>([^<]+)</[^>]+>)|([^<]+)"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, html)

    Do While Matcher.Find
        Dim InsideTag As String = Matcher.Group(2)
        Dim OutsideTag As String = Matcher.Group(3)

        If Not(InsideTag = Null) Then Log(InsideTag)
        If Not(OutsideTag = Null) Then     Log(OutsideTag)
    Loop

1726254067489.png
 
Upvote 0
Sergey_New said:
Thank you!
The result obtained must contain a space before the word "Nombre"
Click to expand...
B4X: 
    Dim html As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Origen 1 2 </A>Tarea 1 2<A HREF="UIDD034051C4B77FA419DC48">Nombre Apellido</A>"$
    Dim Pattern As String = "(<[^>]+>([^<]+)</[^>]+>)|([^<]+)"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, html)

    Dim sb As StringBuilder
    sb.Initialize
    
    Do While Matcher.Find
        Dim InsideTag As String = Matcher.Group(2)
        Dim OutsideTag As String = Matcher.Group(3)

        If Not(InsideTag = Null) Then
            sb.Append(InsideTag).Append(" ")
            Log(InsideTag)
        End If
        If Not(OutsideTag = Null) Then
            sb.Append(OutsideTag).Append(" ")
            Log(OutsideTag)
        End If
    Loop
    Log(sb.ToString.Trim)
1726254741152.png
 
Upvote 0
with a generic function to extract the values and do whatever you want
B4X: 
    Dim html As String = $"<A HREF="UID50B5C7EEF789AB44AECFF">Origen 1 2 </A>Tarea 1 2<A HREF="UIDD034051C4B77FA419DC48">Nombre Apellido</A>"$
    Dim sb As StringBuilder
    sb.Initialize
    For Each s As String In ExtractAllTagValues(html)
        Log(s)
        sb.Append(s).Append(" ")
    Next
    Log(sb.ToString.Trim)

B4X: 
Public Sub ExtractAllTagValues(html As String) As List
    Dim Pattern As String = "(<[^>]+>([^<]+)</[^>]+>)|([^<]+)"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, html)
    Dim Values As List
    Values.Initialize
    Do While Matcher.Find
        If Not(Matcher.Group(2) = Null) Then Values.Add(Matcher.Group(2))
        If Not(Matcher.Group(3) = Null) Then Values.Add(Matcher.Group(3))
    Loop
    Return Values
End Sub
1726255263718.png
 
Upvote 0
Solution
TILogistic, thank you very much! You solved my problem. I still have a task, how to first determine the value of the string "Tarea 1 2", and then the values of the remaining strings. This string can be at the beginning, in the middle or at the end of the entire string. Of course, if I am not too annoying with my questions.
 
Upvote 0
Sergey_New said:
TILogistic, thank you very much! You solved my problem. I still have a task, how to first determine the value of the string "Tarea 1 2", and then the values of the remaining strings. This string can be at the beginning, in the middle or at the end of the entire string. Of course, if I am not too annoying with my questions.
Click to expand...
Post an example of what you want.
 
Upvote 0
TILogistic said:
Post an example of what you want.
Click to expand...
The lines can be:
B4X: 
html = $"Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>"$
html = $"Tarea 1 2<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>"$
html = $"<A HREF="UID50">Origen 1 2</A>Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A>"$
html = $"<A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2<A HREF="UID50">Origen 1 2</A>"$
html = $"<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2"$
html = $"<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>Tarea 1 2"$
 
Upvote 0
Sergey_New said:
The lines can be:
B4X: 
html = $"Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>"$
html = $"Tarea 1 2<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>"$
html = $"<A HREF="UID50">Origen 1 2</A>Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A>"$
html = $"<A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2<A HREF="UID50">Origen 1 2</A>"$
html = $"<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2"$
html = $"<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>Tarea 1 2"$
Click to expand...
Do you want to sort the extraction of tag values in a defined order?
 
Upvote 0
?
First the Outside Tag
B4X: 
Public Sub Test1
    Dim html(6) As String
    html(0) = $"Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>"$
    html(1) = $"Tarea 1 2<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>"$
    html(2) = $"<A HREF="UID50">Origen 1 2</A>Tarea 1 2<A HREF="UIDD0">Nombre Apellido</A>"$
    html(3) = $"<A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2<A HREF="UID50">Origen 1 2</A>"$
    html(4) = $"<A HREF="UID50">Origen 1 2</A><A HREF="UIDD0">Nombre Apellido</A>Tarea 1 2"$
    html(5) = $"<A HREF="UIDD0">Nombre Apellido</A><A HREF="UID50">Origen 1 2</A>Tarea 1 2"$
    
    For i = 0 To html.Length - 1
        For Each s As String In ExtractAllTagHtmlValues(html(i))
            Log(s)
        Next
        Log("--------------------")
    Next
End Sub
B4X: 
Public Sub ExtractAllTagHtmlValues(Html As String) As List
    Dim Pattern As String = "(<[^>]+>([^<]+)</[^>]+>)|([^<]+)"
    Dim Matcher As Matcher = Regex.Matcher(Pattern, Html)
    Dim Values As List
    Values.Initialize
    Do While Matcher.Find
        If Not(Matcher.Group(2) = Null) Then Values.Add(Matcher.Group(2))
        If Not(Matcher.Group(3) = Null) Then Values.InsertAt(0,Matcher.Group(3))
    Loop
    Return Values
End Sub
B4X: 
Call B4XPages.GetManager.LogEvents = True to enable logging B4XPages events.
Tarea 1 2
Nombre Apellido
Origen 1 2
--------------------
Tarea 1 2
Origen 1 2
Nombre Apellido
--------------------
Tarea 1 2
Origen 1 2
Nombre Apellido
--------------------
Tarea 1 2
Nombre Apellido
Origen 1 2
--------------------
Tarea 1 2
Origen 1 2
Nombre Apellido
--------------------
Tarea 1 2
Nombre Apellido
Origen 1 2
--------------------
 
Upvote 0
You must log in or register to reply here.

Similar Threads

ivan.tellez
  • Question Question
Android Question Help with RegEx and
Replies
5
Views
4K
Erel
Erel
Erel
  • Article Article
B4A Library [B4X] RegexBuilder - Builder for Regular Expressions
Replies
4
Views
12K
Erel
Erel
S
  • Question Question
Android Question [SOLVED]Regex help
Replies
2
Views
3K
stanks
S
tunderin
  • Question Question
Regex help please...
Replies
4
Views
3K
tunderin
tunderin
walterf25
  • Question Question
Help with Regex
Replies
2
Views
2K
Ohanian
Ohanian
Back
Top