Page 1 of 1
Acopy para matrices
Posted: 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
(los años pasan), si alguien lo ha hecho o tiene ideas para aportar, les quedo muy agradecido
Re: Acopy para matrices
Posted: Tue Mar 05, 2024 4:34 pm
by Willi Quintana
Estimado, prueba esto....
Code: Select all | Expand
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
Posted: Tue Mar 05, 2024 5:27 pm
by JoseAlvarez
aArray2 := aClone(aArray1)
Re: Acopy para matrices
Posted: Wed Mar 06, 2024 3:44 pm
by nageswaragunupudi
JoseAlvarez wrote:aArray2 := aClone(aArray1)
Yes
Re: Acopy para matrices
Posted: 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.
Re: Acopy para matrices
Posted: 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.
Excelente !