FoxPro/Visual FoxPro - BUSCAR UNA PALABRA EN UNA CADENA DE CARACTERES

HOLA COMPAÑEROS:
DE ANTEMANO LE DOY LAS GRACIAS A QUIEN(ES) ME PUEDAN AYUDAR CON LO SIGUIENTE:
NECESITO REALIZAR UN FORMULARIO DE BUSQUEDA EN UNA APLICACION, EN EL CUAL YO PUEDA BUSCAR UNA PALABRA NO IMPORTANDO SU POSICION EN LA CADENA, OJALA ME PUEDA FILTRAR LAS OCURRENCIAS O REITERACIONES DE DICHA PALABRA

OJALA ME PEDAN COLABORAR CON CODIGO FUENTE"""""

En ese caso ya no podras usar el SEEK, el cual funciona bien rapido,
entonces tendrias que usar el comando LOCATE, para hacer la busqueda tambien deberas usar el $ o AT(), el cual hara lo que tu quieres. Checa en la ayuda todos los comandos expuestos para que asi armes tu busqueda segun tu gusto. Algo en tomar en cuentas es que la busqueda sera mas lenta de lo usual. Ah, se me olvidaba los
mas seguro tambien tendras que usar el o los comandos GO RECNO()
o algo por el estilo para ir al registro encontrado

Hola... yo ese problema.. lo solucioné de la siguiente manera:

suponiendo que el texto que buscas es "buscando" y el campo de la tabla es "texto" de una "Tabla1"

Yo hice un select de la siguiente manera:

Select * from Tabla1 where texto like " %buscando% " into......

El tema es que si lo que buscas es variable... deberias generar la cadena de manera que te quede "%+eltextoabuscar+%"...
Cualquier cosa te mando un ejemplo... avisame... espero te sirva...
Un abrazo

Esta muy buena gracias programador

Para solucionar el problema del string variable, es mejor (más claro) hacerlo así:

lcParteNombre = "ARLO" && puede ser un parámetro

LcBusca = CHR(37) + m.lcParteNombre + CHR(37)
SELECT NOMBRE,CUIT FROM PERSONAL WHERE NOMBRE LIKE m.lcBusca INTO CURSOR curBusca
IF _TALLY >0
BROWSE
ELSE
Messagebox("No case")
ENDIF

Con este modo se pueden buscar dos o más coinciencias (en el mismo campo o no):
* Pej: Busco todos los "CARLOS ALBERTO", "ALBERTO CARLOS","ALBERTENGO JUAN CARLOS", ETC
LcBusca = CHR(37)+"ARLO"+CHR(37)
lcAdd = CHR(37) + "ALB" + CHR(37)
lcWhere = [ NOMBRE LIKE LCBUSCA AND NOMBRE LIKE LCADD ]
SELECT NOMBRE,CUIT FROM PERSONAL WHERE &lcWhere INTO CURSOR curBusca readwrite
BROWSE