Работа с файлами : Oracle

rem -----------------------------------------------------------------------
rem Filename:   utlfile.sql
rem Purpose:    Demonstrate writing to a file using the UTL_FILE package
rem Date:       28-Aug-1998
rem Author:     Frank Naude, Oracle FAQ
rem -----------------------------------------------------------------------

CREATE DIRECTORY test_dir AS 'c:\';
-- CREATE DIRECTORY test_dir AS '/tmp';

DECLARE
  fileHandler UTL_FILE.FILE_TYPE;
BEGIN
  fileHandler := UTL_FILE.FOPEN('test_dir', 'test_file.txt', 'W');
  UTL_FILE.PUTF(fileHandler, 'Look ma, I''m writing to a file!!!\n');
  UTL_FILE.FCLOSE(fileHandler);
EXCEPTION
  WHEN utl_file.invalid_path THEN
     raise_application_error(-20000, 'ERROR: Invalid path for file.');
END;
/

EXCEPTION
  WHEN UTL_FILE.INVALID_PATH THEN 
        RAISE_APPLICATION_ERROR(-20100, 'Invalid Path');
  WHEN UTL_FILE.INVALID_MODE THEN 
        RAISE_APPLICATION_ERROR(-20101, 'Invalid Mode');
  WHEN UTL_FILE.INVALID_OPERATION THEN 
        RAISE_APPLICATION_ERROR(-20101, 'Invalid Operation');
  WHEN UTL_FILE.INVALID_FILEHANDLE THEN 
        RAISE_APPLICATION_ERROR(-20300,'Invalid File Handle');
  WHEN UTL_FILE.WRITE_ERROR THEN 
        RAISE_APPLICATION_ERROR(-20301,'Write Error');
  WHEN UTL_FILE.INTERNAL_ERROR THEN 
        RAISE_APPLICATION_ERROR(-20302,'Internal Error');

fileHandler := UTL_FILE.FOPEN('c:\ora_file\', 'test_file.txt', 'W');

k_inF := UTL_FILE.FOPEN(k_Dir,k_inN,'r'); -- открываем на чтение. имя файла в переменной k_inN, каталог в k_Dir
k_outF := UTL_FILE.FOPEN(k_Dir,k_outN,'w'); -- открываем на запись
-- читаем файл построчно, пока не кончится
    loop
      begin
        UTL_FILE.GET_LINE(k_inF,cn); -- читаем очередную строку файла
      exception
        WHEN NO_DATA_FOUND THEN EXIT; -- если больше не читается, то выходим из цикла
      end;
    -- что-то делаем со строкой, считанной в переменную cn, например пишем в другой файл
      UTL_FILE.PUTF(k_outF,cn||'\n');
      -- строка сначала пишется в буфер, иногда полезно сразу же буфер скинуть на диск. 
      -- особенно полезно, если появляются ошибки: видно что последнее смогло правильно записаться.
      UTL_FILE.FFLUSH(k_outF); -- сбрасываем буфер на диск.
    end loop;

CREATE OR REPLACE procedure readfile (dir in varchar2, fil in varchar2) is
cn varchar2(25);
v_file UTL_FILE.FILE_TYPE;

BEGIN
  v_file := UTL_FILE.FOPEN(dir,fil,'r');
  LOOP
      begin
        UTL_FILE.GET_LINE(v_file,cn); 
        dbms_output.put_line(cn);
      exception
        WHEN NO_DATA_FOUND THEN EXIT; 
      end;
  end loop;
  UTL_FILE.FCLOSE(v_file);
EXCEPTION
  WHEN utl_file.invalid_path THEN
     raise_application_error(-20000, 'ERROR: Invalid path for file.');
END;
/