converting multidimensional arrays

ok, now that i have my question about defining multidimensional arrays, how do i convert them. i really just want to know how to convert a 3d array into 2d, as well as a 2d array into a 1d. (im not going to bother converting 3d to 1d, b/c that would be too long of an array when i would rather deal with it in 2d)

example

2d to 1d


visual basic code:--------------------------------------------------------------------------------
dim MyArray(2,2)
dim MyOneDArray(8)
MyOneDArray(0) = MyArray(0,0)
MyOneDArray(1) = MyArray(1,0)
MyOneDArray(2) = MyArray(2,0)
MyOneDArray(3) = MyArray(0,1)
MyOneDArray(4) = MyArray(1,1)
MyOneDArray(5) = MyArray(2,1)
MyOneDArray(6) = MyArray(0,2)
MyOneDArray(7) = MyArray(1,2)
MyOneDArray(0) = MyArray(2,2)
--------------------------------------------------------------------------------


but, ya know, i want to work with a much larger array conversion, and id dont want to have to type all that out...

Use some multiplication and addition.

VB Code:

Const X_MAX As Integer = 10
Const Y_MAX As Integer = 20
Dim Array1(X_MAX * Y_MAX) As Integer
Dim Array2(X_MAX, Y_MAX) As Integer
 
'Convert it in a loop something like this.
Array1(y * X_MAX + x) = Array2(x, y)

An n dimensional array is stored the same way. In practice you could use copymemory and varptrarray to just make the 1d array to point on the 2d array

Add two listboxes List1 & List2 and try this.

VB Code:

Option Explicit
 
Private myArray() As Long
Private myOneDArray() As Long
 
Private Sub Form_Load()
    Dim i As Long, j As Long
    ReDim myArray(2, 2)
    For i = 0 To 2
        For j = 0 To 2
            myArray(i, j) = i
            List1.AddItem myArray(i, j)
        Next
    Next
    myOneDArray = make1D(myArray)
    For i = 0 To UBound(myOneDArray)
        List2.AddItem myOneDArray(i)
    Next
End Sub
 
Private Function make1D(ByRef x() As Long) As Long()
    Dim retVal() As Long, i As Long, n As Long: ReDim retVal(2 ^ (UBound(x, 2) + 1))
    For i = 0 To UBound(retVal)
        retVal(i) = x(i \ (UBound(x, 2) + 1), i Mod (UBound(x, 2) + 1))
    Next
    make1D = retVal
End Function