Vb 06

[deltang]

سلام دوستان.ميشه لطف كنيد و از ويژوال بيسيك 6 هم برنامه بذارين

من يه برنامه اي لازم دارم كه اگه دوستان دارنش لطف كنند براي ما هم واسه دانلود

بزارن من يه كد ميخوام كه مثلا يك فايل متني باز كنه و چيزهايي كه ميخوام بنويسه

بعد سيو كنه و هر وقت خواستم بتونم اون فايل را دوباره لودش كنم

البته فايل از نوع تصادفي باشه

[دانه کولانه]

Open "c:\1212.txt" For Append As #1
For i = 1 To 10
Print #1, i
Print #1,
Next
Close

 1 

 2 

 3 

 4 

 5 

 6 

 7 

 8 

 9 

 10

خیلی راحت در نت سرچ کنین برای کار با فایلها در ویژوال بیسیک
این دستور فایل 1212.txt رو اگر موجود نباشه ایجاد میکنه و به انتهای اون اعداد 1 تا 10 رو اضافه میکنه
چون با append بازش کردیم به اخر فایل اضافه میکنه شما میتونین با Input از اون بخونین و با output محتویات قبلی رو پاک کنید و محتویات جدید رو اضافه کنید
در واقع اپند اضافه میکنه اوت پت ریپلیس میکنه./....
در مورد آدرسها (آدرس فایلی که قراره ایحاد بشه) در ویبی مشکلی نیست که شما 1 دانه اسلش بگذارید یا 2 (دو تا رو بذارید تا عادت کنتید) چون در سی و سی پلاس پلاس در آدرسها حتما باید 2 تا اسلش بذاری والا مشکل پیش میاد
دلیل اینه که اونجا در جریان های ورودی خروجی اسلش خودش کاربر داره مثلا \n برای رفتن به نکست لاین و خط بعدی شما تصور کن در آدرسی که میخوای ذحیره کنی
c:\n\112.txt باشه این پوشه n رو حالیش نمیشه فکر میکنه یعنی برو به خط بعدی ! اینه که باید 2 تا اسلش بذاری

[deltang]

نميشه اينجا بزاريد تا من دانلود كنم؟

[دانه کولانه]

چیو دانلود کنی ؟
خب مگه با وی بی کار نکردی ؟
یه دکمه بذار
برو بخش کدش این کد بالا رو کپی کن
اف 5 رو بزن برنامه اجرا بشه
کلید رو فشار بده بعد فایل 1212 دات تکست رو در درایو سی ببین
اگر نفهمیدی بگو بنویسم اپ کنم

[deltang]

نه مرسي درست شد