B4J Question Split

    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

    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

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]

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