spool j:\test.txt
select Sysdate From dual;
spool off;

CREATE OR REPLACE PROCEDURE PROC_INSERTSQLTXT AS 

 V_FILE UTL_FILE.FILE_TYPE;
 V_INPUT CLOB;
BEgin
 V_FILE := UTL_FILE.FOPEN('DATA_PUMP_DIR', 'EMPNO.TXT', 'W');
 FOR I IN (SELECT EMPNO||'|'||
     ENamE||'|'||
     JOB ||'|'||
     MGR ||'|'||
     to_char(HIredATE,'yyyy-mm-dd') ||'|'||
     SAL ||'|'||
     COMM ||'|'||
     DEPTNO as stringname From SCOTT.EMP)
 LOOP
 UTL_FILE.PUT_LINE(V_FILE,I.STRINGNAME);
 END LOOp;
 UTL_FILE.fcLOSE(V_FILE);
EXCEPTION
 WHEN UTL_FILE.ACCESS_DENIED THEN
 DBMS_OUTPUT.PUT_LINE('拒绝访问!');
 WHEN OTHERS THEN
 DBMS_OUTPUT.PUT_LINE('SQLERRM: ' || SQLERRM);
END;