IBM Lotus Symphony


Put Statement [Runtime]

يتم كتابة سجل لملف نسبي أو تسلسل من البايت الى ملف ثنائي 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

نهاية البرنامج


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