وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

مُساهمة من طرف أحمد مناع في الخميس يونيو 27, 2013 9:28 pm

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


إخوانى الكرام أهلا وسهلا بكم فى درس جديد من دروس منتدى مصر التقنى ....درس اليوم ان شاء الله تعالى سنتعلم سويا كيفية استخدام و ظائف الفجوال بيسك 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

 

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

مُساهمة من طرف tryold في الإثنين يوليو 01, 2013 7:25 pm

ممتاز

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ


ليس من اخترق جهاز اصبح هكر

وليس من كتب كود اصبح مبرمج

وليس من كسر برنامج صار خيبير كسر

ولكن من تواضع لله رفعة


tryold
...
...

تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 45
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

مُساهمة من طرف أحمد مناع في الثلاثاء يوليو 02, 2013 6:58 am

tryold كتب:ممتاز

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

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

مُساهمة من طرف ذوكا في السبت مايو 17, 2014 12:24 pm

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

ذوكا
.....
.....

تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 155
التقيم : 11
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: وظائف الفجوال بيسك 6 للوصول و معالجة الملفات من إدخال و إخراج File Access with I/O Operations

مُساهمة من طرف أحمد مناع في الأحد مايو 25, 2014 11:04 am

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى