本文转自 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