Accesos en vicual basic 6.0

7. 1.- TIPOS DE ACCESO A FICHEROS EN VISUAL BASIC.
Los archivos proporcionan una manera de almacenar información a largo plazo. Visual Basic ofrece tres formas de acceder a los datos:
Archivo secuencial. Archivo de texto plano. Se lee una línea cada vez. Cada línea podrá ser tan larga como quiera. Cuando se empieza a leer un archivo secuencial, se empieza por la primera línea y se continúa conla siguiente hasta llegar al final. Este tipo de datos no suele ser el adecuado para almacenar grandes series de números porque se almacenan en forma de cadena de caracteres. Ejemplos: archivos TXT
Archivo aleatorio. Su contenido puede ser leído y escrito en el orden que se necesite. Todas las líneas deben ser del mismo tamaño. Asumiremos que está formado por un conjunto de registros de la mismalongitud. Cada registro individual se identifica con un único número y puede ser leído, escrito o actualizado. Ejemplos: archivos que simulen bases de datos.
Archivo binario. Es una colección de bytes o secuencia numerada de caracteres, independientemente de la estructura del mismo. Ofrecen la posibilidad de almacenar los datos como se quiera, aunque para poder acceder a ellos, es necesarioconocer cómo fueron escritos. Ejemplos: archivos EXE
7.2.- ARCHIVOS DE ACCESO SECUENCIAL.
ABRIR ARCHIVOS SECUENCIALES
La instrucción Open (abrir) le dice a Visual Basic a qué archivo debe acceder. La sintaxis es:
Open NombreDeArchivo For {Input | Output| Append} As #NúmeroDeArchivo
donde Input indica si se quiere leer del archivo, Output si se quiere escribir de él, Append si se quiere añadirinformación al final del fichero y, NumeroDeArchivo es un número entre 1 y 255. Si se trata de abrir para lectura un archivo que no existe, se producirá un error. Si se abre para escritura Visual Basic creará un nuevo archivo, reemplazando cualquier archivo con ese nombre. Si no se sabe qué número de archivo está libre, se utilizará el siguiente código:
NumArchivo = FreeFile
Open NomArch For {Input| Output} As #NumArchivo
CERRAR ARCHIVOS SECUENCIALES
Después de trabajar con un archivo, se debe cerrar con la instrucción Close, cuya sintaxis es:
Close #NúmeroDeArchivo
Si la intrucción Close se utiliza sin poner NumeroDeArchivo, se cerrarán todos los ficheros abiertos.
LEER DE ARCHIVOS SECUENCIALES
Para leer de un archivo secuencial se utilizará la instrucción Line Input que permite leeruna línea cada vez y que tiene la sintaxis:
Line Input #NúmeroDeArchivo, VariableDeCadena
o bien se utilizarán las órdenes:
Input #NúmeroDeArchivo, VariableDeCadena
VariableDeCadena = Input(NúmCaracteres, #NúmeroDeArchivo)
donde la última instrucción, permite leer un número determinado de caracteres y, está limitado a ficheros de 32.767 bytes máximo.
La función EOF (Fin De Fichero) indicacuándo se acaba un archivo. A esta función hay que facilitarle el número de archivo correspondiente y, devolverá True si se ha leído toda la información del archivo. La función LOF (Longitud De Archivo) indica la longitud de un archivo.
Por tanto, para leer de un archivo de acceso secuencial se seguirán los pasos:
 Abrir el fichero para lectura con: Open NombreDeArchivo For Input As#NúmeroDeArchivo
1. Leer los datos del fichero utilizando las sentencias: Line Input #NúmeroDeArchivo, VariableDeCadena; o bien Input #NúmeroDeArchivo, VariableDeCadena; o bien VariableDeCadena = Input$ NúmCaracteres, #NúmeroDeArchivo
1. Cerrar el archivo con la sentencia: Close #NúmeroDeArchivo
ESCRIBIR EN ARCHIVOS SECUENCIALES
Para escribir en un archivo secuencial, utilizaremos las instruccionesPrint o Write con la sintaxis:
Print #NúmeroDeArchivo [, expresión [{ , | ; } expresión] ...] [{ , | ; }]
Write #NúmeroDeArchivo [, expresión [{ , | ; } expresión] ...] [{ , | ; }]
Write y Print son diferentes. Write inserta comas entre los distintos items a escribir en el fichero. Si se desean conservar los valores de un archivo abierto para escritura, se tendrá que abrir en modo Append y no...