انا بستخدم6i
بحاول اقرا من ملف واكتب فى ملف تانى
باكتب الكود دة

declare 
T_filename Text_Io.File_Type;
w_NewLine varchar(200);
x varchar(200);

Begin loop


T_filename := Text_Io.Fopen('e:\a.txt', 'R');
Text_IO.Get_Line(T_filename  ,w_NewLine);

--Text_Io.Fclose(T_filename);
T_filename := Text_Io.Fopen('c:\test.txt', 'W');
Text_Io.new_line;
Text_Io.Put_Line(T_filename,w_NewLine);


end loop;
Text_Io.Fclose(T_filename);
exception
	 When no_data_found Then
   text_io.fclose(T_filename);

	
End;

لكن بيطلع error 302000
مش عارف لية ممكن المساعدة

هو دلوقتى مش بيطلع حاجة بس بيقرا سطر واحد من فضلكم مساعدة

ارجوكم المساعدة

انا وصلت للكود الصح وحبيت اكتبه افادة لزملائى
الكود دة بيقرا من ملف ويكتيب فى ملف تانى

declare 
T_filename Text_Io.File_Type;
T_filename1 Text_Io.File_Type;
w_NewLine varchar(40);


Begin T_filename := Text_Io.Fopen('e:\a.txt', 'R');
T_filename1 := Text_Io.Fopen('c:\test.txt', 'W');

loop

message('1');
Text_IO.Get_Line(T_filename,w_NewLine);
message('2');

Text_Io.Put_Line(T_filename1,w_NewLine);
message('3');

end loop;
Text_Io.Fclose(T_filename);
exception
	 When no_data_found Then
   text_io.fclose(T_filename);
   

END;

حبيت بس اوضح انا كنت بكتب
message('1')
علشان اقدر اعرف الكود بيقف فين

كان للتوضيح ليا مش اكتر

السلام عليكم
بعد البحث وجدت هذا الرابط http://www.araboug.org/ib/index.php?showto...tart=#entry1588
وقمت بتنفيذ ما به والنتيجه حاليا مظبوطه

قمت بعمل فورم مرفقه للتجربه

Text_IO.rar