0

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

 
paysokhan
paysokhan
کاربر نقره ای
تاریخ عضویت : آبان 1388 
تعداد پست ها : 364
محل سکونت : فارس

باز كردن فايل ترتيبي و تصادفي - دستور 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 بدست مياد ( توضيحات:

مفهوم فايل - File

)


Len: كلمه كليدي


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


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


باز كردن يك فايل ترتيبي جهت خواندن:
کد:
 Open "C:\Student.txt" For Input As #FreeFile Len = 7

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

"C:\Student.txt"

وجود داشته در غير اينصورت پيغام خطا صادر ميشه و يك ركورد به طول 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 رو صادر مي كنه و بوسيله دستور

Print

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

Close

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


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

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

حالات دسترسي به فايل

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


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

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


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

اسلام پیروز است
 
سه شنبه 5 بهمن 1389  1:38 AM
تشکرات از این پست
دسترسی سریع به انجمن ها