Como leer archivos de texto

Charango
27 de Febrero del 2004
Necesito leer un archivo de texto
eso nada mas

anonimo
27 de Febrero del 2004
Archivos secuenciales

Las sentencias empleadas para el tratamiento de este tipo de archivos son:

Abrir el fichero

La primera operación será la de abrir el fichero; en caso de que no exista se creará con la misma instrucción.

Open NombreDeFichero For [Input | Outpur | Append ] As NúmeroDeFichero [Len= tamaño reg]

Las cláusulas Input, Outpur y Append se refieren a la forma en que se abre el fichero: Para leer, escribir o añadir por el fina (si el fichero ya existe). Input no se puede usar si el fichero no existe.

En NombreDeFichero se pondrá el nombre, incluyendo el “path”, con el que se grabará el fichero. NúmeroDeFichero será un número con el que se referenciará al fichero cuando se efectúe alguna operación sobre él.

Open "C:\usuarios\PRUEBA1.txt" For Input as #1

Lectura de datos en un fichero secuencial

Para leer datos de un fichero y copiarlos en variables del programa se utilizan las sentencias Line Input #, Input() o Input #.
La sintaxis de estas sentencias es:

Line Input # NúmeroDeFichero, NombreDeVariable
Input(número, [#]NúmeroDeFichero)
Input # NúmeroDeFichero, ListaDeVariables

Para leer todas las líneas de un fichero se utiliza un bucle for o while. Visual Basic dispone de la función EOF (End of File) que devuelve True cuando se ha llegado al final del fichero. Véase el siguiente ejemplo:

Do While Not EOF(fileNo)
miLinea = Line Input #fileNo
...
Loop

Por ejemplo, para leer todo el contenido de un fichero y escribirlo en una caja de texto se puede utilizar:

txtCaja.text = Input(LOF(fileNo), #fileNo)