在存储过程中把内容写进文件里

select * from dba_directories

create directory bi_log as '/PRBT/oracle/bi_log';

GRANT READ,WRITE ON DIRECTORY bi_log TO wapdb; 要使用SYS才可以。

CREATE OR REPLACE PROCEDURE CREATE_DIR_WRITE_SAMPLE AS
vHandle UTL_FILE.FILE_TYPE;
vDirname Varchar2(250);
vFilename Varchar2(250);
vOutput Varchar2(32767);
BEGIN
vDirname := 'BI_LOG'; --大写的目录定义名
vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname, vFilename, 'w', 32767);
vOutput := 'my utl_file test';
UTL_FILE.PUT_LINE(vHandle, vOutput);
UTL_FILE.FCLOSE(vHandle);
END;


R（只读），W（读写，且首先清除原有数据），A（读写，原有数据基础上追加数据）。

create or replace procedure DEBUG_BI_LOG(vOutput Varchar2) is
vHandle UTL_FILE.FILE_TYPE;
vDirname Varchar2(250);
vFilename Varchar2(250);
begin
vDirname := 'BI_LOG'; --大写的目录定义名
vFilename := 'test.txt';
vHandle := UTL_FILE.FOPEN(vDirname, vFilename, 'a', 32767);
UTL_FILE.PUT_LINE(vHandle, vOutput);
UTL_FILE.FCLOSE(vHandle);
end DEBUG_BI_LOG;