Find in array

4D v20 R7

Find in array


Find in array ( array ; valor {; inicio} ) -> Resultado

Parâmetro	Tipo	Descrição
array	Array	Array a buscar
valor	Expression	Valor do mesmo tipo a ser buscado no array
inicio	Inteiro longo	Elemento no qual se inicia a busca
Resultado	Inteiro longo	Número do primeiro elemento no array que corresponde ao valor

Descrição

O comando Find in array devolve o número do primeiro elemento do Array que corresponde a valor.

Find in array pode se utilizar com arrays de tipo Texto, Alfa, Numérico, Data, Apontador e Booleano. Os parâmetros Array e valor devem ser do mesmo tipo.

valor deve ser exatamente igual ao elmento a encontrar (mesmas regras que as aplicadas ao operador de igualdade, ver Operadores de Comparação). Se nenhum resultado for encontrado, Find in array retorna –1.

Nota: Com arrays Objeto, pode usar apenas referências de objeto no parâmetro valor

Se especificar principio, o comando começa a busca no número de elemento especificado por principio. Se não se especifica principio, o comando começa a busca no elemento 1.

Exemplo 1

O método de projeto a seguir deleta todos os elementos apagados do string ou array de texto cujo ponteiro é passado como parâmetro:

  ` Método de projecto LIMPAR ARRAY

  ` LIMPAR ARRAY ( Ponteiro )

  ` LIMPAR ARRAY ( -> Array de Texto ou Alfa )

 

 C_POINTER($1)

 Repeat

    $vlElem:=Find in array($1->;"")

    If($vlElem>0)

       DELETE FROM ARRAY($1->;$vlElem)

    End if

 Until($vlElem<0)

Depois de implementar este método de projeto em uma base, pode escrever:

 ARRAY TEXT(atValores;...)

  ` ...

  ` Utilizar o array como quiser

  ` ...

  ` Eliminar os elementos de cadeias vazias

 LIMPAR ARRAY(->atValores)

Exemplo 2

O método de projeto a seguir selecionar o primeiro elemento de um array cujo ponteiro passa como primeiro parâmetro que corresponde ao valor da variável ou campo cujo ponteiro é passado como parâmetro:

  ` Método de projeto SELECIONAR ELEMENTO

  ` SELECIONAR ELEMENTO( Ponteiro ; Ponteiro)

  `SELECIONAR ELEMENTO ( -> Array Texto ou Alfa ; -> Campo ou variável de tipo Texto ou Alfa )

 

 $1->:=Find in array($1->;$2->)

 If($1->=-1)

    $1->:=0 ` Se um elemento não é encontrado, fixar o array em um elemento não selecionado

 End if

Depois de implementar este método em um banco, você pode escrever:

  ` Método de objeto de menu suspenso asGenero

 Case of

    :(Form event code=On Load)

       SELECIONAR ELEMENTO(->asGenero;->[Pessoas]Genero)

 

 End case

Nota: este exemplo utiliza o elemento selecionado do array. Leve em conta que o elemento selecionado não é significativo se o array contém mais de 32.767 elementos (ver Arrays e objetos de formulário). Neste caso, é necessário utilizar uma variável de tipo inteiro longo para armazenar o resultado de Find in array.

Exemplo 3

Para encontrar uma referência de objeto

 ARRAY OBJECT($objects;100)</p><p>$o1:={a10;b"xyz"}

 $o2:={a10;b"xyz"}

 

 $objects{20}:=$o1

 var $p : Integer

 

 $p:=Find in array($objects;$o1) //$p = 20 

 $p:=Find in array($objects;$o2) //$p = -1 

 $p:=Find in array($objects;{a10;b"xyz"}) //$p = -1

Ver também

Count in array
DELETE FROM ARRAY
Find in sorted array
INSERT IN ARRAY
Size of array