Page 1 of 1

Acopy para matrices

PostPosted: Tue Mar 05, 2024 3:49 pm
by 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 :D (los años pasan), si alguien lo ha hecho o tiene ideas para aportar, les quedo muy agradecido

Re: Acopy para matrices

PostPosted: Tue Mar 05, 2024 4:34 pm
by Willi Quintana
Estimado, prueba esto....
Code: Select all  Expand view

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)
 

Re: Acopy para matrices

PostPosted: Tue Mar 05, 2024 5:27 pm
by JoseAlvarez
aArray2 := aClone(aArray1)

Re: Acopy para matrices

PostPosted: Wed Mar 06, 2024 3:44 pm
by nageswaragunupudi
JoseAlvarez wrote:aArray2 := aClone(aArray1)

Yes

Re: Acopy para matrices

PostPosted: Thu Mar 07, 2024 2:23 pm
by 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. :D

Re: Acopy para matrices

PostPosted: Thu Mar 07, 2024 2:36 pm
by JoseAlvarez
jose_murugosa wrote: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. :D


Excelente !