B4J Question Split

[sdleidel]

hi...
I have different Output from my Database...
Sample:
12,23,,33,,,,1
14,,,3,18,,,
....
I Save the result as Array... and write the Array in a tableview...

When i use the regex.split,
the last fields are cut (18,,, ) and the Array is to small...
how i can fix it ?

I think i must write my own Split Routine

 

[ilan]

yes you are right there is an issue:

    Dim txt() As String = Array As String("12,23,,33,,,,1", "14,,,3,18,,,")
  
    For i = 0 To txt.Length-1
        Dim str() As String = Regex.Split(",",txt(i))
        For j = 0 To str.Length-1
            If str(j).Length = 0 Then
                Log("empty string")
            Else
                Log(str(j)) 
            End If
        Next
    Next

log:

Waiting for debugger to connect...
Program started.
12
23
empty string
33
empty string
empty string
empty string
1
14
empty string
empty string
3
18

maybe add a value at the end without counting it, something like this:

    Dim txt() As String = Array As String("12,23,,33,,,,1", "14,,,3,18,,,")
 
    For i = 0 To txt.Length-1
        txt(i) = txt(i) & ",end" 'update array line
        Dim str() As String = Regex.Split(",",txt(i))
        For j = 0 To str.Length -2 ' dont count the last value
            If str(j).Length = 0 Then
                Log("empty string")
            Else
                Log(str(j))   
            End If
        Next
    Next

Waiting for debugger to connect...
Program started.
12
23
empty string
33
empty string
empty string
empty string
1
14
empty string
empty string
3
18
empty string
empty string
empty string

 

[Erel]

See the documentation: https://www.b4x.com/android/forum/pages/results/?query=regex.split

Trailing empty matches will be removed.

You can add a "stub" element at the end and later discard it.

 

[sdleidel]

Hi Erel,
yes i have read the documentation.
A Option at the Split, that we can turn off the remove of emty matches would great...

 

[emexes]

This works for your demo data, returns only numbers, no blank entries?

Dim Lines() As String = Array As String("12,23,,33,,,,1", "14,,,3,18,,,")

For Each L As String In Lines
    Dim Numbers() As String = Regex.Split(",+", L)    'or Regex.Split("\D+", L)
    For Each N As String In Numbers
        Log("[" & N & "]")    'enclose in square brackets to ensure any spurious blank spaces or lines are exposed
    Next
Next

Program started.
[12]
[23]
[33]
[1]
[14]
[3]
[18]

 

[Erel]

He wants the empty elements to be kept.

Sub AppStart (Form1 As Form, Args() As String)
   Dim txt() As String = Array As String("12,23,,33,,,,1", "14,,,3,18,,,")
   For Each s As String In txt
       Dim split() As String = SplitWithAllElements(s)
       For Each n As String In split
           Log("n: " & n)
       Next
   Next
End Sub

Sub SplitWithAllElements(txt As String) As String()
   txt = txt & ",~"
   Dim s() As String = Regex.Split(",", txt)
   Dim s2(s.Length - 1) As String
   Bit.ArrayCopy(s, 0, s2, 0, s2.Length)
   Return s2
End Sub

 

[emexes]

He wants the empty elements to be kept.

Sorry, I got confused by the filtering-out of empty elements in post #2.

 

[sdleidel]

Perfect (-:
Thank you.

He wants the empty elements to be kept.

Sub AppStart (Form1 As Form, Args() As String)
   Dim txt() As String = Array As String("12,23,,33,,,,1", "14,,,3,18,,,")
   For Each s As String In txt
       Dim split() As String = SplitWithAllElements(s)
       For Each n As String In split
           Log("n: " & n)
       Next
   Next
End Sub

Sub SplitWithAllElements(txt As String) As String()
   txt = txt & ",~"
   Dim s() As String = Regex.Split(",", txt)
   Dim s2(s.Length - 1) As String
   Bit.ArrayCopy(s, 0, s2, 0, s2.Length)
   Return s2
End Sub