Arrays

[a_bubas_sign]

What is the simplest way to move a single dimension array into the column (or row) of a two dimensional array?

[Jos]

Dim $aIn[10] 
Dim $aOut[10][2]

; fill $aIn with something

for $x = 0 to ubound($aIn) -1
    $aOut[$x][0] = $aIn[$x]
Next

EDIT: Added -1 on the For statement

Edited May 14, 2004 by JdeB

[Valik]

I think JdeB meant UBound($aIn) - 1, otherwise you will get an overflow error.

[Jos]

yea Valik is Right ...

... I should do the testing before posting

[a_bubas_sign]

Thanks guys I am already doing something similar. Guess I should have posted the code. I was using the "While . . . Wend" statement set. Is the "For . . . Next" any faster? I was actually hoping there was a way do this on one line of code like a simple assignment : $2darray[1] = $1darray but I guess that would be to easy.

Thanks again.

Edited May 14, 2004 by a_bubas_sign