VB 6.0 buscar una palabra especifica
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.
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
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