oracle存储过程文件在哪,Oracle存储过程读文件-Oracle

Oracle存储过程读文件

create or replace

PROCEDURE PR_FINANCE_PRODUCT_PARSE

(

v_filename  IN  VARCHAR2,   –解析文件名称

v_retvalue  OUT NUMBER      –1为成功，0为失败

)

AS

–文件句柄

filehandle utl_file.file_type;

–缓冲区

filebuffer varchar2(255);

–文件名

lv_filename varchar2(100);

–文件到表字段的映射

lv_product_number  varchar2(255);

lv_product_name    varchar2(255);

lv_min_capital     varchar2(255);

lv_max_capital     varchar2(255);

lv_interest_rate   varchar2(255);

lv_begin_time      varchar2(255);

lv_end_time        varchar2(255);

lv_time_limit      varchar2(255);

lv_product_status  varchar2(255);

–列指针

lv_i number;

–字符串定位解析指针

lv_sposition1 number;

lv_sposition2 number;

lv_sposition3 number;

lv_sposition4 number;

lv_sposition5 number;

lv_sposition6 number;

lv_sposition7 number;

lv_sposition8 number;

–声明异常

invalid_data_format  exception;

BEGIN

if v_filename is null then

lv_filename:=’finance_product_’|| substr(to_char(sysdate,’YYYYMMDDHH24MISS’),1,10) ||’.txt’ ;

else

lv_filename := v_filename;

end if;

EXECUTE IMMEDIATE ‘truncate table T_FINANCING_PRODUCT’;

–打开一个文件句柄 ,同时fopen的第一个参数必须是大写

filehandle := utl_file.fopen(‘FINANCE_PRODUCT_DIR’,lv_filename,’r’);

Loop

begin

–将文件信息读取到缓冲区filebuffer中,每次读取一行

utl_file.get_line(filehandle,filebuffer);

dbms_output.put_line(filebuffer);

–数据文件一行字符串中数据分割符’|’的位置

lv_sposition1 := instr(filebuffer, ‘|’, 1,1);

lv_sposition2 := instr(filebuffer, ‘|’, 1,2);

lv_sposition3 := instr(filebuffer, ‘|’, 1,3);

lv_sposition4 := instr(filebuffer, ‘|’, 1,4);

lv_sposition5 := instr(filebuffer, ‘|’, 1,5);

lv_sposition6 := instr(filebuffer, ‘|’, 1,6);

lv_sposition7 := instr(filebuffer, ‘|’, 1,7);

lv_sposition8 := instr(filebuffer, ‘|’, 1,8);

–字符串解析正常情况

if lv_sposition1 <>0 then

lv_product_number := substr(filebuffer, 0, lv_sposition1-1);                               –第一列

else

raise invalid_data_format;

end if;

if lv_sposition2 <> 0 then

lv_product_name := substr(filebuffer, lv_sposition1+1, lv_sposition2-lv_sposition1-1);      –第二列

else

raise invalid_data_format;

end if;

if lv_sposition3 <> 0 then

lv_min_capital := substr(filebuffer, lv_sposition2+1, lv_sposition3-lv_sposition2-1);         –第三列

else

raise invalid_data_format;

end if;

if lv_sposition4 <> 0 then

lv_max_capital  := substr(filebuffer, lv_sposition3+1, lv_sposition4-lv_sposition3-1);        –第四列

else

raise invalid_data_format;

end if;

if lv_sposition5 <> 0 then

lv_interest_rate  := substr(filebuffer, lv_sposition4+1, lv_sposition5-lv_sposition4-1);      –第五列

else

raise invalid_data_format;

end if;

if lv_sposition6 <> 0 then

lv_begin_time  := substr(filebuffer, lv_sposition5+1, lv_sposition6-lv_sposition5-1);          –第六列

else

raise invalid_data_format;

end if;

if lv_sposition7 <> 0 then

lv_end_time := substr(filebuffer, lv_sposition6+1, lv_sposition7-lv_sposition6-1);             –第七列

else

raise invalid_data_format;

end if;

if lv_sposition8 <> 0 then

lv_time_limit  := substr(filebuffer, lv_sposition7+1, lv_sposition8-lv_sposition7-1);            –第八列

lv_product_status := substr(filebuffer, lv_sposition8+1);                                        –第九列

else

raise invalid_data_format;

end if;

–每列循环完后将信息保存到表中

dbms_output.put_line(‘insert data into table’);

insert into T_FINANCING_PRODUCT

(

PRODUCT_NUMBER,

PRODUCT_NAME,

MIN_CAPITAL,

MAX_CAPITAL,

INTEREST_RATE,

BEGIN_TIME,

END_TIME,

TIME_LIMIT,

PRODUCT_STATUS

)

values

(

lv_product_number,

lv_product_name,

lv_min_capital,

lv_max_capital,

lv_interest_rate,

lv_begin_time,

lv_end_time,

lv_time_limit,

lv_product_status

);

exception

WHEN no_data_found THEN

exit ;

end;

End Loop;

commit;

–关闭句柄

utl_file.fclose(filehandle);

v_retvalue :=1;

EXCEPTION

WHEN invalid_data_format THEN

v_retvalue :=0;

dbms_output.put_line(‘invalid_data_format exception’);

when others then

v_retvalue :=0;

dbms_output.put_line(‘Othre exception,error code=’||sqlcode||’,error msg=’||sqlerrm);

END PR_FINANCE_PRODUCT_PARSE;