سؤال في الملفات مع الاوراكل

[ola_m78]

السلام عليكم
اريد السؤال عن كيفية التعامل مع ملف من نوع نص text بالاوراكل
من حيث اضافة سطر للملف او حذف سطر منه
و الاهم هي عملية الحذف من الملف

شكرا للجميع

[TheFOx]

السلام عليكم

يوجد بالطبع طريقه للتعامل مع الملفات عن طريق بعض ال Oracle Supplied Packages

هناك package تدعي UTL_FILE

تحتوي علي بعض ال Procedur وال function

like

• Function FOPEN لفتح الملف للاستعداد للكتابه

• Function IS_OPEN بواسطتها نستعلم ان كان مفتوح ام لا (boolean)

• Procedure GET_LINE نقرا السطر بواسطتها

• Procedure PUT, PUT_LINE, PUTF بواسطتها نكتب في الملف

• Procedure NEW_LINE نضع سطر جديد

• Procedure FFLUSH بواسطتها نكتب البيانات المخزنه في ال buffered

• Procedure FCLOSE, FCLOSE_ALL نقفل بها الملف او كل الملفات المفتوحه

ويمكنك الاستفاده اكثر بمراجعه ال Lesson 15 من Oracle universty intro to Pl/sql

(Oracle Supplied Packages)

واعتقد انه من السهل العثور علي تلك الكتب ك Pdf هنا في المنتدي

اتمني ان يكون ذلك الملخص الصغير قد وضح لك بعض الشي ما تطلبيه

السلام عليكم

[developer]

شكرا اخي

[khaled]

السلام عليكم
تحياتي لكم وشكرا للاخ TheFOx على الـpackage
وانا اضيف الى الاخ TheFOx طريقه اخرى للتعامل مع الملفات النصية من الـForms

هذه الطريق باستخدام الـForm package المسمى Text_io
1-function القراءه من ملف تكون كلاتي

FUNCTION Get_file (p_filename varchar2)RETURN Varchar2
Is
 in_file   Text_IO.File_Type;
 linebuf   VARCHAR2(1800);
 file_txt  varchar2(2000);
BEGIN
 --فتح الملف للقراءه
 in_file := Text_IO.Fopen(p_filename, 'r');
--تكرار للمرور على كل السجلات ووضعها في متغير
 LOOP
   Text_IO.Get_Line(in_file, linebuf);
   file_txt:=file_txt||linebuf;
--لعمل سطر جديد  
 file_txt:=file_txt ||chr(10);
 END LOOP;
 --لغلق الملف
 Text_IO.Fclose(in_file);
 Return (file_txt);
EXCEPTION
 WHEN no_data_found THEN
   Text_IO.Fclose(in_file);
   Return(file_txt);
END

;

2- procedure الكتابه في ملف

PROCEDURE Add_line(p_filename varchar2 , p_line varchar2)
IS
 out_file Text_Io.File_Type;
begin
--فتح الملف للإضافة
 out_file := Text_IO.Fopen(p_filename, 'a');
--سطر جديد  
 Text_io.new_line(out_file);
--اضافة البيانات
 Text_io.put(out_file,p_line);
--غلق الملف 
Text_Io.Fclose(out_file);
end;

وهذا مثال ملحق

text_io.fmb

تم تعديل 18 فبراير 2004 بواسطة khaled

[John]

معلومات جديدة و شيقة

[MuDesOR]

السلام عليكم

لقراءة سطر من ملف خارجي الى حقل بقاعدة الييانات

[left]DECLARE
in_file text_IO.file_type;
linebuf varchar2(80);

begin
in_file:=text_io.fopen('c:\lolo.TXT','r');
TEXT_IO.Get_line(in_file,linebuf);
:read_text.content:=:read_text.content||linebuf||chr(20);

end;

[/left]

[farooq alsamet]

ارجوا اعادة رفع الملف من جديد ومشكو اخي خالد وجزاك اللة خير

[walidfareed]

معلومات فعلا قيمة و ارجو رفع الملف مرة اخرى لتعم الفائدة