Read Write Multi-Dimentional Array to file

[Crazyd]

So I've been working on reading and writing an array to file.

Seemingly I've got it working but I was wondering if there was a better way.

So here is the only way I've figured out how to do it. Please let me know if there is a better way.

expandcollapse popup

Dim $MainArray[45][51]
Dim $RecordCount, $MaxRec = 45, $MaxPerArray = 50

ArrayLoad()
ArrayWrite()
Func ArrayLoad()                                                            ; Load the array from File
    Local $ReadArray, $SplitRead, $sFile = @ScriptDir & "\RefUSA.inf", $Message, $Read 
    $Read = _FileReadToArray($sFile, $ReadArray)
    $RecordCount = 0

    if $Read = 1 Then
        if $ReadArray[0] > $MaxRec Then $ReadArray[0] = $MaxRec                 ;Limits File Read to $MaxRec Records

        For $x = 1 to $ReadArray[0]
            $SplitRead = StringSplit($ReadArray[$x], @tab, 1)
            
            if $SplitRead[0] > $MaxPerArray Then $SplitRead[0] = $MaxPerArray   ;Limits File Read to $MaxPerArray Records

            For $Y = 1 to $SplitRead[0]
                $MainArray[$X-1][$Y-1] = $SplitRead[$Y]
            Next
            $RecordCount = $x
        Next
    Else
        MsgBox( 0, "Error Missing File", "Mouse Location and Color File missing or Corrupt")
        ManualLoad()
    EndIf
_ArrayDisplay($MainArray, "$MainArray AFTER _FileReadToArray()")
EndFunc
Func ArrayWrite()
    Local $GFX[$MaxPerArray], $ArrayLine[1], $SplitRead, $sFile = @ScriptDir & "\RefUSA.inf", $Test
    
    for $Y = 0 to $RecordCount-1
    
        For $X = 0 to $MaxPerArray-1
            $GFX[$X] = $MainArray[$Y][$X]
        Next
        
        If $Y = 0 Then
            $ArrayLine[0] = _ArrayToString($GFX,  @TAB)
        Else
            _ArrayAdd($ArrayLine,_ArrayToString($GFX,  @TAB))
        EndIf
    Next
    _FileWriteFromArray( $sFile, $ArrayLine)
    _ArrayDisplay($ArrayLine, "$ArrayLine AFTER _FileWriteFromArray", $RecordCount-1)
EndFunc
Func ManualLoad()
        Global $MainArray[4][51] = [["1280x1024_Server_Com",215, 420, "000000", "FFFFFF", 228, 427, 265, 673, 325, 380, 689, 280, 18, 43, _
        955, 360, 905, 395, "FFFFFF", 943, 356, "F5F2F1", 905, 315, 905, 395, "F5F2F1", 888, 315, "F5F2F1", _
        975, 351, 750, 400, "FFFFFF", 975, 351, "F5F2F1", 870, 282, 750, 400, "FFFFFF", 820, 283, "F5F2F1", _
        927, 353, "3FAA37"], _
        ["1366x768_Server_Com",256, 420, "000000", "FFFFFF", 228, 427, 262, 673, 325, 380, 689, 280, 22, 45, _
        955, 360, 905, 395, "FFFFFF", 943, 356, "F5F2F1", 905, 315, 905, 395, "F5F2F1", 888, 315, "F5F2F1", _
        975, 351, 750, 400, "FFFFFF", 975, 351, "F5F2F1", 870, 282, 750, 400, "FFFFFF", 820, 283, "F5F2F1", _
        975, 351, "3FAA37"], _ 
        ["1366x768_Server_Resi",257, 428, "000000", "FFFFFF", 263, 453, 263, 696, 374, 358, 689, 280, 22, 45, _
        990, 342, 900, 411, "FFFFFF", 990, 342, "F5F2F1", 924,318, 900, 411, "F5F2F1", 924, 318, "F5F2F1", _
        975, 351, 750, 400, "FFFFFF", 975, 351, "F5F2F1",870, 282, 750, 400, "FFFFFF", 820, 283, "F5F2F1", _
        975, 351, "3FAA37"], _
        ["1280x1024_Win7_Com",216, 427, "F8F9FA", "F5F5F5", 226, 432, 265, 673, 325, 380, 689, 280, 18, 43, _
        955, 360, 905, 395, "FFFFFF", 943, 356, "F5F2F1", 905, 315, 905, 395, "F5F2F1", 888, 315, "F5F2F1", _
        927, 353, 750, 400, "FFFFFF", 975, 351, "F5F2F1", 870, 282, 750, 400, "FFFFFF", 820, 283, "F5F2F1", _
        927, 353, "3FAA37"]]
    $RecordCount = 4
EndFunc

[LurchMan]

#include <file.au3>
_FileReadToArray ()
_FileWriteFromArray ()

[BrewManNH]

If you look at my signature, you'll see a link to a modified version of the Array.au3 file, in that thread, in the first post, there's a modified _FileWriteFromArray that works with 2D arrays that might be helpful to you. The standard _FileWriteFromArray only works for 1D arrays.