اشکال

[r_oscar2007]

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

Option Explicit
Dim strmasir As String
Dim strtext As String
Dim filenumber As Integer
Private Sub cmdopen_Click()
cd1.ShowOpen
strmasir = cd1.FileName
filenumber = FreeFile
Open strmasir For Output As filenumber
strtext = Text1.Text
Input #filenumber, strtext
Close filenumber
End Sub

Private Sub cmdsave_Click()
filenumber = FreeFile
cd1.Filter = "Text(*.doc)|*.doc"
cd1.ShowSave
strmasir = cd1.FileName
If strmasir <> "" Then
Open strmasir For Output As filenumber
strtext = Text1.Text
Print #filenumber, strtext
Close filenumber
End If
End Sub

[اوبالیت به بو]

شما برای CommonDialog که اسمش CD1 هستش، در قسمت CmdOpen_Click خاصیت Filter تعریف نکردین. این کار رو انجام بدین.

[reza_rad]

عنوان تاپیک های خود را مناسب انتخاب کنید.

[اوبالیت به بو]

معذرت می خوام اشتباه کردم اشکالش اینه که تمام فایلهای متنی که رویه کامپیوتر ذخیره میشن معمولاً از نوع RichTextBox هستن. اگه یه خورده تویه جزییات فایلهای متنی دقت کنید متوجه میشید. حتی شما وقتی تویه Microsoft Word یا Wordpad می خواید فایلی رو Save کنید از شما سوال میشه که چی جوری ذخیره کنم. منظورم قسمت Save As Type هستش.
حالا شما تویه برنامتون از TextBox استفاده کردید که TextBox نمیتونه فایلهایی رو که خاصیت RichTextBox رو دارن رو پشتیبانی بکنه و شما باید از کنترلMicrosoft RichTextBox Control 6.0 استفاده کنید

[r_oscar2007]

دوست عزیز از راهنمایی شما متشکرم
(رضا)

[r_oscar2007]

من این کاری را که شما گفتین را انجام دادم ولی باز هم54 مدهد error runtime

[مبین رنجبر]

شاید توی نحوه نوشتن Filenumber مشکل داشته باشی .. به جای استفاده از تابع FreeFile خودت مقدار دهی کن مثله #1,#2

[r_oscar2007]

من فایل نامبر را 1 دادم ولی باز هم error داد

[مبین رنجبر]

شما پروژتون ارور میده یا اینکه فایل رو نمیتونید بخونید ؟

اگر فایلی رو نمیتونید بخونید این 2 دستور زیر رو شما جابه جا نوشتی :

strtext = Text1.Text
Input #filenumber, strtext

دستور دومی رو اول بنویس دستور دومی رو اول

[r_oscar2007]

من کاری را که شما گفتید انجام دادم ولی نشد

[اوبالیت به بو]

Error شماره 52 مربوط میشه به شماره فایلها که حتماً شماره فایلی رو که شما میدین رو اشکال میگیره. کد زیر رو این تغییر رو بهش بده شاید درست بشه.

Open strMasir For Output As #FileNumber%

[r_oscar2007]

باز هم error داد

[مبین رنجبر]

مشکل شما رو فهمیدم ... آخه برادر عزیز شما کجا دیدی که با OutPut بشه فایل رو باز کرد ؟


Open strmasir For Output As filenumber

این خط بالایی رو باید بصورت زیر تغییر بدی :


Open strmasir For input As filenumber

[r_oscar2007]

خیلی خیلی ممنونم

[مبین رنجبر]

دوست عزیز اگر مشکلتون حل شد روی کلید "حل شده" کلیک کنید ...