ORACLE写TXT文件操作

詹7862

　　1、用管理员账号创建目录并给生成用户授权

-- Create directory
create or replace directory DIR_BOOK
as 'D:\DIR_BOOK';
　　

grant read,write on directory dir_book to scott;
　　
　　2、编写过程

create or replace procedure p_exp as
cursor v_my_cursor is
select t.id || '|#|' || t.name || '|#|' || t.auther || '|#' || t.version from book t order by t.id;
v_line      varchar2(2000);
v_curr_date varchar2(14);
v_file_name varchar2(37);
v_file_dir  varchar2(10);
v_out_file  utl_file.file_type;
begin
v_curr_date := to_char(sysdate, 'yyyymmddhh24miss');
v_file_name := 'book' || v_curr_date || 'A01.txt';
v_file_dir  := 'DIR_BOOK';
v_out_file  := utl_file.fopen(v_file_dir, v_file_name, 'w');
open v_my_cursor;
loop
fetch v_my_cursor
into v_line;
exit when v_my_cursor%notfound;
--开始往文件写内容
utl_file.put_line(v_out_file, v_line);
end loop;
--关闭文件
utl_file.fclose(v_out_file);
end;

　　
　　要求：
　　导出的文件类型为txt文件，采用utf-8编码格式。 
　　
　　说明：
　　1、需要导出的表是个测试表，数据100W条。第一次导出时耗时1分钟多一点儿，第二次导出时耗时50多秒（大概存过使用之后数据库有缓存吧）。导出之后的txt文件大小为133M左右。
　　一个小插曲：在windows系统上导出的txt文件，用记事本打开后中文正常显示；换个editplus编辑器打开，它找不到对应的编码，随便指定一个在打开之后，中文显示乱码。解决办法：先用记事本打开，在将文件另存为时选择以utf-8格式即可。
　　2、之所以采用数据库导出的方式，原因是之前采用JAVA代码写的导数据方式，100W行的数据每读取一条往本地文件里写一条，写完整个文件时，耗时42分钟左右，这斯也忒慢了。