Archivo de acceso secuencial

Archivos de acceso secuencial
Los archivos de acceso secuencial son llamados también archivos de texto, están formados por cadenas de caracteres separadas unas de otras por los códigos retorno de carro/avance de línea, que corresponden a los caracteres 13/10 del código ASCII. El final del archivo se indica mediante el caracter ASCII 26, que también se expresa como ^Z o EOF.
Es posiblevisualizar estos archivos con la orden TYPE del sistema operativo DOS y se pueden editar con cualquier editor de textos.
Este tipo de archivos solo permiten operaciones de lectura y escritura secuenciales, la unica forma de modificarlos es agregando líneas al final del archivo.
Los pasos para leer o escribir en un archivo de este tipo son:
Declarar una variable de tipo texto y asociarla al nombre deun archivo. A esto también se le llama declarar el archivo.
Abrir el archivo ya sea para lectura o escritura.
Leer o escribir datos en el archivo.
Cerrar el archivo
Declaración de un archivo
Para declarar un archivo primero se declara una variable tipo text de la siguiente forma:
VAR
VarArchivo : Text;
Una vez declarada la variable se asigna al nombre de algun archivo:
ASSIGN(VarArchivo, NombreArchivo);
Donde NombreArchivo es una cadena de caracteres que contiene el nombre del archivo, la unidad de disco donde se encuentra y el directorio. Por ejemplo:
ASSIGN (VarArchivo, 'C:\DOS\PRUEBA.TXT');
Abrir archivos
Exsiten tres formas de abrir un archivo:
Rewrite Reset Append
Escribir datos en un archivo
Para escribir datos a un archivo se utilizan las instruccionesWrite y WriteLn, como si se quisiera escribir a la pantalla, con la diferencia de que se especificará la variable de archivo ya declarada. Ejemplo:
WriteLn(VarArchivo, 'Prueba de archivos');
Esta sentencia grabaría el texto 'Prueba de archivos' en el archivo asignado a VarArchivo.
Leer datos de un archivo
Para leer los datos de un archivo de acceso secuencial se utilizan las instrucciones Ready ReadLn.
La instrucción Read lee uno o varios datos del archivo abierto y deja el puntero en el mismo renglón en el cual leyó los datos, en cambio ReadLn lee los datos y mueve el puntero al siguiente renglón.
Fin del archivo
Normalmente los archivos de este tipo se leen renglón por renglón hasta llegar al final del mismo. Cuando se conoce de antemano el tamaño del archivo es posibleutilizar un ciclo FOR, pero es más seguro utilizar la función EOF la cual es verdadera despues de que el programa lee la última linea de un archivo de acceso secuencial.
La sintaxis de la función EOF es:
EOF (VaribleArchivo);
Es común realizar la verificación de la función con un ciclo WHILE como en el ejemplo siguiente:
WHILE NOT EOF(Archivo) DO
BEGIN
ReadLn(Archivo, Datos);
WriteLn(Datos);END;
Cerrar archivos
Para asegurar que toda la información se grabe en el disco correctamente es necesario cerrar el archivo antes de que se termine la ejecución del programa, de lo contrario se corre el riego de que la última información que se haya accesado no se grabe en su totalidad.
La instrucción para cerrar un archivo es Close, y su sintaxis es:
Close (VaribleArchivo);
Función EolnLa función Eoln sirve para verificar si el puntero ha llegado al final de la linea. Regresa el valor verdadero si se encuentra al final. Comunmente se utiliza en las lecturas caracter por caracter.
Agregar datos a un archivo de texto
Para añadir datos a un archivo de texto son necesarios los siguientes pasos:
Asignar un archivo a una variable con Assign
Agregar los datos con elprocedimiento Append
Escribir los datos
Cerrar el archivo
A continuación se ilustra un ejemplo de un programa que agrega una linea a un archivo de texto:
PROGRAM Archivo;
VAR
Texto : TEXT;
BEGIN
Assign (Texto, 'PRUEBA.DAT');
Append(Texto);
WriteLn(Texto, 'Agregando una linea al archivo PRUEBA.DAT');
Close (Texto)
END.
Archivos de acceso directo
Un archivo de acceso directo esta...