8. Formateo y manipulación de archivos

    Input y Output formateados

• Introducir datos en el programa usando el teclado e imprimirlos en la pantalla se puede realizar usando las instrucciones READ y PRINT. Sin embargo se tiene poco control sobre la forma en la que se puede introducir los datos y/o la forma en la queremos que aparezcan éstos en pantalla. La información sobre el formato de entrada y salida se realiza por la instrucción FORMAT.
• FORMAT contiene lo que se denomina descriptores de edición:

• Ejemplos:

    La instrucción FORMAT:

• Donde:

label	es un número de identificación que asocia el formato a una instrucción PRINT o READ.
edl,ed2	son descriptores de edición separados por comas
text	mensages que son rodeados por comillas simples
c	es el control de carro para la salida y sólo puede ser:  lx  mover la salida hasta la siguiente linea  O  doble espaciado  +  mover al comienzo de la linea, sobreescribiendo todo lo que ya había.  l  comenzar una nueva página

    Manipulación de archivos

• Para escribir con o sin formato en un archivo o leer desde un archivo es mejor utilizar las instrucciones READ y WRITE.

donde control list pueden ser algunos de las siguientes instrucciones:

Ejemplo:

READ(UNIT = l,FMT = 10)A,B,C

READ(1,10)A,B,C

WRITE(UNIT = 2,FMT = 20)X,Y,Z

WRITE(2,20)X,Y,Z

Identificador de la unidad:

• Cada lista de control debe de contener un identicador de unidad. Éste identifica el archivo que debe de accederse. Si el identificador se coloca en primer lugar se puede omitir UNIT=:

WRITE(2,FMT=20)X,Y,Z

• Se puede elegir cualquier número para un identificador excepto dos que están reservados y tienen significados predefinidos: 5 representa que el input será por el teclado y 6 representa que la escritura se realizará en la pantalla. Así READ(5,*)a,b,c es equivalente a READ*, a,b,c. De igual forma WRITE(6,*)a,b,c es equivalente a PRINT*,a,b,c.

Identificador del formato:

• Identifica como los datos se organizaran por referencia a una instrucción FORMAT o por una asterisco. Ejemplos:

READ(UNIT=l, FMT = 10)A,B,C   (La instrucción FORMAT está en la etiqueta 10)

READ(UNIT=1, FMT = *)A,B,C    (No hay formato)

 

• Si el identificador del formato es el segundo en la lista de control entonces se puede omitir FMT=:

READ(1,10)A,B,C 

Condición FIN del archivo:

• Sólo una condición end-of-file puede aparecer en la lista de control. Cuando la instrucción READ llega al final del archivo de datos sin que ocurra ningún error, no se leen más datos y el programa continua en el lugar donde está la etiqueta que acompaña a END=. Ejemplo:

Condición de error:

• Si algún error ocurre durante el input/output y hay una condición de error, el input/output se detiene y el programa salta a la etiqueta que es especificada por ERR=. Ejemplo:

Abrir y cerrar archivos:

La instrucción OPEN:

La instrucción OPEN conecta el archivo y define las especificaciones del archivo. OPEN(UNIT = number,filespec list) where the file specifications list can be some of the following: ERR = label FILE = 'nombre del archivo' STATUS = 'character'

ERR - Si una condición de error ocurre cuando el archivo va a abrirse el programa salta a la etiqueta.

FILE - Especifica el nombre del archivo que se va a abrir.

STATUS - This is also a character entity which must be enclosed in quotes

OLD    El archivo ya existe.

NEW   El archivo no existe y se crea.

UNKNOWN El archivo puede o no existir.

La instrucción CLOSE:

La instrucción CLOSE desconecta el archivo:

CLOSE([UNIT=] number)