ASCAN()

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Wellington
Usuário Nível 1
Usuário Nível 1
Mensagens: 41
Registrado em: 16 Jun 2008 13:17
Localização: Sao Paulo

ASCAN()

Mensagem por Wellington »

Tenho a seguinte matriz:
aArquivo := { { 'ACESSO', {'USUARIO'}, .F. } , { 'ACSSOS', {'USUARIO'}, .F. } }

Ao utilizar o ASCAN( aArquivo, { |item| item[1] = 'ACESSO' }) me apresenta o seguinte erro: ERRO NOS PARAMETROS: ACESSO DE ARRAY

Esta funcao para xHarbour esta preparada para pesquisa em arrays deste tipo ?? Utilizo isto normalmente em Clipper 5.2e. Caso nao, alguem tem alguma solucao ?? Utilizo este tipo de array para manutencao nos banco de dados, aonde tenho ARQUIVO, CAMPOS/INDICE e FLAG

Desde já agradeço,
Euclides
Usuário Nível 3
Usuário Nível 3
Mensagens: 154
Registrado em: 12 Mai 2007 14:07
Localização: São Paulo, Capital

Re: ASCAN()

Mensagem por Euclides »

Wellington,
Não testei o seu coigo, mas:
aScan({{"AA","BB"},{ "CC","DD"}}, {|aV| aV[2]="D"}) -> retorna 2 com certeza.
Talvez o problema seja na avaliação de: {'USUARIO'} ou na comparação do valor logico ´.F.´ com ´ACESSO´
Tente usar o mesmo tipo de dados na Matriz.
T+
Euclides
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Re: ASCAN()

Mensagem por gvc »

Fiz isto e retornou 1.

Código: Selecionar todos

function main
 
cls
 
aArquivo := { { 'ACESSO', {'USUARIO'}, .F. } ,;
              { 'ACSSOS', {'USUARIO'}, .F. } }

? ASCAN( aArquivo, { |item| item[1] = 'ACESSO' })

return(Nil)
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Responder