IBM Lotus Symphony
|
يتم كتابة سجل لملف نسبي أو تسلسل من البايت الى ملف ثنائي binary file.
أنظر أيضا: عبارة Get
Put [#] FileNumber As Integer, [position], Variable
FileNumber: أي تعبير رقمي يقوم بتعريف الملف الذي تريد الكتابة به.
Position: بالنسبة للملفات النسبية(الملفات التي يتم التوصل اليها عشوائيا)، الرقم الخاص بالسجل الذي تريد كتابته.
بالنسبة للملفات الثنائية (توصل binary)، الموضع الخاص بالبايت في الملف حيث تريد بدء الكتابة.
Variable: الاسم الخاص بالمتغير الذي تريد كتابته بالملف.
ملاحظة بالنسبة للملفات النسبية: اذا كانت محتويات هذا المتغير لا تطابق الطول الخاص بالسجل الذي تم تحديده في Lenclause بعبارة Open، سيتم ملء المسافة بين السجل الذي تم كتابته حديثا والسجل التالي بالبيانات الحالية من الملف الذي تقوم بالكتابة به.
ملاحظة للملفات الثنائية: يتم كتابة محتويات المتغيرات بالموضع المحدد، ويتم ادراج مؤشر الملف مباشرة بعد آخر بايت. لم يتم ترك مسافات بين السجلات.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM Must be a variant type
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position to start writing
Put #iNumber,, "هذا هو السطر الأول من النص" REM Fill line with text
Put #iNumber,, "هذا هو السطر الثاني من النص"
Put #iNumber,, "هذا هو السطر الثالث من النص"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"هذا عبارة عن نص جديد"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"هذا هو النص الموجود في السجل 20"
Print Lof(#iNumber)
Close #iNumber
نهاية البرنامج