IBM Lotus Symphony
|
يتم قراءة البيانات من ملف متتالي مفتوح.
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