注册
登录
| 关键词： file LINE utl OUTPUT invalid DBMS then when PUT directory |
在驱动器上创建文件 declare f utl_file.file_type; begin f:=UTL_FILE.FOPEN ('MEDIA_DIR','\\.\\..\\.\\..\\.\\..\\.\\..\\.\\..\\.\\Unbreakable.txt','w',1000); UTL_FILE.PUT_LINE (f,'Sure',TRUE); UTL_FILE.FCLOSE(f); end; 读取文件 SET SERVEROUTPUT ON declare f utl_file.file_type; sBuffer Varchar(8000); begin f:=UTL_FILE.FOPEN ('MEDIA_DIR','\\.\\..\\.\\..\\.\\..\\.\\..\\.\\..\\.\\OracleDir\ora90\network\ADMIN\listener.ora','r'); loop UTL_FILE.GET_LINE (f,sBuffer); DBMS_OUTPUT.PUT_LINE(sBuffer); end loop; EXCEPTION when no_data_found then UTL_FILE.FCLOSE(f); end; begin UTL_FILE.frename('MEDIA_DIR','\\.\\..\\.\\..\\.\\FileToRename','MEDIA_DIR','\\.\\..\\.\\..\\.\\Unbreakable.txt',TRUE); end; PL/SQL 3.3以上的版本中，UTL_FILE包允许用户通过PL/SQL读写操作系统文件。如下： declare file_handle UTL_FILE.FILE_TYPE; begin file_handle := UTL_FILE.FOPEN('TMP', '文件名', 'w',[1-32767]); --四个参数：目录，文件名，打开方式，最大行数(默认为2000) UTL_FILE.PUTF(file_handle, '写入的信息\n'); UTL_FILE.FCLOSE(file_handle); exception WHEN utl_file.invalid_path THEN raise_application_error(-20000, 'ERROR: Invalid path for file or path not in INIT.ORA.'); end; PutF()过程用来以指定格式把文本写入一个文件 Put_Line()过程把一个指定的字符串写入文件并在文件中开始新的一行 9i中函数说明： UTL_FILE.FOPEN ( location IN VARCHAR2, filename IN VARCHAR2, open_mode IN VARCHAR2, max_linesize IN BINARY_INTEGER) RETURN file_type; Parameters Description location (IN) The directory location of the source file, a DIRECTORY_NAME from the ALL_DIRECTORIES view (case sensitive) filename File name, including extension (file type), without directory path. In Unix,the filename cannot end with /. 一个使用文件的测试 1、用sys用户登录到数据库(ora9i):conn sys/orcl@eai01 as sysdba 2、在sqlplus中运行create or replace directory TMP as 'd:\testtmp'; 在sqlplus中运行grant read on directory TMP to public 3、在scott用户下建立存储过程如：pReadFileTest CREATE OR REPLACE PROCEDURE pReadFileTest (FPATH IN STRING,FNAME IN STRING,MAX_NUM IN NUMBER) IS FILE_HANDLE UTL_FILE.FILE_TYPE; TEXT_BUFFER STRING(1000); LINE_NUM NUMBER; BEGIN DBMS_OUTPUT.PUT_LINE('INPUT PATH='||FPATH); DBMS_OUTPUT.PUT_LINE('INPUT FILENAME='||FNAME); LINE_NUM :=0; BEGIN FILE_HANDLE := UTL_FILE.FOPEN(FPATH,FNAME,'R',MAX_NUM); LOOP LINE_NUM:= LINE_NUM + 1; UTL_FILE.GET_LINE(FILE_HANDLE,TEXT_BUFFER); DBMS_OUTPUT.PUT_LINE('LINE'||LINE_NUM||' : '||TEXT_BUFFER); END LOOP; EXCEPTION WHEN NO_DATA_FOUND THEN RETURN; WHEN UTL_FILE.INVALID_PATH THEN DBMS_OUTPUT.PUT_LINE('INVALID PATH'); WHEN UTL_FILE.INVALID_MODE THEN DBMS_OUTPUT.PUT_LINE('INVALID MODE'); WHEN UTL_FILE.INVALID_FILEHANDLE THEN DBMS_OUTPUT.PUT_LINE('INVALID FILEHANDLE'); WHEN UTL_FILE.INVALID_OPERATION THEN DBMS_OUTPUT.PUT_LINE('INVALID OPERATION'); WHEN UTL_FILE.READ_ERROR THEN DBMS_OUTPUT.PUT_LINE('READ ERROR'); WHEN UTL_FILE.WRITE_ERROR THEN DBMS_OUTPUT.PUT_LINE('WRITE ERROR'); WHEN UTL_FILE.INTERNAL_ERROR THEN DBMS_OUTPUT.PUT_LINE('INTERNAL ERROR'); WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE(SQLERRM); END; EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('OTHER ERROR='||SQLERRM); END pReadFileTest; 4、在sqlplus中运行set serveroutput on 5、exec pReadFileTest('TMP','A.TXT','R') 6、正常输出 小结： 在9i中可以不在init.ora中增加utl_file_dir目录，而是在sys用户下创建一个directory目录（实际上是在sys用户下的dir$表中增加一个对应的OS_PATH），然后将对该directory对象的读/写操作的权限grant给public。 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
