Cortar, redimensionar array.

[Itamar M. Lins Jr.]

Ola!

Tenho um array:
aTeste:={1,2,3,4,5,6,7,8,9}
Preciso cortar, redimensionar ele do inicio.
Se eu usar asize(aTeste,3) fica {1,2,3} eu preciso que fique: {4,5,6,7,8,9}.

Saudações,
Itamar M. Lins Jr.

[Jairo Maia]

Olá Itamar,

Você pode usar o comando ACopy():

Código: Selecionar todos

ACopy( <aSource>, <aTarget>, [<nSourceStart>], [<nCount>], [<nTargetStart>] )

<aSource>
The source array whose elements are copied.
<aTarget>
The target array recieving copied values.
<nSourceStart>
This is a numeric expression indicating the first element in the source array to begin copying with. It defaults to 1, the first element of <aSource>.
<nCount>
A numeric expression specifying the number of elements to copy from <aSource> to <aTarget>. It defaults to the maximum possible number that can be copied. This number depends on the size of source and target array, and the start elements of both arrays.
<nTargetPos>
A numeric expression indicating the first element in the target array that receives copied values. It defaults to 1.

[Itamar M. Lins Jr.]

Eu resolvi.
Tem coisas que só muito uso para entender, pelo menos comigo é assim.
Usei a tal adel() e depois asize()
Porque ?
Tem uma particularidade com array que passou esse tempo despercebido, eu não sabia que ao ser deletado via adel() ela vai para o final da fila.
Por exemplo aArray := {1,2,3,4,5,6,7,8,9}
adel(aArray,1) fica: {2,3,4,5,6,7,8,9,nil} o lugar do elemento, vai para o final da fila com isso é só usar depois o asize()

Saudações,
Itamar M. Lins Jr.

[Eolo]

Acho que ACOPY() resolve seu problema.

local aTeste:={1,2,3,4,5,6,7,8,9}
local aNovo:-[4]
acopy(aTeste,aNovo,4,4,)

-> aNovo vai conter {4,5,6,7}

Os parâmetros de ACOPY():
1. array original
2. array destino
3. item inicial do array origem (default 1)
4. quantos itens copiar (default máximo possível)
5. em qual item (no destino) começar a cópia (default 1)

(editado pra complementar a resposta do Jairo)

[Jairo Maia]

Olá Itamar,

Então use True no terceiro parâmetro, que não precisa usar a ASize():

ADel( <aArray>, <nElement>, .T. )

[Itamar M. Lins Jr.]

Beleza, menos um comando!

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Testei aqui e não apagou será .F. ?
Não funcionou, adel(,,.t. ou .f.) não corta ou redimensiona a matriz, len() retorna sempre o mesmo tamanho.

Saudações,
Itamar M. Lins Jr.

[Jairo Maia]

Olá Itamar,

O Default é .F., se .T. reajusta a matriz. Testei aqui com Harbour e realmente não funciona, ou a função ADel() em Harbour tem outra sintaxe. Achei que era igual ao xHarbour. Em xHarbour funciona ok.

Uma pena. Importante é que você resolveu. Valeu.

[Toledo]

Amigos, no Harbour use o hb_Adel():

hb_ADel( <aArray>, <nElement>, .T. )

Abraços,

[Jairo Maia]

Certinho...

Obrigado Toledo pela informação.