B4A Library Grid/Table and ListView Library

Sub bt_test_click
Dim col As Int
col = 4

Dim kZeile  As String
kZeile  = "a;b;c;d"

' split into fZeile() 
Dim fZeile() As String
fZeile = Regex.Split(";", kZeile )

' copy from fZeile() to aSpalten()
Dim aSpalten(fZeile.Length) As String
For i = 0 To fZeile.Length - 1 
    aSpalten(i) = fZeile(i) 
Next

' ok 4 items
Log ( fZeile.Length )

' ok 4 items
Log ( aSpalten.Length )

' copy to aResult() 
Dim aResult() As String
aResult = Array As String ( aSpalten )

' only 1 item
Log ( aResult.Length )

Log ( "----------------" )

' --------------------------
Dim col As Int
col = 4

Dim kZeile  As String
kZeile  = "a;b;c;d"

' split into fZeile() 
Dim fZeile() As String
fZeile = Regex.Split(";", kZeile )

If fZeile.Length = col Then
   ' copy to aResult() 
   Dim aResult(fZeile.Length) As String
   For i = 0 To fZeile.Length - 1 
       aResult(i) = fZeile(i) 
   Next
   
   ' ok 4 items
   Log ( aResult.Length )

End If

End Sub

Dim Tr As TextReader
Dim kZeile As String
Dim aSpalten(col) As String col is a known index

Tr.Initialize(File.OpenInput(File.DirAssets, "demo.txt"))
kZeile = Tr.ReadLine
Do While kZeile <> Null
Dim fZeile() As String
If kZeile.Length > 0 Then
    fZeile=Regex.Split(";", kZeile)
    If fZeile.Length = col Then
        Tabelle.AppendRow(fZeile) 
    End If
End If   
kZeile = Tr.ReadLine   
Loop
Tr.Close

rs = Tabelle.RowsSelected(i)
For p = 0 To Tabelle.ColCount - 2
kZeile= kZeile & Tabelle.GetValue(rs,p) & ";"
Next

   Dim cc(4) As xnGridCol

   cc(0).Initialize2 ( "Cod." , "cod" , 40dip , Gravity.LEFT )
   gg.AppendCol ( cc(0) )

   cc(1).Initialize2 ( "Des." , "des" , 120dip , Gravity.LEFT )
   gg.AppendCol ( cc(1) )

   cc(2).Initialize2 ( "Grp." , "grp" , 60dip , Gravity.LEFT )
   gg.AppendCol ( cc(2) )

   cc(3).Initialize2 ( "Other" , "other" , 100dip , Gravity.LEFT )
   gg.AppendCol ( cc(3) )

gg.AppendRow ( Array As String ( "1" , "1" , "1" , "1" ) )
gg.AppendRow ( Array As String ( "2" , "2" , "2" , "2" ) )

Dim m As Map
m.Initialize
m.Put("cod","a")
gg.MapAppendRow(m)
m.Initialize
m.Put("des","b")
gg.MapAppendRow(m)