get items, regex

[Cor]

item1,item2,item3

how to get item1,item2,item3 with regex

item=regex.split(",")


grCor

 

[derez]

Dim str() as string

str = regex.split(",", somestring)
item1 = str(0)
item2 = str(1)
...

 

[Erel]

Try the regular expressions tutorial: http://www.b4x.com/forum/basic4andr...orials/7123-regular-expressions-tutorial.html

 

[Cor]

line is one of the following
Aarle-rixtel,1
Alphen nb,1

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

 

[Cor]

seems that if we want 2 second item we need an extra comma at the end

but how to get without extra comma?

 

[Erel]

There is no need to have an extra comma.
Did you try the examples in the tutorial: http://www.b4x.com/forum/basic4andr...orials/7123-regular-expressions-tutorial.html

 

[Cor]

yes, i have tried

when i put an extra comma at the end then i get the second item

item1,item2

splitString(0) and splitString(1) returns item1

when using extra comma at the end then
splitString(0) returns item1 and splitString(1) returns item2

--- it works if you convert it to a list---

Dim l As List
l.Initialize2(numbers)

 

[agraham]

As Erel said, there is no need for a comma at the end. This works as expected for me.

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)

 

[Cor]

not if you read items from a text file

below works if you use sList as list, not working if using string

You are right if you use:

splitLine=Regex.Split(",",line)
gemeente=splitLine(0) ' returns "Aarle-rixtel"
clubs=splitLine(1) ' returns 1 as expected

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

 

[Erel]

Can you post a small program (with the text file)?

 

[Cor]

I will post it this evening, thanks

 

[Cor]

Problem solved,

My editor editplus saved it as standard ANSI

Changed to UTF8 and it worked.

So when using text files with android I think always save it as UTF8

notepad saves it also as default to ANSI, so this will also fails