Adicionando uma coluna em um vetor bidimensional

[asimoes]

Usando aEval e Hb_aIns, usado para adicionar em vetor bidimensional

Código: Selecionar todos

aAdd( aVetor, {"1", "2", "3"})

aEval( aVetor, {|e,n| Hb_aIns( aVetor, n, { e[1], e[2], e[3], "4" } ) } )

Só pra não perder a dica.

[asimoes]

Código: Selecionar todos

aVetorX := {}

aEval( aVetor, {|e,n| aAdd( aVetorx, { e[1], e[2], e[3], Hb_NtoC(N) } ) } )

A ideia é adicionar uma coluna nova no vetor já existente, existe uma maneira de fazer isso?

[JoséQuintas]

Analise com calma.

Vetores são listas.

Código: Selecionar todos

aPrincipal := { 1, 2, 3 }

Multidimensional é.... uma lista de listas.

Código: Selecionar todos

aPrincipal := { L1, L2, L3 }

Quer adicionar um elemento em cada uma das listas
AEval vai processar cada uma das listas

Código: Selecionar todos

AEval( aPrincipal, { | e | AAdd( e, 4 ) } )

É isso?

Ou vai adicionar uma lista nova?

Código: Selecionar todos

AAdd( aPrincipal, { 1, 2, 3 } )

O AIns() é pra INSERIR em outra posição que não seja a última

[asimoes]

Quintas,

A ideia é adicionar uma coluna nova a um vetor existente por exemplo:

aVetor := {{1, 2, 3}}

Como incluir o valor 4 na mesma linha nesse vetor? onde esse vetor passaria a ter:

aVetor := 1,2,3,4

[asimoes]

Isso eu consegui fazer com HashTable, as keys "MARCADO" e "DESTINO" foram adicionadas na HT ::hOpsTela

Código: Selecionar todos

aEval( ::hOpsTela, { | e | e[ "MARCADO" ] := .F., e[ "DESTINO" ] := 1 } )

[JoséQuintas]

Tem que pensar no seguinte também: como vai fazer o teste depois?
if array[ x, 4 ] ? nesse caso SEMPRE precisa existir o 4.
Talvez melhor incluir tudo antes, com .F. de não marcado, e só alterar durante o uso.

Lembrando que a diferença entre hash e array, é que um usa nome, e outro número.

Código: Selecionar todos

AEval( aList, { | e |  e[ 4 ] := .F., e[ 5 ] := 1 } )

que pode ficar parecido se usar:

Código: Selecionar todos

#define A_MARCADO 4
#define A_DESTINO 5
AEval[ aList, { | e | e[ A_MARCADO ] := .F., e[ A_DESTINO ] := 1 } )

Se a análise facilitar acrescentando sempre os dois campos, adiciona tudo no início como default.
Caso contrário, vai precisar checagem de Len(), pra ver se precisa fazer o AAdd()

Código: Selecionar todos

AEval( aList, { | e | iif( Len( e ) < 4, AAdd( e, .F. ),NIL), iif( Len( e ) < 5, AAdd( e, 0 ),NIL), e[ 4 ] := .F., e[ 5 ] := 1 } )

[JoséQuintas]

Pra não complicar depois, mais fácil criar já com tudo:

Código: Selecionar todos

aList := { 1, 2, 3, .F., 0 }

Ou fazer o AEval() pra adicionar as duas colunas com default.
Senão, toda vez que for analisar vai precisar testar se existem os campos.

Essa é outra diferença do HASH ARRAY: se usar algo que não existe, ele cria automático, já no array dá erro se não existir e[ 4 ] por exemplo.

[asimoes]

Quintas,

Isso resolveu, usando o próprio E, dessa forma a lista é refeita adicionado a nova coluna

Código: Selecionar todos

aEval( aVetor, { | e,n | aAdd( e, "" ) } )