StringSplit end file .CSV

[trescon]

So if my file. Csv 'consists of 200 lines, for example, Excel spreadsheet, and 10 records per line (so I hypothetically 2000 information to manage) and I to be able to read the file and attach it to an array I have to make a loop if -then to find the end of the file, to associate the data mono dimensional array.

Then I do two concentric cycles to split the file you just extracted in a two-dimensional array (eg $ read [200] [10] as a maximum), in practice I had read the first 10 variables of the variable $ read [] and put them in the variable $ read1 [0] [0 ... 9], increasing the value of a unit size of the second row and read the information and riassiociarle 10 .... Right?.

$read=StringSplit(FileRead("ieri.csv"), ";")

Exsample file "ieri.csv" :

004100;000145;1;;;20120714

004100;000575;1;;;20120714

004100;001546;2;;;20120714

004100;001547;2;;;20120714

Program of test :

$read=StringSplit(FileRead("ieri.csv"), ";")

MsgBox(0,"read0",$read[0])

MsgBox(0,"read1",$read[1])

MsgBox(0,"read2",$read[2])

MsgBox(0,"read3",$read[3])

MsgBox(0,"read4",$read[4])

MsgBox(0,"read5",$read[5])

MsgBox(0,"read6",$read[6]) <--

MsgBox(0,"read7",$read[7]) <--

$A=($read[0]-1)/6

MsgBox(0,"$a",$A)

I have noticed that practically the variable $ read [6] contains both the value 20120714 of the first row is the value 004 100 of the second row (which would be the variable $ read [7]

In practice, the procedure works, but interprets the first line as the last field of the last real + the first of the next line.

I understand that the command interprets the lack of ";" at the end of the first line as a line not over until you reach the first ";" useful.

How can 'solve the problem, since all the files. Csv with which I will have to' work are missing a ";" at the end of the line?

Help Me !!

Thank you

[JohnOne]

_FileReadToArray()

[water]

To read a CSV file into a two dimensional array I use functions by ProgAndy.

Edited July 20, 2012 by water

[czardas]

There's a few scripts for reading CSV in example scripts forum. Here's two.

And the one by Progandy already posted by Water.

Edited July 20, 2012 by czardas

[Zedna]

$lines = StringSplit(FileRead("file.csv"), @CRLF, 1)
For $i = 1 To $lines[0]
    ConsoleWrite('line:' & $i & ' ')
    $columns = StringSplit($lines[$i], ";")
    For $j = 1 To $columns[0]
        ConsoleWrite('col' & $j & ':' & $columns[$j] & ' ')
    Next
    ConsoleWrite(@CRLF)
Next

Edited July 20, 2012 by Zedna

[trescon]

$lines = StringSplit(FileRead("file.csv"), @CRLF, 1)
For $i = 1 To $lines[0]
ConsoleWrite('line:' & $i & ' ')
$columns = StringSplit($lines[$i], ";")
For $j = 1 To $columns[0]
ConsoleWrite('col' & $j & ':' & $columns[$j] & ' ')
Next
ConsoleWrite(@CRLF)
Next

$Art = StringSplit(FileRead("C:\AutoIt\AutoIt\Prove\exp.txt"),@CRLF, 1)
For $f = 1 To $Art[0]
    ;ConsoleWrite('line:' & $f & ' ')
    $columns = StringSplit($Art[$f], ";")
    For $g = 1 To $columns[0]
      ; ConsoleWrite('col' & $g & ':' & $columns[$g] & ' ')
  $articoli[$f][$g] =$columns[$g]

    Next
  
Next

Hi, the routine that I had suggested to a month ago. CSV file now I've tried to use a file. TXT.

So okay to extrapolate the lines, but does not work to extrapolate the columns, or rather extrapolates only 2.

There are weeks that brooding but I could not figure out why and then ask for help to the creator of the routine.

I enclose a small part of the file for the actual is 90,000 rows.

It works the same way for both the original file and the part that I have attached.

Can you help me?

Thanksexp.txt

Edited January 21, 2013 by trescon

[kylomas]

trescon,

When I run the data you posted through the code zedna gave you I get 8 lines of 134 columns each. What EXACTLY is the problem?

kylomas

[trescon]

trescon,

When I run the data you posted through the code zedna gave you I get 8 lines of 134 columns each. What EXACTLY is the problem?

kylomas

The problem is that if I am going to check the variables $ art [0] have the right value of rows, I'll check if the variable $ columns [0] the value I get is 1 or 2 (can't remember now) instead of about 20/25 columns.

Why???

Thank you

[BrewManNH]

Slightly modified version of Zedna's code. This should split the file you posted to a 2D array. As long as every line has the same number of elements to split this should work fine for you.

#include <array.au3>
#include <file.au3>
Local $Art
_FileReadToArray(@ScriptDir & "\exp.txt", $Art) ; reads the file and puts it into $Art
If Not @error Then
     $columns = StringSplit($Art[1], ";") ; find out how many columns there are
     Local $aArt[$Art[0]][$columns[0]] ; create a new array to hold the split file
     For $i = 1 To $Art[0]
          $columns = StringSplit($Art[$i], ";")
          For $j = 1 To $columns[0]
               $aArt[$i - 1][$j - 1] = $columns[$j] ; put the contents of each line into the array $aArt
          Next
     Next
     _ArrayDisplay($aArt) ; display the results, not needed for the function.
EndIf

[guinness]

And this >>

So many options, you just have to search.

[trescon]

Slightly modified version of Zedna's code. This should split the file you posted to a 2D array. As long as every line has the same number of elements to split this should work fine for you.

#include <array.au3>
#include <file.au3>
Local $Art
_FileReadToArray(@ScriptDir & "\exp.txt", $Art) ; reads the file and puts it into $Art
If Not @error Then
$columns = StringSplit($Art[1], ";") ; find out how many columns there are
Local $aArt[$Art[0]][$columns[0]] ; create a new array to hold the split file
For $i = 1 To $Art[0]
$columns = StringSplit($Art[$i], ";")
For $j = 1 To $columns[0]
$aArt[$i - 1][$j - 1] = $columns[$j] ; put the contents of each line into the array $aArt
Next
Next
_ArrayDisplay($aArt) ; display the results, not needed for the function.
EndIf

Hi, the program works well with the test file, if I put the actual files, which are about 70,000 rows I get the following error.

I should add that I have dimensioned the array $aArt [10000] [100]

The error does not change.

Why?

Thanks

C:AutoItAutoItProveGiacenzecafronto.au3 (11) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:

$aArt[$i - 1][$j - 1] = $columns[$j]

^ ERROR

->07:22:45 AutoIT3.exe ended.rc:1

>Exit code: 1 Time: 12.330

Edited January 22, 2013 by trescon

[guinness]

My code works. But anyway, upload a sample files so we can test.

[BrewManNH]

There was a warning posted in the message about the code I posted. If every line doesn't have the same amount of columns, then this won't work. It was an example of how it can be done, if you've got lines that have less splits, you're going to get that error. Also, I don't check for blank lines.