IBM Lotus Symphony


Get Statement [Runtime]

يتم قراءة سجل من ملف نسبي، أو تسلسل من البايت من ملف binary file، الى متغير.

أنظر أيضا: عبارة PUT

الصيغة:

Get [#] FileNumber As Integer, [Position], Variable

المعاملات:

FileNumber: أي تعبير رقمي يحدد رقم الملف.

Position: بالنسبة للملفات التي تم فتحها بنمط Random mode، Position هو رقم السجل الذي تريد قراءته.

بالنسبة للملفات التي تم فتحها في نمط Binary mode، Position هو موضع البايت في الملف حيث يتم بدء القراءة.

اذا تم حذف Position، سيتم استخدام الموضع الحالي أو سجل البيانات الحالية في الملف.

Variable: اسم المتغير الذي سيتم قراءته. باستثناء متغيرات العناصر، يمكنك استخدام أي نوع متغير.

مثال:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Must be a variant

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Random As #iNumber Len=32

Seek #iNumber,1 REM Position at beginning

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

end sub


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