باز كردن فايل ترتيبي و تصادفي - دستور Open

شكل كلي دستور:

Open FilePath For Mode Access AccessType  As FileNumber Len = Width

Open: كلمه كليدي جهت باز كردن فايل

FilePath: آدرس دقيق فايل (با پسوند) كه اشاره گر جهت پيدا كردن موقعيت فايل به آدرس فايل ميره.

For: كلمه كليدي

Mode:

Access: كلمه كليدي

AccessType: نوع دسترسي به فايل با مشخصات زير:

• Shared: در شبكه كاربران مي توانند همزمان يك فايل رو باز كنند.
• Lock Read: كاربر فايل رو فقط مي تونه بخونه
• Lock Write: كاربر اجازه ويرايش يا تغييرات رو در فايل دارند.
• Lock Read Write: كاربر مي تونه فايل رو بخونه بنويسه

AS: كلمه كليدي

FileNumber: شماره فايل كه بوسيله تابع ()FreeFile بدست مياد ( توضيحات:

)

Len: كلمه كليدي

Width: طول يك ركورد از فايل رو تعيين مي كنه.

به هر سطر در فايل ركورد مي گن.

 Open "C:\Student.txt" For Input As #FreeFile Len = 7

اين فايل قبلاً در مسير

وجود داشته در غير اينصورت پيغام خطا صادر ميشه و يك ركورد به طول 7 رو مي خونه.

 Open "C:\Student.txt" For Output As #FreeFile Len = 7

اگر فايلي با اين نام از قبل بوده اطلاعاتش رو پاك مي كنه و اشاره گر رو در ابتداي فايل نگه مي داره و اجازه نوشتن يك ركوردي به طول 7 رو صادر مي كنه.

 FileNumber = FreeFile
 Open "C:\Student.txt" For Append As #FileNumber Len = 7
  Print #FileNumber, "Obalit"
 Close #FileNumber

من در اينجا يك متغير FileNumber از نوع Integer تعريف كردم و مقدارش رو برابر تابع ()FreeFile قرار دادم.

فايل Student.txt رو باز مي كنه و بدون اينكه اطلاعات قبلي اون رو پاك كنه اون رو باز مي كنه و اجازه نوشتن ركوردي به طول 7 رو صادر مي كنه و بوسيله دستور

درون فايل كلمه Obalit رو مي نويسه. و در انتها بوسيله دستور

فايل رو ميبنده.

براي باز كردن يك فايل تصادفي بايد

به صورت Random باشه. فايل تصادفي زماني به د مي خوره كه دسترسي ما به فايل به صورت مستقيم باشه يعني بوسيله آدرس دقيق فايل (آدرس + ركورد مورد نظر) ما بخواهيم يه فايل رو باز كنيم.

 Open "C:\Student.txt" For Random As #FreeFile Len = RecordWidth

بوسيله اين دستور ميشه اطلاعات فايل tudent.txt به صورت تصادفي خواند.

معمولاً براي نوشتن (ثبت ركورد) از اين حالت استفاده مي شه.