IBM Lotus Symphony


Input# Statement [Runtime]

يتم قراءة البيانات من ملف متتالي مفتوح.

الصيغة:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

المعاملات:

FileNumber: الرقم الخاص بالملف الذي يحتوي على البيانات التي تريد قراءتها. يجب أن يتم فتح الملف بعبارة Open باستخدام الكلمة المرشدة INPUT.

var: متغير رقمي أو متغير مجموعة حروف تقوم بتخصيص قيم قراءة من الملف المفتوح له.

تقوم عبارة Input# بقراءة القيم الرقمية أو مجموعات الحروف من ملف مفتوح ويقوم بتخصيص البيانات لمتغير أو أكثر. يتم قراءة المتغير الرقمي حتى أول carriage return (Asc=13) أو line feed (Asc=10) أو مسافة أو فاصلة. يتم قراءة متغير مجموعة حروف حتى أول carriage return (Asc=13) أو line feed (Asc=10) أو فاصلة.

يجب أن تظهر البيانات وأنواع البيانات في الملف المفتوح بنفس الترتيب كالمتغيرات التي يتم امرارها بالمعامل "var". اذا قمت بتخصيص قيم غير رقمية لمتغير رقمي، سيتم تخصيص "var" بالقيمة "0".

السجلات التي تم فصلها بفاصلات، لا يمكن تخصيصها لمتغير مجموعة حروف. يتم تجاهل علامات الاقتباس (") في الملف أيضا. اذا كنت تريد قراءة هذه الحروف من الملف، استخدم عبارة Line Input# لقراءة ملفات نصية تماما (ملفات تحتوي على حروف يمكن طباعتها فقط) سطر-سطر.

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

مثال:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "هذا سطر من النص"

Print #iNumber، "هذا سطر آخر من النص"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية