ITPub博客

首页 > 数据库 > Oracle > ORACLE UTL_FILE文件包的应用,文件I/O操作

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

原创 Oracle 作者:itpub120 时间:2006-11-01 11:03:10 0 删除 编辑

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

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

1:建立文件目录:

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

11方法:

在初始化文件配置文件init.ora的配置中将

UTL_FILE_DIR = E/temp’指定路径;

1.2 方法:

创建路径对象:

Create directory test_dir as e:temp

建议用第二种方法;

2:打开和关闭文件:

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

2.1FOPENlocation in varchar2, filename in varchar2, open_mode in varchar2return 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_LINEfile_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
v_file := UTL_FILE.FOPEN('OUTER_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('OUTER_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;

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/8109090/viewspace-874626/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 爱他
请登录后发表评论 登录
全部评论
  • 博文量
    60
  • 访问量
    580443