oracle使用指定分隔符导出数据到文件

    最近有需求要导出一个专业的详单，用于倒入sqlserver系统，要求用分隔符隔开各字段。一开始准备用toad查询出来在save as，但发现表太多，要一张一张表盯着，而且由于详单数据量大，查询导出占用了大量的客户端内存，其它活干不了了。后来想用||','||的方式间隔sql语句中的字段，这种方法虽然可以实现脚本导入，但由于数据量大，而sqlplus中pagesize毕竟有现在，文本中会出现分隔符等问题，清理起来很麻烦。最后搜到了一个比较不错的方法，据说是tom写的。下面介绍下简单的方法。

    首先，需要定义utl_file_dir

SQL> show parameter utl

NAME                                 TYPE        VALUE
------------------------------------ ----------- ------------------------------
utl_file_dir                         string      /oracle/script, /archivelog

 

这里系统以前就指定了/archivelog作为目录（这个目录虽然足够很大，不过大文件尽量不要放在这里，比较危险，我这里空间紧张也没有办法），然后需要创建一个directory，方法很简单：

 

CREATE OR REPLACE DIRECTORY UTLDIR AS '/archivelog';

 

然后需要在查询用户下建个function了，这个function是解决这个问题的核心：

CREATE function dump_csv( p_query     in varchar2,
                                      p_separator in varchar2
                                                    default ',',
                                      p_dir       in varchar2 ,
                                      p_filename  in varchar2 )
return number
AUTHID CURRENT_USER
is
    l_output        utl_file.file_type;
    l_theCursor     integer default dbms_sql.open_cursor;
    l_columnValue   varchar2(2000);
    l_status        integer;
    l_colCnt        number default 0;
    l_separator     varchar2(10) default '';
    l_cnt           number default 0;
begin
    l_output := utl_file.fopen( p_dir, p_filename, 'w' );

    dbms_sql.parse(  l_theCursor,  p_query, dbms_sql.native );

    for i in 1 .. 255 loop
        begin
            dbms_sql.define_column( l_theCursor, i,
                                    l_columnValue, 2000 );
            l_colCnt := i;
        exception
            when others then
                if ( sqlcode = -1007 ) then exit;
                else
                    raise;
                end if;
        end;
    end loop;

    dbms_sql.define_column( l_theCursor, 1, l_columnValue,
                            2000 );

    l_status := dbms_sql.execute(l_theCursor);

    loop
        exit when ( dbms_sql.fetch_rows(l_theCursor) <= 0 );
        l_separator := '';
        for i in 1 .. l_colCnt loop
            dbms_sql.column_value( l_theCursor, i,
                                   l_columnValue );
            utl_file.put( l_output, l_separator ||
                                    l_columnValue );
            l_separator := p_separator;
        end loop;
        utl_file.new_line( l_output );
        l_cnt := l_cnt+1;
    end loop;
    dbms_sql.close_cursor(l_theCursor);

    utl_file.fclose( l_output );
    return l_cnt;
end dump_csv;
/
之后，只需要使用命令

SQL> select dump_csv('select * from TEST',',','/archivelog','emp.csv') from dual;

DUMP_CSV('SELECT*FROMTEST',',','/ARCHIVELOG','EMP.CSV')
-------------------------------------------------------
                                                      3

查看/archivelog/emp.csv文件

1,1
2,2
4,4

 

这里要注意，查询用户必须有对directory的读写权限：

grant read, write on directory utldir to rongyu;

 

这个方法利用了utl_file和dbms_sql两个过程，ps/sql本身的功能不容忽视啊。

 

不过这里我还存在一个疑问，对于utl_file.fopen的解释，官方文档是这样描述的：

UTL_FILE.FOPEN (
   location     IN VARCHAR2,
   filename     IN VARCHAR2,
   open_mode    IN VARCHAR2,
   max_linesize IN BINARY_INTEGER) 
  RETURN file_type;

Parameters

Table 95-3 FOPEN Function Parameters

Parameter	Description
location	Directory location of file.
filename	File name, including extension (file type), without directory path. In Unix, the filename cannot end with /.
open_mode	Specifies how the file is opened. Modes include: r--read text w--write text a--append text If you try to open a file that does not exist using a value for open_mode, then the file is created in write mode.
max_linesize	Maximum number of characters per line, including the newline character, for this file. (minimum value 1, maximum value 32767). The default is approximately 1000 bytes.

也就是说，例子里UTL_FILE.FOPEN中p_dir路径应该是以文件目录位置名作为导入变量，但有人说要指定directory才有效，这里我发现用utldir是无效的：

SQL> select dump_csv('select * from TEST',',','utldir','emp.csv') from dual;
select dump_csv('select * from TEST',',','utldir','emp.csv') from dual
       *
ERROR at line 1:
ORA-29280: invalid directory path
ORA-06512: at "SYS.UTL_FILE", line 18
ORA-06512: at "SYS.UTL_FILE", line 424
ORA-06512: at "RONGYU.DUMP_CSV", line 17
ORA-06512: at line 1

 

不知道是不是版本问题造成的不同，还是其它什么原因，这里还需要打个问号先