Busca de palavra em um campo texto

[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

[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.

[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

[augflavio]

Realmente, de qualquer forma acredito que isso irá resolver, Muito obrigado.
Terei o cuidado de ser mais claro em outra oportunidade