在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; 4.判断文件是否存在(读,重命名,复制,删除都要判断文件是否存在) <div class="codetitle"><a style="CURSOR: pointer" data="439" class="copybut" id="copybut439" onclick="doCopy('code439')"> 代码如下:<div class="codebody" id="code439"> --判断文件是否存在 DECLARE ex BOOLEAN;--文件是否存在 flen NUMBER;--文件长度? 这个地方不知道怎么理 (原文 file_length The length of the file in bytes. NULL if file does not exist.) bsize NUMBER;--文件大小 BEGIN utl_file.fgetattr('TESTFILE',ex,flen,bsize); IF ex THEN dbms_output.put_line('File Exists'); ELSE dbms_output.put_line('File Does Not Exist'); END IF; dbms_output.put_line('File Length: ' || TO_CHAR(flen)); dbms_output.put_line('Block Size: ' || TO_CHAR(bsize)); END fgetattr;
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|