请教oracle utl_file的问题

Question

各位大哥：
我现在在写一个存储过程，该存储过程接受一个参数，是所要写入文件的表名。
用utl_file包写，就不知道怎么处理fetch into的时候怎么声明下面的变量。望各位给个建议，或干脆写个例子先谢谢了！

Answer 1

使用UTL_FILE转储数据为逗号分隔符文件
 
Tom写过这样一个函数用于把数据转储为逗号分隔符文件，看到很多人问类似的问题，转载这里供参考。
注意，UTL_FILE使用的Directory，需要你预先创建，具体可以参考Using Create directory & UTL_FILE in Oracle
 
create or replace 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;
/
 
 
 
以下是使用样例:
 
[oracle@jumper tmp]$ sqlplus "/ as sysdba"
 
SQL*Plus: Release 9.2.0.4.0 - Production on Fri May 13 15:04:41 2005
 
Copyright (c) 1982, 2002, Oracle Corporation.  All rights reserved.
 Connected to:
Oracle9i Enterprise Edition Release 9.2.0.4.0 - Production
With the Partitioning option
JServer Release 9.2.0.4.0 - Production
 
SQL> select dump_csv('select * from scott.emp',',','/tmp','emp.csv') from dual;
 
DUMP_CSV('SELECT*FROMSCOTT.EMP',',','/TMP','EMP.CSV')
-----------------------------------------------------
                                                   14
 
SQL> ! more /tmp/emp.csv
7369,SMITH,CLERK,7902,17-DEC-80,800,,20
7499,ALLEN,SALESMAN,7698,20-FEB-81,1600,300,30
7521,WARD,SALESMAN,7698,22-FEB-81,1250,500,30
7566,JONES,MANAGER,7839,02-APR-81,2975,,20
7654,MARTIN,SALESMAN,7698,28-SEP-81,1250,1400,30
7698,BLAKE,MANAGER,7839,01-MAY-81,2850,,30
7782,CLARK,MANAGER,7839,09-JUN-81,2450,,10
7788,SCOTT,ANALYST,7566,19-APR-87,3000,,20
7839,KING,PRESIDENT,,17-NOV-81,5000,,10
7844,TURNER,SALESMAN,7698,08-SEP-81,1500,0,30
7876,ADAMS,CLERK,7788,23-MAY-87,1100,,20
7900,JAMES,CLERK,7698,03-DEC-81,950,,30
7902,FORD,ANALYST,7566,03-DEC-81,3000,,20
7934,MILLER,CLERK,7782,23-JAN-82,1300,,10