أرجوا أن تكون قد قرأت الجزء الاول من هذا الدرس
أن لم تقرأه أذهب إلى هذا الرابط
تكلمنا في الجزء الأول عن الطريقة الطباعة إلى ملف تسلسلي والدوال المستخدمة في ذلك ، وتكونت لديك فكرة عن هذا .
الأن سون نتكلم عن طريقة قراءة البيانات من ملف نصي ، وسوف نبدأ بعرض الدوال المستخدمة في الشرح
الدالة LineInput :
وهذه الدالة تقوم بقراءة سطر كامل نت الملف المفتوح .
التركيب النحوي لهذه الدالة هو :
LineInput(file_no)
file_no = رقم الملف المفتوح .
الدالة EOF :
ومهمة هذه الدالة التنبية عند وصول مؤشر القراءة إلى نهائية الملف, وهي تعيد القيمة False أو True .
التركيب النحوي لهذه الدالة هو :
EOF(file_no)
file_no = رقم الملف المفتوح .
الأمرvbCrLf :
ومهمة هذه الأمر نقل مؤشر الكتابة إلى سطر جديد وقد استعملناها لكي لا تتشابك الأسر في ما بينها .
وسوف نأخذ مثال على هذا الأمر لكي يتوضح لك أكثر
Print("Name: " & "Mohammed")
في هذا الكود سوف تكون النتيجة :
Name:Mohammed
Print("Name: " & vbCrLf & "Mohammed")
اما في هذا الكود سوف تكون النتيجة :
Name:
Mohammed
الأن سوف نأخذ مثال على طريقة القراءة من الملف
'نصرح عن متغير
Dim byan As String
'نفتح الملف
FileOpen(1, "c:filetest.txt", OpenMode.Input)
'ننشئ حلقة تنتهي بإنتقاء قراءة الملف
Do Until EOF(1)
'نسند القيم المقروءه من الملف إلى المتغير
byan = byan & LineInput(1) & vbCrLf
Loop
' إغلاق الملف
FileClose(1)
' إسناد القيم الموجود في المتغير إلى textbox1
TextBox1.Text = byanأرجوا أن يكون المثال واضح
محمد الفياض