一个用于拆分文件的过程

CREATE OR REPLACE procedure chaifen

( v_dir varchar2,

v_name varchar2,

v_num number)

as

v_file_handle utl_file.file_type;

v_count integer :=1;

begin

v_file_handle :=

utl_file.fopen(v_dir,v_name,'r'); --'r' 只读

loop

utl_file.fcopy

(src_location =>v_dir,

src_filename =>v_name,

dest_location =>v_dir,

dest_filename =>replace(v_name,'.txt','_')||to_char(v_count)||'.txt',

start_line =>(v_count-1)*v_num+1,

end_line => v_count*v_num);

v_count:=v_count+1;

end loop;

exception

when no_data_found then

utl_file.fclose(v_file_handle);

end chaifen;

-- exec chaifen('E:\拆分练习\',EMP.txt',50000);