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