使用UTL_FILE包来读写文件
1、创建DIRCTORY
SQL> conn sys/sys@iceman as sysdba;
已连接。
SQL> create or replace directory utl_test as 'E:\utl';
目录已创建。
SQL> grant read,write on directory utl_test to iceman;
授权成功。
2、利用UTL_FILE包来写入数据到文件test.txt,此文件可以先创建，也可以不用。
SQL> conn iceman/iceman@iceman;
已连接。
SQL> declare
2 fhandle utl_file.file_type;
3 begin
4 fhandle := utl_file.fopen('UTL_TEST','test.txt','w');
5 utl_file.put_line(fhandle,'the first write');
6 utl_file.put_line(fhandle,'the second write');
7 utl_file.fclose(fhandle);
8 end;
9 /
PL/SQL 过程已成功完成。
注意：第四行中，fhandle := utl_file.fopen('UTL_TEST','test.txt','w')中的directory名一定要大写，不然会报下面的错误：
declare
*
ERROR 位于第 1 行:
ORA-29280: 目录路径无效
ORA-06512: 在"SYS.UTL_FILE", line 18
ORA-06512: 在"SYS.UTL_FILE", line 424
ORA-06512: 在line 4
3、利用UTL_FILE包来读取文件中的内容
SQL> set serveroutput on
SQL> Declare
2 fhandle utl_file.file_type;
3 fp_buffer Varchar2(1000);
4 Begin
5 fhandle :=utl_file.fopen('UTL_TEST','test.txt','R');
6 utl_file.get_line(fhandle,fp_buffer);
7 dbms_output.put_line(fp_buffer);
8 utl_file.get_line(fhandle,fp_buffer);
9 dbms_output.put_line(fp_buffer);
10 utl_file.fclose(fhandle);
11 End;
12 /
the first write
the second write
PL/SQL 过程已成功完成。