名站网址导航为大家提供关于数据库教程相关的教程网站知识。
在oracle中utl_file包提供了一些操作办法文本网站网站文件的函数和过程，学习了一下他的基本操作办法Oracle中的Connect/session和process的区别及关系介绍
复制具体相关代码 具体相关代码如下:,select * from v$session where terminal='RUIFEI',复制具体相关代码 具体相关代码如下:,select * from v$process where addr in (select paddr from v$session where terminal='RUIFEI')
1.创建directory，并给用户授权
复制具体相关代码 具体相关代码如下:
--创建directory
create or replace directory TESTFILE as '/home/oracle/zxx/test';
--给用户授权
grant read, write on directory TESTFILE to zxx;
详细介绍
2.写入操作办法
复制具体相关代码 具体相关代码如下:
---测试写入
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.读取操作办法
复制具体相关代码 具体相关代码如下:
--测试读取
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');--复制
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.判断网站网站文件是否存在（读，重命名，复制，删除都要判断网站网站文件是否存在）
复制具体相关代码 具体相关代码如下:
--判断网站网站文件是否存在
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', '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;
