ذخیره اطلاعات تکس باکس در نودپد

[alireza2009]

سلام به همه عزیزان کسی برنامه ذخیره اطلاعات تکس باکس در نودپد رو داره؟ اگر کسی داره لطف کنه و برام بگذاره .

 

[the_king]

سلام به همه عزیزان کسی برنامه ذخیره اطلاعات تکس باکس در نودپد رو داره؟ اگر کسی داره لطف کنه و برام بگذاره .

لطفا همیشه زبان برنامه نویسی را هم در متن سوالتان مشخص کنید. در ضمن در مورد منظورتون از ذخیره اطلاعات
توضیح بیشتری ارائه کنید. ذخیره سازی متن داخل TextBox در یک فایل؟ نقش NotePad در این رابطه چیست؟
منظورتون انتقال اطلاعات از داخل یک TextBox به درون NotePad است یا کد برنامه ای مشابه NotePad؟

 

[alireza2009]

سلام
من برنامه رو توی وی بی می خواهم
منظورم هم اینه که مثلا ما وقتی توی تکست 1 نوشتیم علیرضا بعد یک دکمه به نام ذخیره داشته باشه وقتی که این دکمه رو زدیم این متن رو ذخیره کنه در یک نودپد با پسوند txt ذخیره کنه

 

[saalek110]

با اجازه جناب the_king
فکر کنم جواب شما در این تاپیک هست:

پنجره showopen و showsave

 

[alireza2009]

سلام سالک جان من حسابی گیج شدم میشه برنامه رو برام برای دانلود قرار بدی؟ (من ذخیره متن تکست باکس رو می خواهم نه لیبل خیلی ممنون میشم اگر برنامه رو برام بگذاری.)

 

[saalek110]

ذخیره در فایل در آن تاپیک گفته شده. من فقط خواستم ارتباط دو تاپیک را برقرار کنم.

برای بحثهای دیگر دوستان دیگر بحث خواهند کرد. خیلی از بچه های حاضر در اینجا این مباحث را بلدند. خواهشا دوستان دیگر هم وارد بحث شوند.

 

[S.H.M]

باید از دستور open استفاده کنی.

مثلا یک تکست باکس به نام text1 و یک دکمه به نام command1 توی فرم قرار بده.

بعد واسه کلیک روی command1 اینارو بزن. به جای (c:\test.txt) هم آدرس فایل txt رو بزن

open "c:\test.txt" for output as 1

print #1, text1.text

close #1​

 

[saalek110]

S.H.M عزیز کارهایی که گفته بودید انجام دادم. یعنی یک تکست باکس و یک باتون به فرم افزودم و کد:

open "c:\test.txt" for output as 1

print #1, text1.text

close #1

را به رویداد کلیک باتون افزودم.
نتیجه اجرا: در درایو c فایل تکستی حاوی آنچه در تکست باکس نوشته بودم داشتم.

 

[S.H.M]

بله برای خوندنشم میتونید یک دکمه دیگه اضافه کنید و واسه کلیکش از اینا استفاده کنید.

open "c:\test.txt" for input as 2
line input #2, x
text1.text=x
close #2​

 

[saalek110]

ممنون. تست کردم.

مجموعه کد دو برنامه :

Private Sub Command1_Click()
Open "c:\test.txt" For Output As 1

Print #1, Text1.Text

Close #1
End Sub

Private Sub Command2_Click()
Open "c:\test.txt" For Input As 2
Line Input #2, x
Text1.Text = x
Close #2
End Sub

با دو باتون و یک تکست باکس روی فرم .

 

[saalek110]

یک سئوال از the_king عزیز:

در تاپیک:
مسائل مربوط به رشته ها در ویژوال بیسیک
مسائل مربوط به یونیکد و کار با زبان فارسی بحث شد.

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

خواستم این قضیه را برای من شفاف کنید.

البته من ویندوز xp خود را روی فارسی تنظیم کرده ام. آیا این موضوع باعث درستی کار من بوده یا اینکه ابزارها مثل تکست باکس واقعا قادر به این کار هستند. ولی شما در پستهای صفحه 5 و 6 آن تاپیک در جواب جناب mohamadrezamm گفتید باید از توابع api استفاده بشود و مستقیما Text1.Text استفاده نشود.

اگر خواستید جواب بدهید با نقل این پست در همان تاپیک جواب دهید. من برنامه را در زیر نقل می کنم:

برنامه ای که محتوای یک تکست باکس را در یک فایل تکست ذخیره و بازیابی می کند:
دو باتون و یک تکست باکس به فرم بیافزایید با کد زیر:

Private Sub Command1_Click()
Open "c:\test.txt" For Output As 1

Print #1, Text1.Text

Close #1
End Sub

Private Sub Command2_Click()
Open "c:\test.txt" For Input As 2
Line Input #2, x
Text1.Text = x
Close #2
End Sub