_FileReadToArray + 2D Array..?

[cypher175 2]

How can I read a .txt file into a 2D Array that's formatted like this..??

The spaces are TABS.

ABC 123 DEF 456 GHI
ABC 123 DEF 456 GHI
ABC 123 DEF 456 GHI
ABC 123 DEF 456 GHI
ABC 123 DEF 456 GHI

[Melba23 3,457]

cypher175,

- Read the file into an initial array using _FileReadToArray

- Create a second array with the right number of dimensions

- Split each element of the first array (i.e. each line) with StringSplit using @TAB as the delimiter

- Transfer the elements of the StringSplit array into the correct places in the second

Job done.

M23

[Realm 18]

cypher175,

BugFix wrote a couple functions pertaining to File Read/Write with 2D, his original post can be found #394415

Other than that, the only way I could suggesting is looping FileReadLine() than splitting and adding to the array

Example:

#include <File.au3>
#include <Array.au3>
Local $myFile="MyFile.txt"
$file=FileOpen($myFile,1)
$fileLines=_FileCountLines($myFile)
Local $myArray[$fileLines][5]
For $a=1 To $fileLines
    $line=StringSplit(FileReadLine($myFile,$a),@TAB)
    $myArray[0] = $line[1]
    $myArray[1] = $line[2]
    $myArray[2] = $line[3]
    $myArray[3] = $line[4]
    $myArray[4] = $line[5]
Next

FileClose($file)

_ArrayDisplay($myArray,"My Array")

I did not test the script, but in theory it should work. It will probably be slow if you are working with very large files.

Edit: Melba23's suggestion would more than likely be faster than the example I have provided.

Edited October 1, 2010 by Realm

[water 2,391]

If every row has the same number of elements but you don't know how many elements each row has then this should work:

#include <file.au3>
#include <array.au3>
Global $aInFile
_FileReadToArray("C:\temp\test.txt", $aInFile)
$aDimension = StringSplit($aInFile[1], @TAB)
Global $aOutArray[$aInFile[0] + 1][$aDimension[0]]
For $iIndex1 = 1 To $aInFile[0]
    $aRecord = StringSplit($aInFile[$iIndex1], @TAB)
    For $iIndex2 = 0 To $aRecord[0]-1
        $aOutArray[$iIndex1][$iIndex2] = $aRecord[$iIndex2+1]
    Next
Next
$aOutArray[0][0] = $aInFile[0]
$aOutArray[0][1] = $aDimension[0]