Reading lines into a multi-dimension array

[CmdrVimes]

I've got a CSV file I'm trying to read in. Each line in the file should be a separate entry in the array such that the sample file of

20,1,2,3,4,5,6,7,8
30,1,2,3,4,5,6,7,8
40,1,2,3,4,5,6,7,8

should be a 3x9 array and "look" like this:

[(20,1,2,3,4,5,6,7,8)
(30,1,2,3,4,5,6,7,8)
(40,1,2,3,4,5,6,7,8)]

My code is as follows:

dim $testArray[1][9]
while 1
  $testCase = FileReadLine($testFile)
  if @error = -1 then ExitLoop
  $testArray[$i] = StringSplit($testCase, ",")
  $i = $i + 1     ;Increment $i
  redim $testArray[$i][9]
WEnd

I keep getting this error:

Main.au3 (188) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$testArray[$i] = StringSplit($testCase, ",")
^ ERROR
->14:14:39 AutoIT3.exe ended.rc:1

No matter what variable I change in the $testarray[1][9] bit, it doesn't work, even if I remove the redim and only read in 1 line.

Would appreciate some help on this

[UEZ]

Try this here:

Br,

UEZ

Edited August 13, 2012 by UEZ

[water]

Please check this You'll find a function to read a CSV file into a 2D-array.

[CmdrVimes]

I followed both of the above links and sort of followed what was going on, but found it a bit confusing, so I've attempted my own thing and it sort of works:

$dummyArray = StringSplit($testCase, ",")
  for $j = 1 to $j = 9 step 1
   MsgBox(0,"loopy","entered j")
   $testArray[$i][$j] = $dummyArray[$j]
  Next

It compiles fine. New problem though. If the code is as it is above, it never enters the for loop. If I change it to be "For $j = 0 to..." then it throws up the same incorrect number of subscripts error, regardless of what I change any $j values you (i.e. $testArray[$i][($j+1)] etc)

[Mechaflash]

Threw in some _ArrayDisplay() to check the output.

#include <File.au3>
#include <Array.au3>

Global $file = @DesktopDir & "/test.txt", $iLineCount = _FileCountLines($file), $aiOutput[$iLineCount][999], $asReadLines
_FileReadToArray($file, $asReadLines)
_ArrayDisplay($asReadLines)
$x = -1
$iMaxLines = 0
For $line in $asReadLines
    If $x = -1 Then
        $x+=1
    Else
        $aiDelimited = StringSplit($line, ",", 0)
        _ArrayDisplay($aiDelimited)
        If $aiDelimited[0] > $iMaxLines Then $iMaxLines = $aiDelimited[0]
        For $i = 1 to $aiDelimited[0]
            $aiOutput[$x][$i - 1] = $aiDelimited[$i]
        Next
        $x+=1
    EndIf
Next
ReDim $aiOutput[$iLineCount][$iMaxLines]
_ArrayDisplay($aiOutput)

Edited May 14, 2012 by mechaflash213

[UEZ]

Well, when I use this code with Text.csv as a text file with the content from post#1

#include <array.au3>
#include "StringSplitW.au3"

Global $csv = FileRead("Text.csv")
$aS = StringSplitW($csv, ",")
_ArrayDisplay($aS)

I will get the 2d array appropriately.

StringSplitW.au3 is from the link I posted (For 2D arrays:)

Br,

UEZ

Edited May 14, 2012 by UEZ

[Mechaflash]

Well, when I use this code with Text.csv as a text file with the content from post#1

#include  #include "StringSplitW.au3" Global $csv = FileRead("Text.csv") $aS = StringSplitW($csv, ",") _ArrayDisplay($aS)

I will get the 2d array appropriately. StringSplitW.au3 is from the link I posted (For 2D arrays:) Br, UEZ

I'm claiming native support

[CmdrVimes]

I managed to get one of the modules I was linked to work. It's more or less what I was trying to do, but with a naming convention I don't like. Half tempted to try and change things, but probably won't

Thanks for the help