multi-dimensional array to merged flat arrays.

[MvGulik]

Just something I got hooked on.

expandcollapse popup

;; converts any multi-dimensional array into a array consisting of merged single dimentional arrays.
;; basic version, using variables only when realy needed.
;; basic error/extended pass-on.
;; note: the code "For $var[array] ..." generates false AU3Check error. (before v3.3.1.4)
Func ArrayGetCell1(Const ByRef $loop, Const ByRef $array)
    Local $data, $sExec = '$array'
    For $i = 1 To UBound($loop) - 1
        $sExec &= '[' & String($loop[$i]) & ']'
    Next
    $data = Execute($sExec)
    If IsArray($data) Then $data = arrayConvert1($data) ;; do internal array's.
    Return SetError(@error, @extended, $data)
EndFunc
Func ArrayRecurse1(ByRef $loop, Const ByRef $array)
    Local $newArray[UBound($array, $loop[0])]
    Local $data
    For $loop[$loop[0]] = 0 To UBound($array, $loop[0]) - 1
        If UBound($array, 0) > $loop[0] Then ;; level up.
            $loop[0] += 1
            $data = ArrayRecurse1($loop, $array)
            If @error Then Return SetError(@error, @extended)
            $loop[0] -= 1
        Else ;; data collect.
            $data = ArrayGetCell1($loop, $array)
            If @error Then Return SetError(@error, @extended)
        EndIf
        $newArray[$loop[$loop[0]]] = $data
    Next
    Return SetError(@error, @extended, $newArray)
EndFunc
Func arrayConvert1($array)
    If Not IsArray($array) Then Return SetError(91,0,0)
    Local $loop[UBound($array, 0) + 1] = [1] ;; [dim_level_tracker, dim1_tracker, .. ,dimX_tracker]
    Local $newArray = ArrayRecurse1($loop, $array) ;; none byref.
    Return SetError(@error, @extended, $newArray) ;; none byref.
;~  $array = ArrayRecurse1($loop, $array) ;; byref.
;~  Return SetError(@error, @extended, (@error=0)) ;; byref.
EndFunc

---

#4: Same approach to multi-dimensional array's rolled into one function.

Edited October 25, 2009 by MvGulik

[picea892]

Hi

Can you explain why this is a benefit. I'm thinking of the arraysearch being one reason why you would do it, but wanted to know your rationale for developing it.

[MvGulik]

only rational reason I can think of is multi-array support for something like a data converter. like JSON.

---

I consider it more as a template to deal with arrays of unknown dimensions.

Edited October 24, 2009 by MvGulik

[Heron]

Hi,

I did something similar for displaying array (n-dimensional) contents in a debugger window. It converts to a string and is very compact, but then there is no error handling in the way you do.

Func _DispArr(ByRef $ar, ByRef $out, $d=0, $cnt=0)      ;display values of n-dimension array
    Local $res

    If $cnt = 0 Then Dim $cnt[UBound($ar, 0)]

    For $i = 0 to UBound($ar, $d+1)
        if $i = UBound($ar, $d+1) Then Return $d-1
        $cnt[$d] = $i
        if $d < UBound($ar, 0) - 1 Then $d = _DispArr($ar, $out, $d+1, $cnt)    ;recursive call
        if $d = UBound($ar, 0) - 1 Then
            $res = Execute("$ar[" & _ArrayToString($cnt,"][") & "]")
            $out &= @CRLF & StringTrimLeft($DBGident, 4) & "[" & _ArrayToString($cnt,"][") & "] " & _Type($res) & ' = ' & @TAB & _Value($res, true)
        EndIf
    Next
EndFunc

I think you have the same approach but I didn't study it. As usual I get headache wich these recursive things...

- Heron -

[MvGulik]

Yes, its the same approach.

Yours is however a lot nicer to look at.

Thanks for sharing it.