Hola Fivewinners.
Requiero conocer la longitud de las dos o tres dimensiones de un array.
Uso la funcion LEN() para conocer la longitud de la primer dimension, pero no se cono saber la longitud de la segunda y las subsecuentes.
Alguien conoce el truco ?
Saludos
#include "FiveWin.ch"
function Main()
local aArreglo := { { {1,2,3}, {1,2,3,4} }, {1,2,3,4,5}, { {1},{2},{3} } }
MsgInfo(Len(aArreglo))
MsgInfo(Len(aArreglo[1]))
MsgInfo(Len(aArreglo[1,1]))
MsgInfo(Len(aArreglo[1,2]))
MsgInfo(Len(aArreglo[2]))
MsgInfo(Len(aArreglo[3][1]))
return nildevtuxtla wrote:Hola Fivewinners.
Requiero conocer la longitud de las dos o tres dimensiones de un array.
Uso la funcion LEN() para conocer la longitud de la primer dimension, pero no se cono saber la longitud de la segunda y las subsecuentes.
Alguien conoce el truco ?
Saludos
#include "fivewin.ch"
Static nLen := 0
Function Main()
Local aPruebas := { { {1,2,3}, {1,2,3,4} }, {1,2,3,4,5}, { {1,2},{2},{5,4,3,2,1} } }
LenMulti( aPruebas )
? nLen
Return nil
Function LenMulti( aA )
Local x
For x = 1 to Len( aA )
if Valtype( aA[ x ] ) = "A"
LenMulti( aA[ x ] )
else
nLen++
endif
Next x
Return nil