open و save فایلهای تکست

[Pokahantes]

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


Private Sub open_Click()
CommonDialog1.Filter = "txtfiles(*.txt)"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen


اینم برنامه save همونه... منتهی میخواستم رو همون فایلو که تغییراتی روش انجام دادم سیو بشه

Private Sub save_Click()
CommonDialog1.Filter = "txt files(*.txt)"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
End Sub

[vbhamed]

سلام

با اين دستورات شما فقط پنجره Load و Save عمومي ويندوز رو فراخوني كردين و اصلا دستورات مربوط به خود Save و Load نوشته نشده است

[IamOverlord]

سلام دوست عزیز!

آدرس فایلی که در هر دو حالت (Save و Open) در CommonDialog انتخاب شده این گونه قابل دسترس هست:


CommonDialog1.FileName

حالا باید برای خواندن یا نوشتن در فایل از دستور Open استفاده کنید.

شما در کد هایی که نوشته بودید، فقط فایل ها را برای Save یا Open انتخاب می کردید، امّا تغییری نمی دادید.

موفّق باشید! :چشمک:

[Pokahantes]

سلام دوست عزیز!

آدرس فایلی که در هر دو حالت (Save و Open) در CommonDialog انتخاب شده این گونه قابل دسترس هست:


CommonDialog1.FileName

حالا باید برای خواندن یا نوشتن در فایل از دستور Open استفاده کنید.

شما در کد هایی که نوشته بودید، فقط فایل ها را برای Save یا Open انتخاب می کردید، امّا تغییری نمی دادید.

موفّق باشید! :چشمک:

سلام میشه بیشتر توضیح بدین ...ببینید من میخوام از طریق open یک فایل تکستو دریافت کنم و بعد از انجام تغییراتی اونو سیو کنم..منتهی نمیدونم چطور به filename آدرس بدم

[محسن شامحمدی]

Private Sub save_Click()
CommonDialog1.Filter = "txt files(*.txt)"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
End Sub
مثال می گم
ببین دوست عزیز تا اینجا پنجره ذخیره رو آوردی
حالا کاربر یک فایل دزست می کنه واسه خودش
حالا فقط کافیه تو کدت بنویسی

open CommonDialog1.filename for binary as #1
'dastooorat mored nazar
close #1



در واقع خود پنجره save کاری انجام نمی ده

[IamOverlord]

سلام دوست عزیز!

مثال از خواندن فایل:


Open CommonDialog1.FileName For Input As #1
Input #1, StrInput
MsgBox StrInput
Close #1

در مثال بالا فایل باز می شه، قسمت اوّل خوانده می شود در StrInput، مقدار StrInput نمایش داده می شود، فایل بسته می شود.

مثال از نوشتن فایل:


Open CommonDialog1.FileName For Output As #1
InputBox StrOutput
Write #1, StrOutput
Close #1

در مثال بالا فایل باز می شود، یک ورودی از کاربر گرفته می شود و در StrOutput ریخته می شود، مقدار، StrOutput در فایل نوشته می شود، فایل بسته می شود.

یک PDF هم برای کار با فایل ها برای شما گذاشتم.

موفّق باشید! :چشمک: