SAK 図書館
SAK 図書館
Oracle PL/SQL 編7 - 標準ファイル I/O utl_file.fopen、utl_file.put_line
UTL_FILE を使用すると、テキストファイル入出力を PL/SQL で行える。
(Oracle9i - 9.0.1 で機能拡張あり)
■init.ora 設定
・j:\oracle\admin\sak\pfile\init.ora に相当する init.ora に入出力を
許可するディレクトリを指定しないと UTL_FILE はアベンドする。
私は「種々」の箇所に追加した。
###########################################
# 種々
###########################################
compatible=9.0.0
db_name=sak
utl_file_dir=g:\tmp,g:\tmp2
・utl_file_dir=* と「*」を指定すると無制限のアクセスとなる。
これは、きちんと指定した方が安全かもしれない。
複数のディレクトリは、カンマ「,」区切りで指定する。
■ファイルオープン
declare
fno utl_file.file_type;
begin
fno := utl_file.fopen('g:\tmp', 'test.txt', 'R', 4002);
| | | | |_ レコード長
| | | | 改行も含めたバイト長
| | | | 1 ～ 32767
| | | | 古い Oracle では
| | | | 指定するとエラー
| | | |_ R Input
| | | W Output
| | | A Append
| | |_ ファイル名
| |_ パス
|_ ファイル番号
...
...
end;
/
■ファイルクローズ
declare
fno utl_file.file_type;
begin
fno := utl_file.fopen('g:\tmp', 'test.txt', 'R');
...
...
utl_file.fclose(fno);
|_ ファイル番号
end;
/
■ファイルクローズ ALL
declare
fno utl_file.file_type;
begin
fno := utl_file.fopen('g:\tmp', 'test.txt', 'R');
...
...
utl_file.fclose_all;
|_ オープン中の全ファイルクローズ
end;
/
■ファイルリード
declare
fno utl_file.file_type;
rec varchar2(1000);
begin
fno := utl_file.fopen('g:\tmp', 'test.txt', 'R');
begin
loop
utl_file.get_line(fno, rec);
| |_ レコードテキスト
|_ ファイル番号
...
...
end loop;
exception
when NO_DATA_FOUND then -- レコード AT END
null;
when OTHERS then
dbms_output.put_line ('** リードエラー **');
end;
utl_file.fclose(fno);
|_ ファイル番号
end;
/
■ファイルライト
declare
fno utl_file.file_type;
rec varchar2(1000);
begin
fno := utl_file.fopen('g:\tmp', 'test.txt', 'W');
rec := 'aaaaaaaaaaaa';
utl_file.put_line(fno, rec);
| |_ レコードテキスト
|_ ファイル番号
utl_file.fclose(fno);
end;
/
■テキストファイルリードサンプル
set serveroutput on;
declare
fno utl_file.file_type;
rec varchar2(1000);
begin
dbms_output.put_line ('start...');
fno := utl_file.fopen('g:\tmp', 'test.txt', 'R');
begin
loop
utl_file.get_line(fno, rec);
dbms_output.put_line (rec);
end loop;
exception
when NO_DATA_FOUND then -- レコード AT END
null;
when OTHERS then
dbms_output.put_line ('** リードエラー **');
end;
utl_file.fclose(fno);
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** エラー **');
end;
/
■レコードグルーブシーケンス番号を付与して、CSV 形式でテキスファイル出力
set serveroutput on;
declare
cursor c1 is select 得意先CD, 品番
from 受注m order by 得意先CD, 品番;
ct number;
svtkcd varchar2(20) := ' ';
fno utl_file.file_type;
rec varchar2(1000);
begin
dbms_output.put_line ('start...');
fno := utl_file.fopen('g:\tmp', 'test.txt', 'W');
for c1_rec in c1 loop
if svtkcd != c1_rec.得意先CD then
ct := 0;
svtkcd := c1_rec.得意先CD;
end if;
ct := ct + 1;
rec := '"' || ct
|| '","' || c1_rec.得意先CD
|| '","' || c1_rec.品番
|| '"';
utl_file.put_line(fno, rec);
end loop;
utl_file.fclose(fno);
dbms_output.put_line ('end');
exception
when OTHERS then
dbms_output.put_line ('** エラー **');
end;
/
■Oracle PL/SQL 編資料
■SQL 基礎実地編資料
■SQL 基礎編資料
■SQL チューニング編資料
■PostgreSQL 編、JAVA Servlet、JSP 編資料
■MySQL 編資料
Copyright (C) 1999-2018 Y.SAK