使用UTL_FILE类进行导出多个文件
使用UTL_FILE类进行导出多个文件
需求：将ALL_OBJECTS按照3000条一个文件进行导出，比如6001条记录，就应该导出三个文件，第一个和第二个文件都是3000条，最后一个文件应该是1条。
下面的例子是使用SCOTT用户下的ALL_OBJECTS为例，除了常见的SPOOL等方式之外，还可以使用UTL_FILE包进行导出，代码大致如下：
--创建一个DIRECTORY UT 指向操作系统中的D盘目录(最好是用具有DBA权限的用户操作)
CREATE DIRECTORY UT AS 'D:\';
--授权读、写
GRANT WRITE,READ ON DIRECTORY UT TO PUBLIC;
--执行下面的PL/SQL块
DECLARE
V_F1 UTL_FILE.FILE_TYPE;
BEGIN
--外层循环得到内层循环BETWEEN的最小值和最大值
FOR J IN (SELECT (LEVEL - 1) * 3000 MINVAL, LEVEL * 3000 MAXVAL
FROM DUAL
CONNECT BY LEVEL <=
(SELECT COUNT(1) FROM ALL_OBJECTS) / 10000 + 1) LOOP
V_F1 := UTL_FILE.FOPEN('UT', 'DATA' || J.MAXVAL || '.TXT', 'W');
--内层循环，获取需要导出的数据
FOR I IN (SELECT T.OWNER, T.OBJECT_NAME
FROM (SELECT ALL_OBJECTS.*,ROW_NUMBER() OVER(ORDER BY OBJECT_NAME) RN FROM ALL_OBJECTS) T
WHERE RN BETWEEN J.MINVAL AND J.MAXVAL) LOOP
--行数据依次写入文件
UTL_FILE.PUT_LINE(V_F1, I.OWNER || I.OBJECT_NAME);
END LOOP;
UTL_FILE.FCLOSE(V_F1);
END LOOP;
END;
