Oracle 11g UTL_FILE 包的使用方法

青旅半醒 2024-04-17 23:51 46阅读 0赞

**通过 UTL\_FILE 包，PL/SQL 程序可以读写操作系统上的文本文件。**   
  
**创建目录** **并授予读写权限**  
SQL> create directory user\_dir as 'E:\\app\\Administrator\\oradata\\dir';  
  
 目录已创建。  
  
 SQL> grant read on directory user\_dir to public;  
  
 授权成功。  
  
 SQL> grant write on directory user\_dir to public;  
  
 授权成功。  
  
 SQL> select \* from dba\_directories;  
  
 OWNER DIRECTORY\_NAME                 DIRECTORY\_PATH  
 \----- ------------------------------ -------------------------------------------------------------------------------  
 SYS   ORACLE\_OCM\_CONFIG\_DIR          E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1/ccr/state  
 SYS   DATA\_PUMP\_DIR                  E:\\app\\Administrator/admin/flame/dpdump/  
 SYS   MEDIA\_DIR                      E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1\\demo\\schema\\product\_media\\  
 SYS   XMLDIR                         c:\\ade\\aime\_dadvfh0169\\oracle/rdbms/xml  
 SYS   DATA\_FILE\_DIR                  E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1\\demo\\schema\\sales\_history\\  
 SYS   LOG\_FILE\_DIR                   E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1\\demo\\schema\\log\\  
 SYS   SS\_OE\_XMLDIR                   E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1\\demo\\schema\\order\_entry\\  
 SYS   SUBDIR                         E:\\app\\Administrator\\product\\11.2.0\\dbhome\_1\\demo\\schema\\order\_entry\\/2002/Sep  
**SYS   USER\_DIR                       E:\\app\\Administrator\\oradata\\dir**  
已选择9行。

**在 ** **E:\\app\\Administrator\\oradata\\dir 目录下创建一个名词为 01.txt 的文本文件，在里面写上一段文字** 。  
  
**通过 UTL\_FILE 包来读取 01.txt 里面的内容**   
  
 SQL> declare  
   2    V1 varchar2(32767);  
   3    F1 utl\_file.file\_type;  
   4    --v\_text varchar2(500);  
   5  begin  
   6     **F1 := utl\_file.fopen('USER\_DIR', '01.txt', 'R');  -- 打开文本文件，R 代表打开模式为读取**  
   7     **utl\_file.get\_line(F1, V1);  -- 读取文本中的内容到 V1 变量中**  
   8     **utl\_file.fclose(F1);  -- 关闭文本文件**  
   9    dbms\_output.put\_line(V1);  --输出文本里面的内容  
  10  end;  
  11  /  
 Previously, the mysql-server sub-packages did not contain the logrotate script. Consequently, the log rotation had to be  
  has been provided  
 by the mysql-server sub-packages, and users can use the script to log into the mysqld.log file by uncommenting appropria  
PL/SQL 过程已成功完成。  
  
   1  declare  
   2    V1 varchar2(32767);  
   3    F1 utl\_file.file\_type;  
   4  begin  
   5    F1 := utl\_file.fopen('USER\_DIR', '01.txt', 'R');  
   6    utl\_file.get\_line(F1, V1, 30);  
   7    utl\_file.fclose(F1);  
   8    dbms\_output.put\_line(V1);  
   9\* end;  
 SQL> /  
 Previously, the mysql-server s  
PL/SQL 过程已成功完成。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26506993/viewspace-1986008/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26506993/viewspace-1986008/