Oracle PLSQL 读文件与写文件

        本文转自 http://hi.baidu.com/greatwqs/item/95c03c118b364a8e88a956c2 

 

程序1:写入文件

CREATE OR REPLACE PROCEDURE FILE_WRITE
/******************************************************************************
中文名称： 测试输出文件的效果
调用方法： FILE_WRITE
作       者： 王青松
创建时间： 2010-07-30
数据版本： Oracle 10
输入参数： 无
输出参数： 无
简要说明： 把表AA的信息,保存到磁盘上面/oradata/MODAT/example.txt的文件中
修改记录： 无
******************************************************************************/
IS
fileID utl_file.file_type;
BEGIN
   fileID := utl_file.fopen('/oradata/MODAT', 'example.txt', 'a');
   --最后一个参数的选择意义: w 写模式，r 只读 ,a 表示追加
  
   -- AA表的字段有A,B两个字段.
   for REC in ( select A , B from AA)
   loop
     utl_file.put_line(fileID , REC.A ||','||REC.B);
     --表示A字段和B字段
   end loop;
   utl_file.fclose(fileID);
   if utl_file.is_open(fileID) then      
      UTL_FILE.FCLOSE (fileID);
   end if;
  
END FILE_WRITE;

程序2:读文件

CREATE OR REPLACE PROCEDURE FILE_READ
/******************************************************************************
中文名称： 测试文件内容的读取操作/oradata/MODAT/example.txt
调用方法： FILE_READ
作    者： 王青松
创建时间： 2010-07-30
数据版本： Oracle 10
输入参数： 无
输出参数： 无
简要说明： 文件的输出简要测试
修改记录： 无
******************************************************************************/
IS
vInHandle utl_file.file_type ;
vNewLine VARCHAR2(250);
BEGIN
vInHandle := utl_file.fopen ('/oradata/MODAT', 'example.txt', 'R');
-----------------------------文件夹地址,       要读取文件名   读取
LOOP
BEGIN
    utl_file.get_line (vInHandle, vNewLine);
    dbms_output.put_line(vNewLine);
EXCEPTION
WHEN OTHERS THEN
     EXIT;
END;
END LOOP;
utl_file.fclose (vInHandle);

END FILE_READ;

程序3:表AA:

SQL> desc AA
Name Type        Nullable Default Comments
---- ----------- -------- ------- --------
A    INTEGER     Y                        
B    VARCHAR2(2) Y                        

SQL>

结果:依次插入数据到表,调用FILE_WRITE,再FILE_READ,结果显示如下:

1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y
1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y
1,v
1,c
2,e
2,r
3,t
4,t
4,y
5,y