6 Arrays in einem Array zusammenfügen?

.::Mignon::.

hi leute,

ich habe folgendes prog:

ich würde gerne 6 verschiedene arrays in ein array packen wie ja auch der titel schon verrät.

also ich hab:
Dim $Ardir1[10]
Dim $Ardir2[12]
Dim $ArReg1[8]
Dim $ArReg2[4]
Dim $ArReg3[8]
Dim $ArReg4[15]

und würde nun halt gerne wie ganzen inhalte alles array in ein neues array schreiben weiß aber nun nicht genau wie man das ohne großen auswand hinbekommen könnte.

hoffe mal das mit gehofen werden kann^^ (es eilt etwas weil ich morgen in urlaub fahr )

EDIT: am besten das alles in einer FOR das würde am besten passen glaub ich.

JanSchmidt

Hi Mignon,

hab mal ein bisschen rumprobiert, aber sieht schwer nach Bastelarbeit aus
Du mußt also die Arrays einzeln in das neue rüberpacken.

Hier mal grob der Ansatz

[autoit]

Dim $aNeu[6][15]

[/autoit][autoit][/autoit][autoit]

For $i = 1 To UBound( $Ardir1 )
$aNeu[1][$i] = $Ardir1[$i]
Next

[/autoit][autoit][/autoit][autoit]

For $i = 1 To UBound( $Ardir2 )
$aNeu[2][$i] = $Ardir2[$i]
Next

[/autoit][autoit][/autoit][autoit]

usw...

[/autoit]

Micha_he

Warum fängst Du nicht einfach mal an mit der For-Schleife ! Vorschlag z.B.:

[autoit]

Dim $ArrayOut[57]
$index = 0

[/autoit][autoit][/autoit][autoit]

For $i = 0 to UBound($Ardir1)-1
$ArrayOut[$index] = $ardir1[$i]
$index += 1
Next

[/autoit][autoit][/autoit][autoit]

; nächste For-Schleife u.s.w.

[/autoit]

Ist aber wie geasgt nur ein Ansatz und nicht getestet.

.::Mignon::.

ich hab ja auch sone ähnliche möglichkeit aber das is so umstänlich und unpraktisch darum hab ich ja auch was ganz einfahces gesucht.

hier meine löschung: (die aber auch doof is)

Spoiler anzeigen

[autoit]

#include <array.au3>
Dim $ArG[1]
For $a = 1 To $ArR1[0]
_ArrayAdd($ArG,$ArR1[$a])
Next
For $b = 1 To $ArR2[0]
_ArrayAdd($ArG,$ArR2[$b])
Next
For $c = 1 To $ArR3[0]
_ArrayAdd($ArG,$ArR3[$c])
Next
For $d = 1 To $ArR4[0]
_ArrayAdd($ArG,$ArR4[$d])
Next
For $e = 1 To $ArD1[0]
_ArrayAdd($ArG,$ArD1[$e])
Next
For $f = 1 To $ArD1[0]
_ArrayAdd($ArG,$ArD1[$f])
Next

[/autoit]

JanSchmidt

Ausser das ich nicht mit '_ArrayAdd()' sondern so wie Micha_he machen würde, geht es wohl nicht anders.
Also hast du es doch schon

**BugFix**

Nimm _Array2DJoin() aus meiner Signatur und füge in einer Schleife alle zueinander

.::Mignon::.

danke an alle die geantwortet haben. ich werde mir die beste lösung raus scuehn

**BugFix**

Hier mal als Code:

[autoit]

Dim $Ardir1[10]
Dim $Ardir2[12]
Dim $ArReg1[8]
Dim $ArReg2[4]
Dim $ArReg3[8]
Dim $ArReg4[15]
Dim $arALL[6]=[$Ardir1,$Ardir2,$ArReg1,$ArReg2,$ArReg3,$ArReg4]
For $i = 1 To UBound($arALL)-1
_Array2DJoin($arALL[0], $arALL[$i])
Next
; $arALL[0] (also $Ardir1) enthält dann alle Arrays

[/autoit]

**Greenhorn**

Habe mal eine ähnliche Func wie BugFix geschrieben ...

Spoiler anzeigen

[autoit]

; #FUNCTION# ;===============================================================================
;
; Name...........: _Array2D_FromArrays
; Description ...: Returns 2D Array from several Arrays
; Syntax.........: _Array2D_FromArrays($sArrays_n, $flag = 0)
; Parameters ....: $sArrays_n - String of Arraynames delimetered by |
; $flag - [optional] Sort Arrays by size. (Default = 0, Sort = 1)
; Return values .: Success - a two-dimensional Array.
; Failure - Returns 0 and Sets @Error:
; |0 - No error.
; |1 - Invalid string in $sArrays_n
; |2 - Invalid Array in $sArrays_n
; Author ........: Greenhorn
; Modified.......:
; Remarks .......: $arExample[0][0] contains number of elemants in first dimension,
; $arExample[0][1] contains number of elemants in second dimension.
; Related .......:
; Link ..........;
; Example .......; Yes
;
; ;==========================================================================================
Func _Array2D_FromArrays($sArrays_n, $flag = 0)