.:: ترفنــــــدهای خفن،آموزش و غیره ::.

در این فایل ها می توان به طور تصادفی در هر جای فایل ذخیره کرد و می توان از هر جای فایل خواند و بر خلاف فایل های ترتیبی (Extentional ) که خواندن و ذخیره در ان باید با ترتیب از اولین رکورد صورت گیرد در فایل Random   به رکورد دلخواه می توان دسترسی داشت .

دستور باز کردن فایل : Len=10     Open “c:\test.txt” for Random As # 1

طول رکورد 10 تعریف و اگر تعریف نکنیم محدویتی قایل نیست .

دستور ذخیره در فایل : Put #1 , record number , variable

 دستور خواندن از فایل : بجای Put  از دستور Get  استفاده می کنیم .

امید است پست امروز برایتان مفید واقع گردد و برنامه زیر را که سورس کد و فایل اجرایی است دانلود نمایید و استفاده کرده و تجربیات برنامه سازی خود را بالا ببرید و اگر قسمت مبهمی وجود دارد  E-Mail  فرستاده و یا در وبلاگ مطرح کنید .

 در فایل تصادفی حتما  رکورد را تعریف کنید به صورت زیر :

Type  student

Namestudent as string*25

Lastname as string * 30

Phonenumber as double

End type

جهت دسترسی به فیلدها

Dim fields2 as student

 نام نوع رکورد . نام فیلد

 Fields . namestudent

 در پست بعدی برنامه ای که بنام کتابخانه است در وبلاگ می گذارم . البته در آینده همین برنامه را بطور کامل بصورت Database  در وبلاگ خواهم گذارد . مثال :

Private Sub cmdcreatfile_Click()

Dim numfile As Integer

Dim i As Integer

numfile = FreeFile

Open "c:\Book2.txt" For Random Access Write As #numfile Len = 5

For i = 1 To 5

Put #numfile, i, i * 2

Next i

End Sub