STEP1 :先在外部sql窗口执行：EXECUTE IMMEDIATE 'CREATE OR REPLACE DIRECTORY OUTPUTDIR AS ''D:\''';
STEP2:创建存储过程，然后执行~。
CREATE OR REPLACE PROCEDURE TABLE_TO_TXT2 IS
FILE_HANDLE UTL_FILE.FILE_TYPE;
CURSOR USER_TABLE_CSR IS
SELECT * FROM USER_TABLES;
ROW_USER_TABLE USER_TABLE_CSR %ROWTYPE;
TABLENAME VARCHAR2(200);
CREATE_TABLE_SQL_CLOB CLOB;
BEGIN
FOR ROW_USER_TABLE IN USER_TABLE_CSR LOOP
TABLENAME := ROW_USER_TABLE.TABLE_NAME;
DBMS_OUTPUT.PUT_LINE(TABLENAME);
FILE_HANDLE := UTL_FILE.FOPEN('OUTPUTDIR' , 'CREATE_TABLE_SQL.txt', 'a');
UTL_FILE.PUT_LINE(FILE_HANDLE, '');
SELECT DBMS_METADATA.GET_DDL('TABLE', tablename)
INTO CREATE_TABLE_SQL_CLOB
FROM DUAL;
UTL_FILE.PUT_LINE(FILE_HANDLE, CREATE_TABLE_SQL_CLOB);
UTL_FILE.FCLOSE(FILE_HANDLE);
END LOOP;
END;