SQL查询结果写入txt

什么也不说，直接来个例子。此文章是转载的，感谢原创作者。

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;