a.maleki
سه شنبه 26 آذر 1387, 16:09 عصر
دوستان سلام
من یه برنامه نوشتم (کار با فایلهای باینری )
به اینصورته که مشخصات اولیه یک فرد رو میگیره و در فایل ذخیره می کنه من این کار رو به صورت یک استراکچر انجام میدهم به اینصورت که 4تا متغیر کد و نام و نام خانوادگی و سال تولد رو در استراکچر می سازم که به صورت یک رکورد بشند و اطلاعات رو توش ذخیره می کنم
حال مشکل من اینه که چطوری اطلاعات رو به صورت ترتیبی تو اون ذخیره کنم یعنی اگر کدهامون به صورت 1,2,3,4,5,7,12,15,6 ذخیره کردیم پشت سرهم قرار بگیره یعنی بشه 1,2,3,4,5,6,7,12,15 و با دادن کد بتونم جستجو انجام بدم و رکوردهامو آپدیت کنم
البته حرکت به سمت جلو رو انجام میدهم ولی مرتب نیست
اگر دوستان راهی یا روشی یا ... دارند کمک کنند ممنون میشم
کد باز کردن فایل
FileOpen(1, "c:\file1.dat", OpenMode.Binary, OpenAccess.ReadWrite)
ایجاد رکوردهای فرضی
Structure info
Dim fname As String
Dim lname As String
Dim id As Integer
Dim bdate As Integer
End Structure
درج کردن
dim student as info
student.id=textbox1.text
student.fname=textbox2.text
student.lname=textbox3.text
student.bdate=textbox4.text
fileput(1,student)
من یه برنامه نوشتم (کار با فایلهای باینری )
به اینصورته که مشخصات اولیه یک فرد رو میگیره و در فایل ذخیره می کنه من این کار رو به صورت یک استراکچر انجام میدهم به اینصورت که 4تا متغیر کد و نام و نام خانوادگی و سال تولد رو در استراکچر می سازم که به صورت یک رکورد بشند و اطلاعات رو توش ذخیره می کنم
حال مشکل من اینه که چطوری اطلاعات رو به صورت ترتیبی تو اون ذخیره کنم یعنی اگر کدهامون به صورت 1,2,3,4,5,7,12,15,6 ذخیره کردیم پشت سرهم قرار بگیره یعنی بشه 1,2,3,4,5,6,7,12,15 و با دادن کد بتونم جستجو انجام بدم و رکوردهامو آپدیت کنم
البته حرکت به سمت جلو رو انجام میدهم ولی مرتب نیست
اگر دوستان راهی یا روشی یا ... دارند کمک کنند ممنون میشم
کد باز کردن فایل
FileOpen(1, "c:\file1.dat", OpenMode.Binary, OpenAccess.ReadWrite)
ایجاد رکوردهای فرضی
Structure info
Dim fname As String
Dim lname As String
Dim id As Integer
Dim bdate As Integer
End Structure
درج کردن
dim student as info
student.id=textbox1.text
student.fname=textbox2.text
student.lname=textbox3.text
student.bdate=textbox4.text
fileput(1,student)