PC Toledo

Enviado: **14 Mar 2014 20:15**

Boa noite a todos, tenho uma simples duvida com relação a pesquisa em array. Verificar se um código existe, se não existir, uso ele.

Com dbf faço assim:

Código: Selecionar todos

        bus := 0
        DO WHILE .T.
                bus++
                SELECT CLI
                GO TOP
                SEEK STRZERO(bus,4,0)
                IF .NOT. FOUND()
                        EXIT
                ENDIF
        ENDDO

Mas preciso fazer isto em array

Desde ja agradeço a compreensão e ajuda de todos.

Enviado: **15 Mar 2014 11:52**

Acho que é isso.

Código: Selecionar todos

aCli:={}
 FOR I:=1 TO 10
    AADD(aCli,StrZero(i,4,0)
 NEXT

 bus := 0
  
 DO WHILE .T.
    bus++
    IF ASCAN(aCli,STRZERO(bus,4,0)) = 0
       EXIT
    ENDIF
 ENDDO

Enviado: **15 Mar 2014 14:55**

Poderia ser feito talvez com AEVAL tb ou não?

Enviado: **15 Mar 2014 20:30**

Com AEval dá pra fazer assim:

Código: Selecionar todos

 
  lAchou:=.F.
  cNumero:=StrZero(10,4,0)
  
  AEval(aCli, {|| lAchou:=IF(ASCAN(aCli,cNumero)=0,.F.,.T.)})

Enviado: **16 Mar 2014 09:36**

Pode fazer também desta forma.

Código: Selecionar todos

nBus:=1
DO WHILE ASCAN(aCli,STRZERO(nBus,4,0)) # 0
   nBus++
ENDDO

Enviado: **17 Mar 2014 19:31**

Vou testar aqui, e já posto o resultado.

Obrigado pela ajuda.

PC Toledo

Pesquisa com looop em array

Pesquisa com looop em array

Pesquisa com looop em array

Pesquisa com looop em array

Pesquisa com looop em array

Pesquisa com looop em array

Pesquisa com looop em array