Busqueda de un string en un txt
Buenas quisiera saber si hay alguna forma de que pregunte por una palabra y alguna rutina me diga si esta en el documento txt que tengo.
Saludos
Saludos
Respuesta de Víctor Arturo Mercado Fernández
1
¿En qué lenguaje?
En foxpro de la v 6 en adelante
Gracias
Gracias
OK, usa un código similar a:
m.cTexto = FILETOSTR(Archivo)
IF m.cBusca $ m.cTexto
WAIT "La palabra se encontró" WINDOW NOWAIT
ELSE
WAIT "No se encontró" WINDOW NOWAIT
ENDIF
Donde:
"Archivo" es el nombre del archivo incluyendo extensión y ruta.
"cBusca" es una variable que contiene el texto a buscar.
La búsqueda es caso-sensitiva, es decir, hace distinción de mayúsculas y minúsculas, si no deseas que haga esa distinción, cambia el código a:
m.cTexto = FILETOSTR(Archivo)
IF UPPER( m.cBusca ) $ UPPER( m.cTexto )
WAIT "La palabra se encontró" WINDOW NOWAIT
ELSE
WAIT "No se encontró" WINDOW NOWAIT
ENDIF
Bueno, eso digo yo...
m.cTexto = FILETOSTR(Archivo)
IF m.cBusca $ m.cTexto
WAIT "La palabra se encontró" WINDOW NOWAIT
ELSE
WAIT "No se encontró" WINDOW NOWAIT
ENDIF
Donde:
"Archivo" es el nombre del archivo incluyendo extensión y ruta.
"cBusca" es una variable que contiene el texto a buscar.
La búsqueda es caso-sensitiva, es decir, hace distinción de mayúsculas y minúsculas, si no deseas que haga esa distinción, cambia el código a:
m.cTexto = FILETOSTR(Archivo)
IF UPPER( m.cBusca ) $ UPPER( m.cTexto )
WAIT "La palabra se encontró" WINDOW NOWAIT
ELSE
WAIT "No se encontró" WINDOW NOWAIT
ENDIF
Bueno, eso digo yo...
