Acopy para matrices

[jose_murugosa]

Queridos compañeros del Foro,

Quisiera hacer una función parecida a Acopy pero para matrices.
La idea es que con ella se pueda hacer un "append" de una matriz a otra (de igual estructura).
He estado tratando de buscar el como, pero por el momento no he podido, quizá no dan las neuronas (los años pasan), si alguien lo ha hecho o tiene ideas para aportar, les quedo muy agradecido

[Willi Quintana]

Estimado, prueba esto....

Code: Select all  Expand view  RUN

Function ACOPYARRAY(aArr, nIni, nFin)
local nLen, nCont, aRet := {}
nLEN = LEN(aArr)
FOR nCont := nIni TO nFin
   AADD(aRet, aArr[nCont])
NEXT nCont

Return(aRet)
 

[JoseAlvarez]

aArray2 := aClone(aArray1)

[nageswaragunupudi]

aArray2 := aClone(aArray1)

Yes

[jose_murugosa]

Gracias Willi, Jose y Sr. Rao
Es muy bueno tener la ayuda de este foro.

Quizá no me expliqué bien, pero la solución que funcionó magníficamente con algún pequeño ajuste fue la de Willy.
Porque en realidad yo quería poder añadir varios arrays a un array que reúna todos los elementos de los mismos, y aClone() me permite añadir un array, pero si agrego otro, el array no se agrega a continuación, sino que reemplaza lo agregado.

Nuevamente gracias a todos.

[JoseAlvarez]

Gracias Willi, Jose y Sr. Rao
Es muy bueno tener la ayuda de este foro.

Quizá no me expliqué bien, pero la solución que funcionó magníficamente con algún pequeño ajuste fue la de Willy.
Porque en realidad yo quería poder añadir varios arrays a un array que reúna todos los elementos de los mismos, y aClone() me permite añadir un array, pero si agrego otro, el array no se agrega a continuación, sino que reemplaza lo agregado.

Nuevamente gracias a todos.

Excelente !