3,494
社区成员




参考如下方法:
DECLARE
CURSOR L_V IS
SELECT VIEW_NAME, S.TEXT_LENGTH FROM USER_VIEWS S;
L_F UTL_FILE.FILE_TYPE;
L_NUM INT DEFAULT 0;
L_MAXSIZE INT DEFAULT 5000; --每个文件可以存储的记录数
L_FILENO INT DEFAULT 1;
BEGIN
FOR I IN L_V LOOP
IF MOD(L_NUM, L_MAXSIZE) = 0 THEN
IF L_FILENO > 0 THEN
UTL_FILE.FCLOSE(L_F);
END IF;
L_F := UTL_FILE.FOPEN('TEST',
'xx' || L_FILENO || '.txt',
'w',
32767);
L_FILENO := L_FILENO + 1;
END IF;
UTL_FILE.PUT_LINE(L_F, I.VIEW_NAME || ',' || I.TEXT_LENGTH);
L_NUM := L_NUM + 1;
END LOOP;
UTL_FILE.FCLOSE(L_F);
END;
/