مشاهده نسخه کامل
: amirxbest
01-03-2011, 19:28
دوستان من یه برنامه دفترچه تلفن نوشتم که دیتا بیس فایل random هست.
حالا اطلاعات کاربران را در فایل ثبت کردم میخواستم با یه حلقه for رکوردها رو به listbox اضافه کنم اینم حلقه for میشه بگید مشکل از کجاس؟
Dim telb As tb
Open "c:\telbook.txt" For Random As 1
For i = 1 To FileLen("c:\telbook.txt") / 75
Get #1, i, telb
List1.AddItem Trim(telb.name) & Trim(telb.fname) & " " & Trim(telb.telnumber)
Next
Close
البت tb یه udt هست که تعریف کردم.و 75 نیز len داده از نوع tb هست.
حالا اطلاعات کاربران را در فایل ثبت کردم میخواستم با یه حلقه for رکوردها رو به listbox اضافه کنم اینم حلقه for میشه بگید مشکل از کجاس؟
Dim telb As tb
Open "c:\telbook.txt" For Random As 1
For i = 1 To FileLen("c:\telbook.txt") / 75
Get #1, i, telb
List1.AddItem Trim(telb.name) & Trim(telb.fname) & " " & Trim(telb.telnumber)
Next
Close
البت tb یه udt هست که تعریف کردم.و 75 نیز len داده از نوع tb هست.