Página 1 de 1
Busca de palavra em um campo texto
Enviado: 14 Set 2007 16:08
por augflavio
A partir da digitação de um texto em um get/read preciso que o sistema busque a palavra digitada em um campo(texto) do DBF .
PS, a busca não é em um memo e sim em um campo caracter
Enviado: 14 Set 2007 16:17
por Pablo César
Ahh então não é procurar uma string dentro do MEMOEDIT (foi o que eu indiquei lá na seção "Código fonte").
No GET você pode implementar uma função através do VALID. Por exemplo:
Código: Selecionar todos
@ 12,00 SAY "Nome da Cidade:" GET VCID VALID BUSCASTR(VCID)
READ
FUNCION BUSCASTR(VCID)
SELE 1
USE CIDADES
SEEK VCID // assim procura a STRING como começa
// ou assim procura a STRING em qualquer posição
LOCATE FOR ALLTRIM(VCID) $ NOM_CID
IF FOUND()
ALERT(NOM_CID)
VRET:=.T.
ELSE
MENSAGEM("Cidade nao localizada !")
VRET:=.F.
ENDIF
RETURN VRET
Não sei se é isto o que você precisa. Mas com certeza você precisaria ser mais explícto na sua pergunta, até colocando exemplo se possível.
Enviado: 14 Set 2007 16:23
por Augusto
Rapidinho...
Código: Selecionar todos
@ x,y get ptexto
read
if at(alltrim(ptexto),campo_dbf) # 0
? "Achei o texto"
else
? "Texto não encontrado"
endif
Concordo..
Enviado: 14 Set 2007 16:45
por augflavio
Realmente, de qualquer forma acredito que isso irá resolver, Muito obrigado.
Terei o cuidado de ser mais claro em outra oportunidade