17,089
社区成员
发帖
与我相关
我的任务
分享
DECLARE
fhandle utl_file.file_type;
fp_buffer VARCHAR2(4000);
file_name CLOB;
i INT;
BEGIN
--file_name := '1.txt';
fhandle := utl_file.fopen('WENSI_PRO', '1.txt', 'R');
file_name := NULL;
i := 0;
WHILE i <= 5 LOOP
utl_file.get_line(fhandle, fp_buffer);
file_name := file_name|| chr(13) || fp_buffer;
IF fp_buffer = 'exit($ret);' THEN
EXIT;
END IF;
i := i + 1;
END LOOP;
dbms_output.put_line(i);
dbms_output.put_line(file_name);
utl_file.fclose(fhandle);
END;