关于oracle utl_file包 写数据到excel文件中

--首先我们创建用于文件操作的目录

SQL> create directory colin_dir as '/opt/oracle/oradata/orcl/colin';
 
Directory created
PS:/opt/oracle/oradata/orcl/colin这个目录必须在服务器上创建
--第二步授予读写权限

SQL> grant read,write on directory colin_dir to dba;
 
Grant succeeded
偶是直接把这个目录的读写权限授给了DBA这个角色，因为我当前的用户就是DBA,也可以通过sys用户直接授予当前用户
[oracle@localhost colin]$ sqlplus /nolog

SQL*Plus: Release 10.2.0.3.0 - Production on Thu Oct 21 17:34:36 2010

Copyright (c) 1982, 2006, Oracle. All Rights Reserved.

SQL> conn /as sysdba
Connected.
SQL> grant read,write on directory COLIN_DIR to gamedata_fs3;

Grant succeeded.
--第三步创建一个简单的写数据到文件excel的过程

create or replace procedure test_uti_file(test_file in varchar2) is
  v_content char(4);
  cursor test_ufile_cur is
    select id || chr(9) || name || chr(9) from uti_file_test;
  l_file utl_file.file_type;
begin
  l_file := utl_file.fopen('COLIN_DIR', test_file, 'w');

  open test_ufile_cur;

  loop
    fetch test_ufile_cur
      into v_content;
    exit when test_ufile_cur %notfound;
    utl_file.put_line(l_file, v_content, false);
  end loop;

  close test_ufile_cur;
  utl_file.fflush(l_file);
  utl_file.fclose(l_file);
end;
PS:上面的COLIN_DIR的目录名必须大写,test_file文件不必事先建立
--第四步测试过程

begin
  -- Call the procedure

  test_uti_file(test_uti_file.xls);
end;
--最后可以到服务器查看生成的test_uti_file.xls文件了


1    a
2    b