کمک در کار با فایل تصدفی!!!

[amirxbest]

یه برنامه نوشتم که یه دفترچه تلفن خیلی ساده هست.
و این کد رونوشتم نمیدونم مشکل از کجا هست که با ذخیره یک رکورد رکورد قبلی از بین میره

Private Type tb
nam As String * 10
tel As Currency
End Type
Private Sub Command1_Click()fsd
Dim telbook As tb
telbook.nam = Text1
telbook.tel = Val(Text2)
Open "d:\a.txt" For Random As 1 Len = 18
Put #1, , telbook
Close
End Sub

لطفا راهنمایی کنید.

[homa m]

فایلتو میذاری ببینیم

[amirxbest]

اینم نمونه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

یه فایل txt تو درایو c میسازه.

[sadeghbarout]

Put #1, , amir !!!!!!!!!!!!!!!!
امیرجان اصلا amir اینجا چکاره بود که اینجا توی فایلت اضافه اش کردی

اولا بهتر بود این برنامه رو با دیتابیس مینوشتی اما اگه میخوای با فایل بسازیش اولا باید در آرگومان دوم دستور put شماره رکورد اون متن رو مشخص کنی و برای اینکه این شماره رو همیشه داشته باشی میتونی با دستور savesetting اونو همیشه داشته باشی

اگه وقت کردم کدشو برات میذارم

[amirxbest]

شرمنده
Put #1, , amir اینجا کلمه amir رو یجای telbook گذاشتم.(اشتباه پیش میاد)
میدونم آرگمان دوم رو باید شماره رکورد رو بدو ولی اینجا که نمیدونم قبلا چندتا رکورد داشتم باید چیکار کنم.

[sadeghbarout]

اینم اون فایله :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

خودش از ادامه فایل شروع به نوشتن میکنه(شماره قبلی در رجیستری با دستور savesetting ذخیره میشه)

[amirxbest]

ممنون دوست عزیز
مطمعا هستی بدون رجیستر نمیشه؟
فکر کنم یه دستوری بود که خودش آخرین رکورد رو تشخیص میداد و بعد از اون ثبت میکرد.
اگه میشه یه توضیحی هم بابت save setting و get setting بده.
ممنون میشم راهنمایی کنی

[sadeghbarout]

شاید بشه با EOF درستش کرد ولی مطمئنا همین رجیستری راحت تره
نترس بابا این رجیستری که من میگم که اصلا پیچیده نیست باهمین دو دستور sevesetting و getsetting هستش
دستور sevesetting یه مقدار رو در یه جایی از حافظه کامپیوتر ذخیره میکنه اون آرگومان های جلوش هم فقط اسم پوشه های محل ذخیره اون مقدار هستن اصلا تو بنویس قرمه سبزی
با دستور getsetting هم میتونی اون مقدار رو فراخونی کنی
معمولا از این دو دستور برای ذخیره تنظیمات برنامه استفاده میشه(مثل پسورد - رنگ برنامه - فونت برنامه - سایز پنجره و هرچی که دوست داشته باشی)

اصلا هم نگران نباش استفاده از این دستورات هیچ صدمه ای به ویندوز نمیزنه

طرز استفاده از دو دستور هم که در همون برنامه که گذاشتم واضحه

یا علی...