在oracle中utl_file包提供了一些操作文本文件的函數(shù)和過程，學(xué)習(xí)了一下他的基本操作
1.創(chuàng)建directory，并給用戶授權(quán)
復(fù)制代碼 代碼如下:
--創(chuàng)建directory
create or replace directory TESTFILE as '/home/oracle/zxx/test';
--給用戶授權(quán)
grant read, write on directory TESTFILE to zxx;
詳細(xì)介紹
http://download.oracle.com/docs/cd/B19306_01/appdev.102/b14258/u_file.htm
2.寫入操作
復(fù)制代碼 代碼如下:
---測試寫入
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);--關(guān)閉句柄
end;
備注：
fopen有一個(gè)參數(shù)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.讀取操作
復(fù)制代碼 代碼如下:
--測試讀取
set serveroutput on;
DECLARE
filehandle utl_file.file_type;
filebuffer varchar2(500);
begin
filehandle := utl_file.fopen('TESTFILE','hello.txt','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', 'hello.txt', 'TESTFILE', 'hello.dat');--復(fù)制
utl_file.fcopy('TESTFILE', 'hello.txt', 'TESTFILE', 'hello2.dat');
utl_file.fcopy('TESTFILE', 'hello.txt', 'TESTFILE', 'hello.xls');
utl_file.frename('TESTFILE','hello.xls','TESTFILE','frenamehello.xls',TRUE);--重命名
utl_file.fremove('TESTFILE', 'hello2.dat');--刪除文件
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('EXCEPTION2:'||SUBSTR(SQLERRM, 1, 100)) ;
end;
4.判斷文件是否存在（讀，重命名，復(fù)制，刪除都要判斷文件是否存在）
復(fù)制代碼 代碼如下:
--判斷文件是否存在
DECLARE
ex BOOLEAN;--文件是否存在
flen NUMBER;--文件長度？ 這個(gè)地方不知道怎么理 （原文 file_length The length of the file in bytes. NULL if file does not exist.）
bsize NUMBER;--文件大小
BEGIN
utl_file.fgetattr('TESTFILE', 'hello.txt', 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;
您可能感興趣的文章:- PHP中讀寫文件實(shí)現(xiàn)代碼
- java 讀寫文件[多種方法]
- Python open讀寫文件實(shí)現(xiàn)腳本
- vb.net讀寫文件代碼
- PHP讀寫文件的方法(生成HTML)
