VB 6.0 buscar una palabra especifica

Roush
27 de Agosto del 2005
Devo encontrar una palabra especifica en un archivo .txt ya lo tengo generado y listo pero desconozco la sintaxis correcta para encontrar esa palabra desde VB 6.0 , quien la sabe??? por favor.

mvallejos
27 de Agosto del 2005
Si no es muy grande, puedes cargar el contenido de un archivo en una variable y luego buscar esa palabra con Instr.
dim Texto as String
dim Longitud as LOng
dim Posicion as LOng

Open <NombreArchivo> For Input as #1
Longitud = Filelen(<NombreArchivo>)
Texto = Input(Longitud,#1)
Close 1

Posicion = Instr(1,Texto,PalabraBuscar)

En posiciòn te queda en que posiciòn del string encontrò la palabra, si no lo encuentra te retorna 0.

Si el archivo es muy grande podès leer linea por linea
y buscar por cada lìnea

Saludos