چند نکته جالب از ویژوال بیسیک
بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد . بطور کلی فايلها بر دو نوع هستند :
1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی وبرخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند . ۲ - فايلهای باينریBinary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارندمانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره ويژوال بيسيک می تواند با هر دو نوع فايل کار کند . چگونگی باز کردن فايلها قبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدابايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام میشود . فرمت کلی اين دستور بصورت زير است :
کد:
Open filename [For mode] [Access access][lock] As [#]filenumber [Len=reclen]
[ پارامترهای داخل کروشه اختياری هستند . ]
filename نام فايلی است که می خواهيم آنرا باز کنيم .
mode حالت باز کردن فايل است . اين حالتها عبارتند از :
- Input : فايل بعنوان ورودی بازمی شود .
- Output :فايل بعنوان خروجی باز می شود .
- Binary :فايل ازنوع باينری باز می شود .
- Append :فايل طوری باز می شود که بتوان به انتهایآن چيزی اضافه کرد .
- Random access نوع دسترسی به فايل را مشخص می کند .انواع دسترسيها عبارتند از :
- Read : خواندن فايل
- Write : نوشتن در فايل
- ReadWrite : خواندن و نوشتن فايل
- lock نوع دسترسی ساير برنامه ها بهاين فايل را مشخص می کند . انواع دسترسيها عبارتند از :
- Shared : دسترسیاشتراکی
- Lock Read
- Lock Write
- Lock Read Write
filenumber عددی است که ويژوال بيسيک از آن برای دسترسی به فايل استفاده می کند .اين عدد بايستی برای هر فايل منحصر بفرد و بين ۱ تا ۵۱۱ باشد . برای بدست آوردن اولين شماره آزاد می توان از تابعFreeFile استفاده کرد .
reclen :طول بافر فايل است . اين عدد بايستی از ۳۲۷۶۷ کو چکتر باشد . در صورتی که فايلی که توسط filename مشخص شده وجود نداشته و فايل برای Append ، Binary ، Output و يا Random باز شده باشد در اينصورت يک فايل جديد با اين نام ساخته می شود . در صورتی که فايل بصورت باينری باز شده باشد پارامتر Len ناديده گرفته می شود .
چگونگی بستن فايل پس از پايان کار با فايل برای بستن آن از دستور Close استفاده می کنيم . فرمت اين دستور بصورت زير است :
Close #filenumber دستورClose بدون هيچ پارامتری تمام فايلهای باز را می بندد . کار با دايرکتوری ۱ - گرفتن Dir : توسط دستور Dir می توان نام فايلهای موجوددر يک دايرکتوری را بر اساس پارامترهايي که به آن می دهيم پيدا کنيم . برای مثال :
کد:
Myfile=Dir$("c:\text\*.txt)"
دستور فوق نام اولين فايل موجود دردايرکتوری C:\TEXT را که پسوند آنها txt باشد در متغير Myfile قرار می دهد . اگردستور فوق رابدون پارامتر مجدداً اجرا کنيم نام دومين فايل برگرداننده میشد و الی آخر
Dir دارای يک پارامتر اختياری است که نوع فايلهای مورد نظر را نيز می توان با آن مشخص نمود . مثال :
کد:
Myfile=Dir$("c:\text\*.txt",vbNormal)
مقادير ممکن اين پارامتر عبارتند از : vbNormal، vbHidden ، vbSystem ، vbDirectory ۲ - تغيير دايرکتوری : برای تغيير دايرکتوری از دستور ChDir استفاده می شود مثال :
کد:
ChDir "c:\windows\system32"
۳ - تغيير درايو : برای تغيير درايو از دستور ChDrive استفاده می شود مثال :
کد:
ChDrive "E:"
۴- ساخت دايرکتوری : برای ايجاد دايرکتوری جديد از دستور MKDir استفاده می شود مثال :
کد:
MKDir "c:\MyFolder"
۵ - حذف دايرکتوری : برای حذف دايرکتوری از دستور RmDir استفاده می شود مثال :
کد:
RmDir "C:\MyFoler"
خواندن از فايل :
۱ - دستور Input : توسط دستورهای Input و Line Input می توان محتوای فايلهای متنی و باينری را خواند . دستور Input به دو صورت بکار می رود :
کد:
Input #Filenumber,ReadData
ReadData=Input(Charnum,Filenumber)
دستور اول کل يک فايل را خوانده و درمتغير ReadData قرار می دهد . دستور دوم ، تعداد Charnum بايت از فايلی با شماره Filenumber را خوانده و در متغير ReadData قرار می دهد . اين دو دستور تمام کاراکترهای موجود در فايل را می خوانند . برای اينکه بتوان فايل را خط به خط خواند، از دستور Line Input استفاده کنيد :
کد:
Line Input #Filenumber,ReadData
البته از دستور Line Input بيشتر برای خواندن فايلهای متنی استفاده می شود زيراممکنست در فايل باينری هيچ کاراکتر انتهای خط ( CRLF ) وجود نداشته باشد و يکباره کل فايل خوانده شود . ۲ - دستور Get : از اين دستور برای خواندن فايلهای باينری با دسترسی تصادفی ( Random Access ) استفاده میشود :
کد:
Get #Filenumber,[Recordnum%],ReadData
اين دستور رکورد شماره Recordnum را ازفايلی با شماره Filenumber می خواند و در متغير ReadDataقرار می دهد . علامت کروشه نشان می دهد که پارامتر Recordnum اختياری است و در صورتيکه ذکر نشود داده ها ازرکورد بعدی فايل ( جائيکه اشاره گر فايل آنجا قرار دارد ) خوانده می شوند . نوشتن در فايل : ۱ - دستور Print : توسط اين دستور می توان اطلاعاتی را در فايل قرار داد :
کد:
Print #FileNumber,WriteData
دستور فوق محتويات متغير WriteData را در فايلی با شماره FileNumber می نويسد . بوسيله دستورPrint می توان اطلاعات را بصورت خط به خط در فايل نوشت برای مثال :
کد:
Print #1,"Hello Visual Basic"+Vbcrlf
عبارت Vbcrlf نشان دهنده کاراکتر انتهای خط ( CRLF ) در ويژوال بيسيک می باشد . ۲ - دستور Put : اين دستور برای نوشتن داده ها در فايلهای باينری با دسترسی تصادفی بکار می رود :
کد:
Put #FileNumber,[Recordnum],WriteData
اين دستور محتويات متغير WriteData را دررکورد شماره Recordnum قرار می دهد . تعيين محل رکورد در فايلهای بادسترسی تصادفی : برای منتقل کردن اشاره گر فايل به يک رکورد در يک فايل باينری با دسترسی اتفاقی ، از دستور Seek استفاده می شود . اين دستور محل يک بايترا در فايل می گيرد و اشاره گر فايل را در آنجا قرار می دهد بنابراين دستورات Put وGet می توانند با اين رکورد کار کنند :
کد:
Seek #FileNumber,RecordNumber
تشخيص انتهای فايل : برای اينکه متوجه شويم به انتهای يکفايل رسيده ايم از دستور EOF استفاده می کنيم . اين دستور يکی از مقادير True يا False را بر می گرداند که نشان می دهد به انتهای فايلرسيده ايم يا نه . از اين تابعدر حلقه های Do-While استفاده می شود :
کد:
Do While Not (EOF(FileNumer))
.
.
.
Loop
حلقه فوق تا زمانيکه فايل موردنظر به انتها نرسيده باشداجرا خواهد شد . بدست آوردن طول يک فايل : بوسيله دستور LOF می توان طول محتويات يک فايل را بدست آورد :
کد:
FileSize=LOF(FileNumber)
بدست آوردن محل اشاره گر فايل : توسط دستور Loc می توان محلجاری اشاره گر فايل را بدست آورد . اجرا شدن اين دستور محل اشاره گر را تغيير نمیدهد :
کد:
FilePosition=Loc(FileNumber)
ساير عمليات کار با فايل : ۱ - حذف فايل : برای حذف يک يا چند فايل از دستور Kill استفاده می شود :
کد:
Kill "C:\Temp\MyFile.txt"
Kill "C:\Temp\*.txt"
۲ - انتقال فايل: برای انتقال يک فايل از يک دايرکتوری به دايرکتوری ديگر از دستور Name استفاده میشود . مبدا و مقصد بايستی روی يک درايو باشند . اگر دايرکتوری مبدا و مقصد يکی باشدفايل تغيير نام داده می شود :
کد:
Name "C:\Temp\File1.txt" To "C:\Temp2\File2.txt"x
۳- کپی کردن فايل : برای کپی کردن يک فايل از يکدايرکتوری به دايرکتوری ديگر از دستور FileCopy استفاده می شود :
کد:
FileCopy "\File1.txt\ To "C:\Temp\File2.txt"
۴ - بدست آوردن تاريخ و زمان آخرين تغيير فايل و يا زمان ايجاد فايل :برای اين کار از دستور FileDateTimeاستفاده میشود . ابتدا بايستی يک متغير از نوع Variant تعريف کرده و سپس توسط اين دستور تاريخو زمان موردنظر را استخراج کنيم :
کد:
Dim FileInfo As Variant
FileInfo=FileDateTime("C:\Temp\MyFile.txt")
۵ - استخراج طول فايل :برای بدست آوردن طول يک فايل بر حسب بايت از دستور FileLen استفاده می شود :
کد:
FileSize=FileLen("C:\MyFile.txt")
۶ - تغيير صفت يک فايل : برای تغيير صفت يک فايل از دستور SetAttr استفاده می شود . پارامترهای اين دستور عبارتنداز :
0 : فايل معمولی
2 : فايل مخفی
4 : فايل سيستمی
SetAttr FileNumber,FileAttrib
مقابله با خطاهای کار با فايل : درزمان کار با فايلهای احتمال زيادی وجود دارد که خطا بوجود آيد . بنابراين بايستی درزمان کار با فايلها در صورت ممکن از روتينهای مقابله با خطا استفاده کنيم . شايعترين خطاهای کار با فايل عبارتند از :
۵۲ : شماره يا نام فايل صحيح نيست ۵۳ : فايل پيدا نشد ۵۴ : حالت فايل صحيح نيست ۵۵ : فايل قبلاً بازشده ۵۸ : فايل از قبل وجود دارد ۵۹ : طول رکورد صحيح نيست ۶۱ : ديسک پراست ۶۲ : عبور از انتهای فايل ۶۳ : شماره رکورد صحيح نيست ۷۰ : دسترسی ممنوع است ۷۱ : ديسک آماده نيست ۷۶ : مسير پيدا نشد در هنگام مقابله با خطا بهتراست از يک ساختار Select-Case استفاده کنيد :
کد:
Select Case Err
Case 71
MsgBox "Drive is Not Ready"
.
.
.
End Select