PROCEDURE read_text IS
in_file TEXT_IO.FILE_TYPE;
linebuf VARCHAR2(100);
p_brno number(3);
p_subcode number(3);
p_empno number(6);
p_flag number(1);
p_amt number(15,2);
BEGIN
delete from femp_sal;
Begin
in_file := TEXT_IO.FOPEN('c:\femp_sal.txt', 'r');
LOOP
TEXT_IO.GET_LINE(in_file,linebuf);
p_brno := substr(linebuf,1,3);--- ( linebuf,ÇáÈÏÇíÉ áÃæá ÑÞã , ÇáØæá ÇáÍÞá)
p_subcode := substr(linebuf,4,3);
p_empno := substr(linebuf,7,6);
p_amt := substr(linebuf,13,15);
p_flag := substr(linebuf,28,1);
insert into femp_sal (
BRNO , SUBCODE , EMPNO , AMT , FLAG )
values(
p_BRNO , p_SUBCODE , p_EMPNO , p_AMT , p_FLAG );
text_io.new_line;
END LOOP;
exception
when no_data_found then
text_io.fclose(in_file);
End ;
END;

جاري التجربة ، مع الشكر

اخي الكريم اختر القسم المناسب للموضوع