ORACLE UTL_FILE文件包的应用，文件I/O操作

利用ORACLE UTL_FILE包可以使文本文件转入进数据表，反之亦然:

1: 建立文件目录

首先在数据库服务器上建立相应的文件目录。

1．1 方法:
在初始化文件配置文件init.ora的配置中将UTL_FILE_DIR = 'E:/temp'指定路径；

1.2 方法:
创建路径对象:Create directory test_dir as 'e:/temp'
建议用第二种方法；

2: 打开和关闭文件

所有的文件句柄都拥有UTL_FILE.FILE_TYPE，FILE_TYPE在UTL_FILE规范中进行了定义。

2.1: FOPEN(location in varchar2, filename in varchar2, open_mode in varchar2) return FILE_TYPE;
Location 是路径参数，FILENAME 是文件名，OPEN_MODE是打开模式，'R'是读文本，'W'是写文本，'A'是附加文本，参数不分大小写，如果指定'A'但是文件不存在，它会用'W'先创建出来，'W'有覆盖的功能；

2.2: FCLOSE(file_handle in out file_type);
唯一的参数是文件句柄，就是关闭文件；FCLOSE_ALL关闭所有文件句柄；

2.3: IS_OPEN(file_handle in file_type) return Boolean;
判断文件是否打开；

3: 文件输出函数:

3.1: PUT(file_handle in file_type, buffer in varchar2);
文件输出，但是不会在文件中附加新行字符(newline)，必须用put_line或者new_line向文件中输入终结符；

3.2: NEW_LINE(file_handle in file_type, lines in natural := 1) ;
向文件中写入一个或者多个行终结符；

3.3: PUT_LINE(file_handle in file_type, buffer in varchar2);
等价PUT后接着用NEW_LINE；

3.4: PUTF(file_handle in file_type, format in varchar2,
Arg1 in varchar2 default null,
Arg2 in varchar2 default null,
Arg3 in varchar2 default null,
Arg4 in varchar2 default null,
Arg5 in varchar2 default null)
和PUT类似，但是它允许输出字符串是带格式的，格式字符中n是换行，%s被可选参数取代；
例如:
Declare
v_outputfile utl_file.file_type;
v_name varchar2(20) := 'scott';
begin
v_outputfile := utl_file.fopen(..);
utl_file.putf(v_outputfile,
'hi there! n my name is %s,and I am a %s major.n',
V_name,
'Computer science');
Fclose(v_outputfile);
end;
输出文件格式:
hi there!
my name is scott ,and I am a Computer science major.

3.5: 输出文件应用实例:
create or replace procedure p_mmr_new
(p_start_time out date,
p_end_time out date)
is
v_file UTL_FILE.FILE_TYPE;
v_string varchar2(100);
v_error exception;
v_i number;
cursor cur_ms_no is
select distinct substr(trim(a.ms_no),1,11)
from msno.t_upload_msno a,
msno.t_msno_black b
where substr(a.ms_no,1,11) = b.ms_no(+)
and b.ms_no is null;
v_count number;
v_ms_no varchar2(20);
begin
p_start_time:=sysdate;
v_count:=0;
-- insert,'TEST_DIR'要大写
v_file := UTL_FILE.FOPEN('TEST_DIR','ivr170.txt', 'w',32767);
open cur_ms_no ;
loop
fetch cur_ms_no into v_ms_no;
exit when cur_ms_no%notfound;
UTL_FILE.PUT_line(v_file, v_ms_no);
v_count:=v_count+1;
if v_count>=5000 then
UTL_FILE.fflush(v_file);
--UTL_FILE.FCLOSE(v_file);
--v_file := UTL_FILE.FOPEN('TEST_DIR','v_ms_no.txt', 'a',32767);
v_count:=0;
end if;
end loop;
UTL_FILE.FCLOSE(v_file);
close cur_ms_no;
--close
p_end_time:=sysdate;
EXCEPTION
WHEN v_error Then
UTL_FILE.FCLOSE(v_file);
RETURN;
end;

4:文件输入

4.1 get_line(file_handle in file_type, buffer out varchar2);
从文件中读出数据；
示例:
Declare
V_newline varchar2(200);
begin
v_filehandle := utl_file.fopen(p_filedir, p_filename, 'r');
utl_file.get_line(vfilehandle, v_newline);
insert into t1 (tip) values(v_newline);
end;