Android Question Getting the length of a multi-dimensional array

[wonder]

So I have the following (x, y) array:

Dim MyArray(10, number_of_elements) as Int

Where the number of elements is defined by the user.

When using the MyArray.Lenght property, I get the number 10.
How to get the lenght of the array's Y dimension through .lenght?

 

[eurojam]

Try

Dim MyArray(10, 20) As Int
Dim r As Reflector
Dim dims(0) As Int
r.Target = MyArray
dims = r.TargetRank
Log("array dimension: " & dims.Length & " Bounds " & dims(0) & " " & dims(1))

 

[wonder]

I've tried it out and it works!! Thank you so much, just what I needed.
I took the liberty to create 2 functions based on your code, eurojam:
https://www.b4x.com/android/forum/threads/array-tools-getdimsize-and-getsize.54664/

Thanks once again.

 

[eurojam]

Wonder,
there is no magic within this code. It uses the possibility of java called reflection which let you examine java classes at runtime, but this you already knows. And it is not my code, "big brother" google found it for me....but thanks for the honor

stefan

 

[RB Smissaert]

Try

Dim MyArray(10, 20) As Int
Dim r As Reflector
Dim dims(0) As Int
r.Target = MyArray
dims = r.TargetRank
Log("array dimension: " & dims.Length & " Bounds " & dims(0) & " " & dims(1))

Sub GetArrayInfo(oArray As Object) As Int()

Dim i As Int
Dim r As Reflector
Dim dims() As Int

r.Target = oArray
 dims = r.TargetRank
 Dim arrInt(dims.Length + 1) As Int
arrInt(0) = dims.Length

For i = 0 To dims.Length -1
arrInt(i + 1) = dims(i)
Next

Return arrInt

End Sub

RBS

 

[RB Smissaert]

Sub GetArrayInfo(oArray As Object) As Int()

Dim i As Int
Dim r As Reflector
Dim dims() As Int

r.Target = oArray
 dims = r.TargetRank
 Dim arrInt(dims.Length + 1) As Int
arrInt(0) = dims.Length

For i = 0 To dims.Length -1
arrInt(i + 1) = dims(i)
Next

Return arrInt

End Sub

RBS

Replying to conversation from Exemes regarding this:

Yes, still working fine, using Reflection library 2.4:

Sub GetArrayInfo(oArray As Object) As Int()

    Dim i As Int
    Dim r As Reflector
    Dim dims() As Int

    r.Target = oArray
    dims = r.TargetRank
    Dim arrInt(dims.Length + 1) As Int
    arrInt(0) = dims.Length

    For i = 0 To dims.Length -1
        arrInt(i + 1) = dims(i)
    Next

    Return arrInt

End Sub

Sub TestArrayDims
    
    Dim i As Int
    Dim arr2D(4,2) As String
    Dim arrInt() As Int = GetArrayInfo(arr2D)
    
    For i = 0 To arrInt.Length - 1
        Log("arrInt(" & i & "): " & arrInt(i))
    Next

End Sub

RBS