کمک فوری در کار با فایل txt

سلام .
من یه کد می خوام که اول برنامه (Form_Load) فایل settings.txt رو فراخوانی کنه . داخل فایل تکست 9 تا 0 و 1 هست . بعد بر اساس اون 0 و1 ها :
اگر عدد اول 1 بود check1.value=1 بشه ولی اگه 0 بود ، check1.value=0 بشه . و به همین ترتیب عدد دوم آبجکت check2 رو تغییر بده و ... .
اگر هم فایل settings.txt وجود نداشت ، یه فایل با همون نام با محتویات 9 تا 0 ساخته بشه :

کد:

---

000000000

---

همچنین یه کد می خوام که با کلیک روی کلید save ، محتویات settings.txt رو بر اساس مقدار 9 آبجکت check1.value , ... تغییر بده . به طور مثال :

کد:

---

011010011

---

بفرمایید ، کد رو براتون نوشتم :

کد:

---

Dim a(8) As Byte
Private Sub Form_Load()
If Dir("D:\setting.txt") = "Setting.txt" Then
Open "d:\setting.txt" For Input As #1
 For i = 0 To 8
  Input #1, a(i)
  Check(i).Value = a(i)
 Next i
Close
Else
Open "D:\Setting.txt" For Output As #2
  For i = 0 To 8
  a(i) = Check(i).Value
  Write #2, a(i)
 Next i
Close
End If
End Sub
Private Sub Save_Click()
Open "D:\Setting.txt" For Output As #1
 For i = 0 To 8
  a(i) = Check(i).Value
  Write #1, a(i)
 Next i
Close
End Sub

---

ممنون . با این توضیحی که من دادم فکر کردم هیچکس نمی فهمه ! :31:
ولی کلا موقع اسم دهی از طریق i ارور میده ، مثل :

کد:

---

    Check(i).Value = a(i)

---

نقل قول:

---

نوشته شده توسط Kalanon [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون . با این توضیحی که من دادم فکر کردم هیچکس نمی فهمه ! :31:
ولی کلا موقع اسم دهی از طریق i ارور میده ، مثل :

کد:

---

    Check(i).Value = a(i)

---

---

خب ببینید ... باید شما CheckBox هاتون رو به آرایه تبدیل کنید ... برای اینکار :

1- یک CheckBox روی فرم قرار دهید !

2- در قسمت خصوصیات ، Name اون رو به Check تغییر دهید ! ( البته هر اسمی دیگه ای هم میتونه باشه ولی من اینجا از Check استفاده کردم )

3- از آن Copy بگیرید و روی فرم Paste کنید ، 8 بار اینکار رو انجام بدید . با خودش میشن 9 تا ! ( اولین بار که اینکار رو میکنید پیغامی برای شما صادر میشه که باید روی Yes کلیک کنید )

خب حالا به آرایه تبدیل شده و دیگه مشکلی نداره !

--

موفق باشید ...

آهان ، یعنی چون اسم checkbox های paste شده یکیه ، (...) بهش اضافه میشه .
ممنون از کمکتون . :11:

بفرمایید ... لینک دانلود پروژه :

کد:

---

http://rapidshare.com/files/369948885/VB6_Project.rar.html

---

دانلود کردم .
بازم ممنون . :11: