oracle中utl_file包读写文件操作实例学习
前端之家收集整理的这篇文章主要介绍了
oracle中utl_file包读写文件操作实例学习，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
在oracle中utl_file包提供了一些操作文本文件的函数和过程，学习了一下他的基本操作
1.创建directory，并给用户授权
<div class="codetitle"><a style="CURSOR: pointer" data="91230" class="copybut" id="copybut91230" onclick="doCopy('code91230')"> 代码如下:
<div class="codebody" id="code91230">
--创建directory
create or replace directory TESTFILE as '/home/oracle/zxx/test';
--给
用户授权
grant read,write on directory TESTFILE to zxx;
详细介绍
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/u_file.htm 2.写入操作
<div class="codetitle">
<a style="CURSOR: pointer" data="82944" class="copybut" id="copybut82944" onclick="doCopy('code82944')"> 代码如下:
<div class="codebody" id="code82944">
---测试写入
DECLARE
filehandle utl_file.file_type; --句柄
begin
filehandle := utl_file.fopen('TESTFILE','hello.txt','w'); --打开
文件 utl_file.put_line(filehandle,'Hello Oracle!');--写入一行记录
utl_file.put_line(filehandle,'Hello World!');
utl_file.put_line(filehandle,'你好，胖子！');
utl_file.fclose(filehandle);--
关闭句柄
end;
备注：
fopen有一个参数max_linesize，下面是原文解释
Maximum number of characters for each line,including the newline character,for this file (minimum value 1,maximum value 32767). If unspecified,Oracle supplies a default value of 1024.
3.读取操作
<div class="codetitle">
<a style="CURSOR: pointer" data="60918" class="copybut" id="copybut60918" onclick="doCopy('code60918')"> 代码如下:
<div class="codebody" id="code60918">
--测试读取
set serveroutput on;
DECLARE
filehandle utl_file.file_type;
filebuffer varchar2(500);
begin
filehandle := utl_file.fopen('TESTFILE','R');
IF utl_file.is_open(filehandle) THEN
dbms_output.put_line('file is open!');
END IF;
loop
begin
utl_file.get_line(filehandle,filebuffer);
dbms_output.put_line(filebuffer);
EXCEPTION
WHEN no_data_found THEN
exit ;
WHEN OTHERS THEN
dbms_output.put_line('EXCEPTION1:'||SUBSTR(
sqlERRM,1,100)) ;
end;
end loop;
utl_file.fclose(filehandle);
IF utl_file.is_open(filehandle) THEN
dbms_output.put_line('file is open!');
else
dbms_output.put_line('file is close!');
END IF;
utl_file.fcopy('TESTFILE','TESTFILE','hello.dat');--复制
utl_file.fcopy('TESTFILE','hello2.dat');
utl_file.fcopy('TESTFILE','hello.xls');
utl_file.frename('TESTFILE','hello.xls','frenamehello.xls',TRUE);--
重命名 utl_file.fremove('TESTFILE','hello2.dat');--
删除文件 EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('EXCEPTION2:'||SUBSTR(
sqlERRM,100)) ;
end;
