is there a clever way to extract one dimension of a multidim array ?

[Edano]

what i mean is:

Dim $array1[24][1000]

define a new array $array2[1000] out of $array1 2nd (or other) dimension.

do i need to loop it out or is there a cleverer way ?

thx E.

[water]

You have to create a new array and fill it by looping through $array1.

[Edano]

  On 6/9/2013 at 11:27 AM, water said:

You have to create a new array and fill it by looping through $array1.

.

i hoped there would be something smarter.   thx very much

[water]

You code it once and the problem is solved. Speed isn't an issue with about 1000 records to copy.

[jchd]

You can try this (partially tested only):

[Edano]

thx.

[jchd]

Sorry for my previous dry post, I had to move quickly.

The attached UDF offers functions to extract sub-arrays from arrays up to 4D. It also has transposition functions.

[AZJIO]

Edano,

$array2 = $array1
ReDim $array2[1][1000]

Edited June 9, 2013 by AZJIO

[Malkey]

 Here is a working example.

#include <Array.au3>

; Reminder:-
;      Local array  [No. of rows (1st dimension)]   [No. of column (2nd dimension)]
;            UBound($array1) gets size of 1st Dim    UBound($array1, 2) gets size of 2nd Dimension

Local $array1[4][6] = [[0, 1, 2, 3, 4, 5],[6, 7, 8, 9, 10, 11],[12, 13, 14, 15, 16, 17],[18, 19, 20, 21, 22, 23]]
_ArrayDisplay($array1)

; ------------ Get Row -------------
Local $iGetRowNumber = 2 ; Base 0
If $iGetRowNumber > UBound($array1) - 1 Then $iGetRowNumber = UBound($array1) - 1
Local $arrayR[UBound($array1, 2)]
For $i = 0 To UBound($array1, 2) - 1
    $arrayR[$i] = $array1[$iGetRowNumber][$i] ; Get row
Next
_ArrayDisplay($arrayR, "Row #" & $iGetRowNumber)


; ------------ Get Column -------------
Local $iGetColNumber = 3 ; Base 0
If $iGetColNumber > UBound($array1, 2) - 1 Then $iGetColNumber = UBound($array1, 2) - 1
Local $arrayC[UBound($array1)]
For $i = 0 To UBound($array1) - 1
    $arrayC[$i] = $array1[$i][$iGetColNumber] ; Get column
Next
_ArrayDisplay($arrayC, "Column #" & $iGetColNumber)

[Edano]

  On 6/9/2013 at 6:09 PM, AZJIO said:

 

Edano,

$array2 = $array1
ReDim $array2[1][1000]

.

that was the solution i finally used. simply clone the array and forget the first dimension. ockham's razor.

.