FICHEROS FIN DE ARCHIVO

liderbios
15 de Junio del 2004
QUIERO LEER UN ARCHIVO PLANO Y PONER SU CONTENIDO EN UNA LISTA, COMO PUEDO MOVERME EN EL ARCHIVO Y SABER CUANDO ESTOY EN FIN DE ARCHIVO. CUALQUIER AYUDA LES AGRADECERE

Rodolfo Reyes
15 de Junio del 2004
Aqui te va un ejemplo:

in_file Text_IO.File_Type;
buffer varchar2(255);

BEGIN
--Se manda a abrir el achivo en modo de lectura
in_file := Text_IO.FOPEN('C:ARCHIVO.TXT','r');

if Text_IO.IS_OPEN(in_file) = TRUE THEN -- Si se encontro el archivo

BEGIN
LOOP -- Se hace un ciclo para recorrer el archivo de entrada
Text_IO.GET_LINE(in_file,buffer); -- Se extrae una linea del archivo y queda en la variable buffer

END LOOP;
WHEN NO_DATA_FOUND THEN -- Cuando ya no encuentra datos en eL archivo
-- Se manda a cerrar el archivo
Text_IO.Fclose (in_file);
END;
END;