Stringsplit error

[Erik.]

Hi,

This is my peace of code but i get the error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

This is my code:

For $i2 = 0 to IniRead($server & "\" & $map & "\members.dbs","aantal","1","")

$read2 = IniRead($server & "\" & $map & "\" & "members.dbs","members",$i2,"")

$split = StringSplit($read2,"-")

msgbox(0,"",$split[1])

If GUICtrlRead($voornaam) = $split[2] And GUICtrlRead($achternaam) = $split[3] Then

GUICtrlSetBkColor($voornaam,0xff0000);rood

GUICtrlSetBkColor($achternaam,0xff0000);rood

$read1 = GUICtrlRead($info)

GUICtrlSetData($info,"Voornaam/Achternaam (bestaat al)" & @CRLF & $read1)

MsgBox(48,"Error","013" & @CRLF & "Voornaam/Achternaam bestaat al")

$er3=1

ExitLoop

Else

GUICtrlSetBkColor($voornaam,0x00ff00);groen

GUICtrlSetBkColor($achternaam,0x00ff00);groen

$read1 = GUICtrlRead($info)

GUICtrlSetData($info,"Voornaam/Achternaam (goed)" & @CRLF & $read1)

$er3=0

EndIf

Next

EndIf

I don't know what i aim doing wrong...

This is my ini file:

[aantal]

1=0

[members]

1=0001-memberone-lastname

2=0002-membertwo-lastname

3=0003-memberthree-lastname

I want to get the string 2 and 3 member...-and lastname is there are the same as controlread the it is ok

But i get that error

I do not know what i am doing wrong

When i ask string[1] it works i get 0001 or someother but when i ask other string it won't work any more:(

Can someone help me please

[Nahuel]

IniRead always returns a string. Did you try it like this:

$number=IniRead($server & "\" & $map & "\members.dbs","aantal","1","")
For $i2 = 0 to Number($number)

[Erik.]

I will try to use it and i hope it will work.

The problem the string i get back needs to be psingsplitted again so i can get member name and lastname and carndnumber.

EDIT:

Still got the same error...

Edited November 22, 2007 by Erik.

[Nahuel]

This works fine for me:

$number = IniRead("test.ini", "aantal", "1", "")
For $i2 = 1 To Number($number)
    $read2 = IniRead("test.ini", "members", $i2, "")
    $split = StringSplit($read2, "-")
    MsgBox(0, "", $split[1])
    MsgBox(0, "", $split[2])
    MsgBox(0, "", $split[3])
Next

Test.ini

[aantal]
1=3
[members]
1=0001-memberone-lastname1
2=0002-membertwo-lastname2
3=0003-memberthree-lastname3

[Erik.]

still got the error:

$number=IniRead($server & "\" & $map & "\members.dbs","aantal","1","")

For $i2 = 0 to Number($number)

$read2 = IniRead($server & "\" & $map & "\" & "members.dbs","members",$i2,"")

$split = StringSplit($read2,"-")

MsgBox(0, "", $split[1])

MsgBox(0, "", $split[2])

MsgBox(0, "", $split[3])

Next

I realy don't know what i am doing wrong

[Jos]

there is no member 0 so maybe :

$read2 = IniRead($server & "\" & $map & "\" & "members.dbs","members",$i2+1,"")

or test for the $split[0] value being 3 before using $split[1] - $split[3]

Edited November 22, 2007 by Jos

[Erik.]

But it is still strange...

i used it before in my script and then it worked for me...

i will try this

[SmOke_N]

Replace MsgBox() with _ArrayDisplay() to see what the MsgBox() should be seeing, you should always see 3 elements for every example. (Just in case you don't know to do it, add #include <array.au3> at the top of your script).

[MrCreatoR]

Hi,

Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

You need to check if the function really return an array, or if it return that mutch elements...

For $i2 = 0 To IniRead($server & "\" & $map & "\members.dbs","aantal","1","")
    $read2 = IniRead($server & "\" & $map & "\" & "members.dbs","members",$i2,"")
    $split = StringSplit($read2, "-")
    
    If UBound($split) > 3 And GUICtrlRead($voornaam) = $split[2] And GUICtrlRead($achternaam) = $split[3] Then
        GUICtrlSetBkColor($voornaam,0xff0000);rood
        GUICtrlSetBkColor($achternaam,0xff0000);rood
        
        $read1 = GUICtrlRead($info)
        GUICtrlSetData($info,"Voornaam/Achternaam (bestaat al)" & @CRLF & $read1)
        MsgBox(48,"Error","013" & @CRLF & "Voornaam/Achternaam bestaat al")
        $er3=1
        ExitLoop
    Else
        GUICtrlSetBkColor($voornaam,0x00ff00);groen
        GUICtrlSetBkColor($achternaam,0x00ff00);groen 
        $read1 = GUICtrlRead($info)
        GUICtrlSetData($info,"Voornaam/Achternaam (goed)" & @CRLF & $read1)
        $er3=0
    EndIf
Next

[Erik.]

Hi,

Thats works fine thanks

I still do not know why that works and my solution not...

I used my solution above in my script and it works fine so i wanted to use it again but it wont work any more

but this works fine

Thanks!