بسم الله الرحمن الرحيم


إخوانى الكرام أهلا وسهلا بكم فى درس جديد من دروس منتدى مصر التقنى ....درس اليوم ان شاء الله تعالى سنتعلم سويا كيفية استخدام و ظائف الفجوال بيسك 6 للوصول و معالجة الملفات كالقراءة و الكتابة من والى الملف ...حيث يمكنك إنشاء و تخزين كميات كبيرة من البيانات، و الوصول إلى عدة مجموعات من البيانات في وقت واحد باستخدام بعض الوظائف التى يوفرها الفجوال بيسك 6 ...


وقبل البدء تعالوا نتعرف على الطرق المستخدمة فى الوصول وفتح الملفات ومن ثم القراءة و الكتابة من والى الملفات وهى على النحو التالى :



الطريقة الاولى : طريقة الوصول المتسلسل Sequential Access


الطريقة الثانية : طريقة الوصول العشوائى Random Access


الطريقة الثالثة : طريقة الوصول الثنائى Binary Access



أولا : طريقة الوصول المتسلسل Sequential Access


تستخدم تلك الطريقة مع الملفات التى تحتوى على بيانات نصية مثل Autoexec.bat أو WIN.INI أو text حيث تمكنك من قراءة و كتابة وتحزين البيانات كأحرف ... وبالتالي، فإن أي رقم يكتب فى تلك الطريقة يحول إلى قيمة ASCII ليتم تخزين الرقم فى الملف ..... على سبيل المثال، يتم تخزين رقم 17 على أنه حرفين منفصلين "1" و "7" ومن ثم يحول الى قيمة ASCII وهو ما يعني أن 17 يتم تخزين و[49 55] وليس كما 17 ....


_ فتح ملف بطريقة الوصول المتسلسل


لفتح ملف بتلك الطريقة تستخدم العبارة التالية :

الكود:


Open FILENAME For MODE As FILE#

كما ترون فى الشفرة السابقة لفتح الملف في طريقة الوصول المتسلسل فنحن بحاجة إلى استخدام الأمر open ثم يتم تمرير الية  FILENAME اسم الملف والذى يحتوى على مسار الملف المراد فتحه.....ثم تمرير وضع الفتح MODE بعد كلمة for و التى تشمل ثلاث اوضاع وهى :

  INPUT -> يستخدم لقراءة من ملف.  OUTPUT -> تستخدم لكتابة إلى ملف.  APPEND -> تستخدم لكتابة إلى ملف 

بعد ذلك يتم تحديد بداية مؤشر القراءة أو الكتابة للملف و الذى يمكن أن يكون رقم مابين 1-255 متبوع بالرمز الشباك # ...أملثة :

قراءة ملف باٍستخدام طريقة الوصول المتسلسل:

الآن دعونا نحاول فتح و القراءة من ملف نصى. باستخدام نمط الادخال  INPUT و أستخدام الامر Line Input . وذلك على النحو التالى:

الكود:

Dim tmp as String
Open "C:\Contacts.txt" For Input as #1
Line Input #1, tmp
Close #1
Msgbox tmp

فى السطر الاول قمنا بالاعلان عن متغر نصى لتخزين بيانات الملف النصى بداخلة .... فى السطر الثانى استخدمنا جملة الوصول وفتح الملف باستخدام الامر open مع تمرير اسم ومسار الملف المراد فتحته مع استخدام الوضع  Input وذلك لكوننا نريد القراءة من الملف ......فى السطر الثالث بعد ما قمنا بفتح الملف نقوم بقارءة محتوياته من خلال الامر  Line Input ....أما فى السطر الرابع قمنا باغلاق الملف وهو امر إلزامى حتى لا تضيع البيانات التى تم قرائتها ....فى السطر الخامس و الاخير هو عرض رسالة بالبيانات التى تم قرائتها وتخزينها فى المتغير tmp 

مثال أخر .....المثال السابق سيقوم بقراءة أول سطر فقط فى الملف النصى و لكى نستطيع قراءة كامل الملف نستخدم حلقة تكرارية كما فى المثال التالى :

الكود:

Dim tmp As String, contents As String
 Open "C:\Contacts.txt" For Input As #1
 While EOF(1) = 0
 Line Input #1, tmp
 contents = contents + tmp
 Wend
Close #1
 MsgBox contents

ويجب ملاحظة أننا قد أستخدمنا الامر EOF(1) = 0 و الذى يحدد ما اذا قد وصل المؤشر لنهاية الملف ....كما يمكنك استخدام حلقة التكرار فى المثال السابق كما يلى :

الكود:


Dim tem As String

    Open C:\Contacts.txt"For Input As #1
  
    Do While Not EOF(1)
        Line Input #1, tem
        Debug.Print tem
    Loop
      
    Close #1

الكتابة الى الملف فى طريقة الوصول المتسلسل :

  كما أخبرنا في وقت سابق قلنا أن هناك نوعان من الاوضاع التى تسخدم لكتابة البيانات إلى ملف، وضع الإخراج  OUTPUT  ووضع الالحاق   APPEND أما الفرق بينهما يتمثل فى الاتى :

 وضع الإخراج  OUTPUT  : يقوم بإنشاء ملف جديد بغض النظر عن ما إذا كان ملف بنفس الاسم موجود أم لا. وبعبارة أخرى،  إذا لم يكن الملف موجودا في الدليل فإنه يقوم بأنشاءة ...أما اذا كان الملف موجود فأنه يقوم بكتابة فوقه مما يعنى فقد البيانات التى كانت بداخله 

وضع الالحاق  APPEND : يفعل بالضبط ما يفعله طريقة الإخراج  OUTPUT  ولكن مع الفارق. فإنه يمكن أيضا إنشاء ملف إذا لم يكن موجودا في الدليل. ولكن إذا كان الملف موجودا، فإنه يضيف البيانات (التى قد كتبناها) إلى الملف دون إنشاء ملف جديد. وهذا يعني أننا يمكن أن تضيف معلومات جديدة دون تدمير المعلومات التي  كانت موجودة من قبل.
 

و بناء الجملة للكتابة الى الملف فى كلا الوضعين لا تختلفان كثير حيث يمكن  استخدام أما الامر Write  أو الامر Print فى كلا الوضعين للكتابة الى الملف ....مثال بأستخدام الوضع  Output :

الكود:

Open "C:\names_database.txt" For Output As #1
 Print #1, "My Name is Ahmed", 910
 Write #1, "My Phone number is 12345678", 910
 Close #1

فى المثال السابق سيقوم البرنامج بانشاء الملف  names_database.txt إذا لم يكن موجودا فى هذا الدليل و كتابة البيانات السابقة أم أن كان موجودا سيقوم البرنامج فتحته و كتابة البيانات فيه مع مسح اى بيانات أخرى كانت فيه

 مثال اخر باستخدام الوضع  Append  

الكود:

Open "C:\names_database.txt" For Append As #1
 Print #1, "My Name is Ahmed", 910
 Write #1, "My Phone number is 12345678", 910
 Close #1

فى هذا المثال سيقوم البرنامج بأنشاء الملف   names_database.txt إن لم يكن موجود فى الدليل المحدد ....ولكن إن كان موجود بالفعل هذا الملف سيقوم فتحتة و اضافة البيانات فيه مع عدم حذف اى بيانات كانت موجوده به من فبل ...

مثال أخر

الكود:



Dim LName As String
Dim BDay As Date
Dim age As Integer

    Open "C:\FileIO\TEST.TXT" For Output As #1

    LName = "ahmed"
    BDay = #1/1/1995#
    age = 1
    Write #1, LName, BDay, age

    LName = "sayed"
    BDay = #4/29/1956#
    age = 39
    Write #1, LName, BDay, age

    LName = "mona"
    BDay = #5/1/1980#
    age = 15
    Write #1, LName, BDay, age

    Close #1

 

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

ممتاز

يعطيك العافية اخي احمد

tryold كتب:ممتاز

يعطيك العافية اخي احمد

 اشكرك اخى الكريم و جزاك الله خيرا

رائع جدا واتمنى تكلمة باقى الطرق اخى مناع

جارى تجهيز باقى المقال اخى