利用UTL_FILE包實現文件I/O操作

　　本文主要討論如何利用Oracle的UTL_FILE包來實現對磁盤文件的I/O操作。

　　文件I/O對於數據庫的開發來說顯得很重要，比如如果數據庫中的一部分數據來自於磁盤文件，那麼就需要使用I/O接口把數據導入到數據庫中來。在PL /SQL中沒有直接的I/O接口，一般在調試程序時可以使用Oracle自帶的DBMS_OUTPUT包的put_line函數(即向屏幕進行I/O操作)即可，但是對於磁盤文件的I/O操作它就無能為力了。其實Oracle同樣也提供了可以進行文件I/O的實用包-----UTL_FILE包，利用這個實用包提供的函數來實現對磁盤的I/O操作。

　　1. 准備工作

　　由於Oracle數據庫對包創建的目錄有一個安全管理的問題，所以並不是所有的文件目錄能夠被UTL_FILE包所訪問，要更新這種目錄設置，就得到init.ora裡將UTL_FILE_DIR域設置為*，這樣UTL_FILE包就可以對所有的目錄文件進行訪問了。

　　2. 文件I/O的實施

　　UTL_FILE包提供了很多實用的函數來進行I/O操作，主要有以下幾個函數：

　　fopen

　　打開指定的目錄路徑的文件。

　　get_line

　　獲取指定文件的一行的文本。

　　put_line

　　向指定的文件寫入一行文本。

　　fclose

　　關閉指定的文件。

　　下面利用這些函數，實現從文件取數據，然後將數據寫入到相應的數據庫中。

create or replace procedure loadfiledata(p_path varchar2,p_filename varchar2) as
v_filehandle utl_file.file_type; --定義一個文件句柄
v_text varchar2(100); --存放文本
v_name test_loadfile.name%type;
v_addr_jd test_loadfile.addr_jd%type;
v_region test_loadfile.region%type;
v_firstlocation number;
v_secondlocation number;
v_totalinserted number;
begin
if (p_path is null or p_filename is null) then
goto to_end;
end if;
v_totalinserted:=0;
/*open specified file*/
v_filehandle:=utl_file.fopen(p_path,p_filename,'r');
loop
begin
utl_file.get_line(v_filehandle,v_text);
exception
when no_data_found then
exit;
end ;
v_firstlocation:=instr(v_text,',',1,1);
v_secondlocation:=instr(v_text,',',1,2);
v_name:=substr(v_text,1,v_firstlocation-1);
v_addr_jd:=substr(v_text,v_firstlocation+1,v_secondlocation-v_firstlocation-1);
v_region:=substr(v_text,v_secondlocation+1);
/*插入數據庫操作*/
insert into test_loadfile
values (v_name,v_addr_jd,v_region);
commit;
end loop;
<<to_end>>
null;
end loadfiledata;
/

　　3． 測試環境

　　首先要創建一個目標表TEST_LOADFILE,它用來存儲文件中的數據：

CREATE TABLE TEST_LOADFILE (
NAME VARCHAR2 (100) NOT NULL,
ADDR_JD VARCHAR2 (20),
REGION VARCHAR2 (6) ) ;

　　然後就可以在sqlplus裡輸入如下的代碼並執行即可。

declare
v_path varchar2(200);
v_filename varchar2(200);
begin
v_path:='F: ';
v_filename:='地址信息.txt';
loadfiledata(v_path,v_filename);
end;
/

　　需要注意的是，這裡我的調試路徑為“f:”地址，如果讀者自己建立實驗環境，應該設置為的“地址信息”文件的路徑

　　整個調試環境是：

　　服務器端：UNIX操作系統+Oracle9i數據庫服務器，

　　客戶端： sqlplus,操作系統為WIN2000。

　　4. 小結

　　Oracle本身提供了大量使用的包，如UTL_HTTP包，DBMS_OUTPUT包等，這些包分別封裝了不同的功能，它們使得進行大量的應用程序開發的可能，從而拓展了Oracle的功能。