line is one of the following
Aarle-rixtel,1
Alphen nb,1
B4X:
dim splitLine() as string
splitLine=Regex.Split(",",line)
gemeente=splitLine(0)
clubs=splitLine(1) ' should show 1 , but shows name
' shows both the first item
As Erel said, there is no need for a comma at the end. This works as expected for me.
B4X:
Dim splitLine() As String
line = "Aarle-rixtel,1"
splitLine=Regex.Split(",",line)
gemeente=splitLine(0) ' returns "Aarle-rixtel"
clubs=splitLine(1) ' returns 1 as expected
Msgbox(clubs, gemeente)
clubList=File.readlist(File.DirAssets,"brabant.txt")
For cnt = 0 To clubList.Size-1
line=clubList.Get(cnt) ' splitLine(0), splitLine(1) does not work if reading from list
' line="item1,2,3" ' this works
If line.StartsWith(" ")=False Then
splitLine=Regex.Split(",",line)
sList.Initialize2(splitLine)
gemeente=sList.Get(0)
clubs=sList.Get(1)
listViewGemeente.Addtwolines2(gemeente,"Aantal clubs: " & clubs,cnt) ' set index of gemeente
End If