4D Doc Center : PV FIND ONE

4D View v14

PV FIND ONE


PV FIND ONE ( area ; criterio ; onde ; contem {; coluna ; linha} )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
criterio	cadeia	Cadeia a buscar
onde	Inteiro	0 = Fórmulas; 1 = Valores
contem	Inteiro	0 = Contém; 1 = Igual
coluna	Inteiro longo	Número de coluna da célula de inicio
		Número de coluna da célula encontrada
linha	Inteiro longo	Número de linha da célula de inicio
		Número de linha da célula encontrada

Descrição

O comando PV FIND ONE busca criterio entre as células da area. A pesquisa será detida na primeira célula, se existir, que cumpra com os critérios de pesquisa.

criterio especifica a cadeia a buscar.

onde indica que parte da folha de cálculo consultar:

0: pesquisas nas fórmulas
1: pesquisas nos valores

contem define o tipo de comparação:

0: Parcial (contém o valor buscado)
1: Total (igual ao valor buscado)

Se omitidos os parâmetros opcionais coluna e linha, a pesquisa começa na esquina superior esquerda da area.
Se passadas coluna e linha, indicam a célula da area na que começará a pesquisa.
A pesquisa se realiza de cima a abaixo e de esquerda a direita, começando pela célula indicada.

Depois da execução do comando, a primeira célula encontrada, se converte na nova célula atual. Se chamados, os parâmetros coluna e linha vão conter então suas coordenadas.

Se não se encontrou nenhuma célula durante a pesquisa, a célula atual se mantém sem mudança.

Exemplo

Vamos buscar a primeira célula que contém a resposta do usuário a uma solicitação inicial. Se iniciará a consulta na célula B3.

 C_STRING(255;$Criteria) `Cadeia a buscar

 C_INTEGER($QueryWhere) `0=Fórmulas / 1=Valores

 C_INTEGER($Contains) `0=Igual / 1=Contém

 C_LONGINT($Column) `Número de coluna da célula encontrada

 C_LONGINT($Row) `Número de la linha de la célula de inicio

 

 $Criteria:=Request("Qual é o valor a buscar?";"x")

 

 If($Criteria#"") `Critério definido

    CONFIRM("Pesquisa nas fórmulas ou nos valores?";"Valores";"Fórmulas")

    $QueryWhere:=OK `0=Fórmulas / 1=Valores

 

    CONFIRM("Que tipo de comparação?";"Contém";"=")

    $Contains:=OK `0=Contém / 1=Igual

 

    $Column:=2 `Pesquisa a partir da célula B3

    $Row:=3

 

    PV FIND ONE(Area;$Criteria;$QueryWhere;$Contains;$Column;$Row) `Pesquisa

 End if