|
declare
in_handle utl_file.file_type;
buf varchar2(1022);
begin
-- 読み込みモードでファイルオープン
in_handle := utl_file.fopen('c:\temp','test.txt','r');
loop
begin
-- ファイルを1レコード読み込み
utl_file.get_line(in_handle,buf);
dbms_output.put_line('データ:' || buf);
exception
-- ファイルの終端に来た場合は、ループ終了
when no_data_found then
exit;
end;
end loop;
-- ファイルクローズ
utl_file.fclose(in_handle);
exception
when others then
dbms_output.put_line('その他エラー');
end;
|