环境：windows 2000 server + oracle 8.1.7
1.读文件举例：
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir
-- 例: utl_file_dir=(d:\test,e:\\,e:\share)
--
set serveroutput on size 1000000 format wrapped
create or replace procedure read_txtfile( -- 读一个文本文件，并在sqlplus中显示其内容
path in varchar2,
name in varchar2
)
as
l_output utl_file.file_type;
str varchar2(1000);
begin
l_output:=utl_file.fopen(path,name,'r',2000); -- 每行最大字节数最多为32K bytes
--l_output:=utl_file.fopen(path,name,'r'); -- 每行最大字节数最多为1023 bytes
loop
utl_file.get_line(l_output,str);
dbms_output.put_line(str);
end loop;
exception
when no_data_found then
utl_file.fclose(l_output);
when utl_file.invalid_path then
raise_application_error(-20001,'INVALID_PATH!');
when utl_file.invalid_mode then
raise_application_error(-20002,'INVALID_MODE!');
when utl_file.invalid_filehandle then
raise_application_error(-20003,'INVALID_FILEHANDLE!');
when utl_file.invalid_operation then
raise_application_error(-20004,'INVALID_OPERATION!');
when utl_file.read_error then
raise_application_error(-20005,'READ_ERROR!');
when utl_file.write_error then
raise_application_error(-20006,'WRITE_ERROR!');
when utl_file.internal_error then
raise_application_error(-20007,'INTERNAL_ERROR!');
when others then
str:=sqlerrm(sqlcode);
dbms_output.put_line(str);
end;
/
--SQL> execute read_txtfile('d:\test','test.txt');
--日本SONY(索尼) 1万/月,仅要研究生
--韩国三星电子中国总部 25万/年
--法国索姆软件,年薪20万/年,赴欧工作
--美国Cisco(思科)15000/月,仅要研究生
--美国INTEL(英特尔) 13000/月
--美国IBM 5000左右/月
--德国西门子 8000 /月
--PL/SQL 过程已成功完成。
2.写文件举例
-- 环境 windows 2000 server + oracle 8.1.7
-- 先在 init.ora中的参数utl_file_dir
-- 例: utl_file_dir=(d:\test,e:\\,e:\share)
--
set serveroutput on size 1000000 format wrapped
create or replace procedure write_txtfile( -- 写一个字符串到指定文本文件中
path in varchar2,
name in varchar2,
pstr in varchar2
)
as
l_output utl_file.file_type;
str varchar2(1000);
begin
l_output:=utl_file.fopen(path,name,'a',2000); -- 每行最大字节数最多为32K bytes
--l_output:=utl_file.fopen(path,name,'a'); -- 每行最大字节数最多为1023 bytes
utl_file.put_line(l_output,pstr);
utl_file.fclose(l_output);
exception
when utl_file.invalid_path then
raise_application_error(-20001,'INVALID_PATH!');
when utl_file.invalid_mode then
raise_application_error(-20002,'INVALID_MODE!');
when utl_file.invalid_filehandle then
raise_application_error(-20003,'INVALID_FILEHANDLE!');
when utl_file.invalid_operation then
raise_application_error(-20004,'INVALID_OPERATION!');
when utl_file.read_error then
raise_application_error(-20005,'READ_ERROR!');
when utl_file.write_error then
raise_application_error(-20006,'WRITE_ERROR!');
when utl_file.internal_error then
raise_application_error(-20007,'INTERNAL_ERROR!');
when others then
str:=sqlerrm(sqlcode);
dbms_output.put_line(str);
end;
/
--SQL> execute write_txtfile('e:\','njhart2003.txt','hello oracle,i like oracle!');
--PL/SQL 过程已成功完成。
