最近有朋友问我用Oricle存储过程读写文件，我说应该没有问题，然后本人用Google搜索一篇好文章，故收藏之！

测试环境：Oracle 9i +Linux for SUSE

有时候我们需要在文件与数据库表之间利用程序来实现两者的交互，这里可以利用UTL_FILE包实现对文件的I/O操作．下面就分别介绍文件写表以及表数据写文件．

[1]表信息导出到文件

在SUSE上建议一个文件夹/home/zxin10/file，然后对其chmod g+w file进行授权(否则无法导出到文件)，再对您指定的路径(/home/zxin10/file)向Oracle的系统表sys.dir$进行注册(否则也是无法成功将信息导出到文件),操作完后可以查询sys.dir$可以看到表中的OS_PATH中有您指定的路径位置．

注册方式：执行SQL语句create or replace directory BBB as '/home/zxin10/file';　即可

存储过程如下：(写文件时,文件名可以不用先创建,程序中会自动创建指定文件)

CREATE OR REPLACE PROCEDURE V3_SUB_FETCH_TEST_2
(
   V_TEMP VARCHAR2,
   --1为成功，0为失败
   v_retvalue   OUT NUMBER 
 )
AS
  --游标定义
  type ref_cursor_type is REF CURSOR;
  cursor_select   ref_cursor_type;
  select_cname    varchar2(1000);
  
  v_file_handle   utl_file.file_type;
  
  v_sql varchar2(1000);
  v_filepath Varchar2(500);
  v_filename Varchar2(500);
  --缓冲区
  v_results Varchar2(500);
  
  v_pid varchar2(1000);
  v_cpcnshortname Varchar2(500);
 
  begin
      v_filepath := V_TEMP;
      if v_filepath is null then
         v_filepath := '/home/zxin10/file3';
      end if;
      v_filename:='free_'|| substr(to_char(sysdate,'YYYYMMDDHH24MI'),1,10) ||'.all' ;
      --游标开始
      select_cname:='select cpid,cpcnshortname from zxdbm_ismp.scp_basic'; 
      --打开一个文件句柄 ,同时fopen的第一个参数必须是大写   
      v_file_handle:=utl_file.fopen('BBB',v_filename,'A');
      Open cursor_select For select_cname;   
      Fetch  cursor_select into v_pid,v_cpcnshortname;
      While  cursor_select%Found   
      Loop
      v_results := v_pid||'|'||v_cpcnshortname;
      --将v_results写入文件
      utl_file.put_line(v_file_handle,v_results);   
      Fetch  cursor_select into v_pid,v_cpcnshortname;      
      End Loop;
      
      Close cursor_select;--关闭游标
      utl_file.fClose(v_file_handle);--关闭句柄
      v_retvalue :=1;
  exception when others then
         v_retvalue :=0; 
  end V3_SUB_FETCH_TEST_2;

-- Create table
create table LOADDATA
(
  ID   VARCHAR2(50),
  AGE  VARCHAR2(50),
  NAME VARCHAR2(50)
)
    /

create or replace directory BBB as '/home/zxin10/file';
/
--作用法是将特定的文件路径信息想Oracle注册(注册信息存放在sys.dir$表中)

CREATE OR REPLACE PROCEDURE V3_SUB_FETCH_TEST_3
(
   --文件中的信息导入表中
     V_TEMP VARCHAR2,
     v_retvalue   OUT NUMBER --1 成功 ，0失败
AS 
  v_file_handle   utl_file.file_type;  
  v_sql varchar2(1000);
  v_filepath Varchar2(500);
  v_filename Varchar2(500);  
  --文件到表字段的映射
  v_id varchar2(1000);
  v_age varchar2(1000);
  v_name varchar2(1000);
  --缓冲区
  v_str varchar2(1000);
  --列指针
  v_i number;
  --字符串定位解析指针
  v_sposition1 number;
  v_sposition2 number;
  begin
      v_filepath := V_TEMP;
      if v_filepath is null then
         v_filepath := '/home/zxin10/file';
      end if;
      v_filename:='zte.apsuic';
      --v_sql:= 'create or replace directory CCC as '''|| v_filepath || '''';
      --execute immediate v_sql; 
      
      v_file_handle:=utl_file.fopen('CCC',v_filename,'r');       
      Loop
             --将文件信息读取到缓冲区v_str中,每次读取一行
             utl_file.get_line(v_file_handle,v_str);
             --dbms_output.put_line(v_str); 
             --针对每行的列数
             v_i := 1;
             --针对字符串每次的移动指针
             v_sposition1 := 1;
             --文件中每行信息3列,循环3次
             FOR I IN 1..3 loop               
             --当instr(v_str, '|', 6)其中v_str为1|22|wuzhuocheng ，它返回0
             v_sposition2 := instr(v_str, '|', v_sposition1);
             --字符串解析正常情况
             if v_sposition2 <> 0 then
               if v_i=1     then
                  v_id := substr(v_str, v_sposition1, v_sposition2 - v_sposition1);      --第一列               
               elsif  v_i=2 then
                    v_age := substr(v_str, v_sposition1, v_sposition2 - v_sposition1); --第二列
               elsif v_i=3  then
                  v_name := substr(v_str, v_sposition1, v_sposition2 - v_sposition1);    --第三列 
               else
                  return;
               end if;                            
             --字符串解析异常情况
             else 
               if v_i=1    then
                v_id := substr(v_str, v_sposition1);      --第一列
               elsif v_i=2 then
                  v_age := substr(v_str, v_sposition1); --第二列
               elsif v_i=3 then
                v_name := substr(v_str, v_sposition1);    --第三列 
               else
                return;
               end if;  
             end if;   
             v_sposition1 := v_sposition2 + 1;
             v_i := v_i+1;
             end loop; 
             --每列循环完后将信息insert into表中
             insert into zxdbm_ismp.loaddata values(v_id,v_age,v_name);                  
      End Loop;
      --关闭句柄
      utl_file.fClose(v_file_handle);
      v_retvalue :=1;
  exception when others then
         v_retvalue :=0; 
  end V3_SUB_FETCH_TEST_3;