Help me add 2 array

[LeThanh201]

Hi, all!

I have 2 arrays 1D but I can't concatenate that they are in 2 different columns(as 2D array). Help me, please!!!

[Manko]

Hi, all!

I have 2 arrays 1D but I can't concatenate that they are in 2 different columns(as 2D array). Help me, please!!!

Hi!

Redim $somearray[Ubound($somearray,1)][2]oÝ÷ Úf¤zË(æ«­¬¶w­kÚ笶§Ê¡j÷­¢j/zö¥¹ë"Ú-ërݲZ-~º&¶¨¶«jºÚÊ)Ú~å¢ZºÚ"µÍÜ  ÌÍÚÏLÈXÝ[
    ÌÍÜÛÛYX^KJKLB  ÌÍÜÛÛYX^VÉÌÍÚ×VÌWOIÌÍÜÛÛY[Ý^VÉÌÍÚ×B^

maybe you should also check which array is longer, if not equal, and use that for main...

/Manko

Edited November 24, 2008 by Manko

[Malkey]

This seems to work

#include <array.au3>

Local $aArray1[15] = [1, 3, 4, 5, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25]
Local $aArray2[9] = ["A", "B", "C", "D", "E", "F", "G", "H", "I"]

$ans = _Join2ArraysTo2dArray($aArray1, $aArray2)
_ArrayDisplay($ans)

Func _Join2ArraysTo2dArray(ByRef $array1, ByRef $array2)
    If UBound($array2) > UBound($array1) Then       
        Local $results[UBound($array2)][2]
        Local $iSize = UBound($array2) - 1
    Else
        Local $results[UBound($array1)][2]
        Local $iSize = UBound($array1) - 1
    EndIf

    For $i = 0 To $iSize
        If UBound($array1) > $i Then $results[$i][0] = $array1[$i]
        If UBound($array2) > $i Then $results[$i][1] = $array2[$i]
    Next
    Return $results
EndFunc   ;==>_Join2arraysTo2dArray

[LeThanh201]

Succeed!!!

Thanks for all, my friends!