منو اصلی

درگاه ورود کاربران
لینک سایت های مفید
تقویم
<    «  بهمن 1390  »    >
شيدسچپج
1234567
891011121314
15161718192021
22232425262728
2930 
آرشیو
امار سایت
آمار مطالب:
  يک ساعت پيش: 0
  امروز: 0
  اين ماه: 7
  مجموع مطالب: 398
  کل نظرات: 309



آمار بازديد:
  بازديد امروز: 3901
  بازديد ديروز: 3512
  مجموع بازديدها: 2495411



آمار کاربران:
  يک ساعت پيش: 0
  امروز: 9
  اين ماه: 347
  مجموع کابران: 7265
  بن شدگان: 2

آخرين عضو:


javad_gh1370

 


کاربران آنلاین:asd1363

رباطها آنلاین: Crawl Bot, Google Bot

در حال حاضر 1 کاربر, 2 رباط, 2 میهمان و در مجموع 5 نفر در سایت حضور دارند.
همکاران سایت

--------------------
نظرسنجی

دوست دارید نرم افزار رو روی چه سیستم عاملی اجرا کنید ؟

Xp
Vista
Seven
Apple
Windows android
تازه های سایت
بخش های پربازدید
اطلاعات سایت
حمایت  فارسی دی بی

 

http://www.farsidb.com/farsidb.gif

برای حمایت از فارسی دی بی کد بالا را در سایت و یا وبلاگ خود قرار دهید با تشکر

رتبه و اطلاعات سایت   

   http://www.farsidb.com/alex.jpg

 

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

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 باشه. فايل تصادفي زماني به د مي خوره كه دسترسي ما به فايل به صورت مستقيم باشه يعني بوسيله آدرس دقيق فايل (آدرس + ركورد مورد نظر) ما بخواهيم يه فايل رو باز كنيم.
1

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

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

بازدیدها: 254

http://www.farsidb.com/forum.gif


شماره نظر: 1 | نويسنده: Popugaiwm | [ايميل] | تاريخ ارسال: 11/12/1390 - 06:32
| نام کامل: -- | تاريخ عضويت: 11.12.1390 | کشور: --

تعداد مطالب: 0
تعداد نظرات: 11

блог гиберта http://blogreit.ru блог инна воловичева
эмили блог http://rakanblog.ru блоги министров казахстана
обзор игр блог http://uaforex.ru блог о ремонте
   

اطلاعات
 
براي ارسال نظر، بايد در سايت عضو شويد.

 
 

پشتیبانی شده توسط سرور باران