واضح آرشیو وب فارسی:سایت ریسک: ذخیره اطلاعات تکس باکس در نودپد alireza 2009 12 دي 1387, 21:40سلام به همه عزیزان کسی برنامه ذخیره اطلاعات تکس باکس در نودپد رو داره؟ اگر کسی داره لطف کنه و برام بگذاره . the_king 12 دي 1387, 22:03سلام به همه عزیزان کسی برنامه ذخیره اطلاعات تکس باکس در نودپد رو داره؟ اگر کسی داره لطف کنه و برام بگذاره . لطفا همیشه زبان برنامه نویسی را هم در متن سوالتان مشخص کنید. در ضمن در مورد منظورتون از ذخیره اطلاعات توضیح بیشتری ارائه کنید. ذخیره سازی متن داخل TextBox در یک فایل؟ نقش NotePad در این رابطه چیست؟ منظورتون انتقال اطلاعات از داخل یک TextBox به درون NotePad است یا کد برنامه ای مشابه NotePad؟ alireza 2009 12 دي 1387, 23:29سلام من برنامه رو توی وی بی می خواهم منظورم هم اینه که مثلا ما وقتی توی تکست 1 نوشتیم علیرضا بعد یک دکمه به نام ذخیره داشته باشه وقتی که این دکمه رو زدیم این متن رو ذخیره کنه در یک نودپد با پسوند txt ذخیره کنه saalek110 13 دي 1387, 01:35با اجازه جناب the_king فکر کنم جواب شما در این تاپیک هست: پنجره showopen و showsave () alireza 2009 13 دي 1387, 05:17سلام سالک جان من حسابی گیج شدم میشه برنامه رو برام برای دانلود قرار بدی؟ (من ذخیره متن تکست باکس رو می خواهم نه لیبل خیلی ممنون میشم اگر برنامه رو برام بگذاری.) saalek110 13 دي 1387, 18:10ذخیره در فایل در آن تاپیک گفته شده. من فقط خواستم ارتباط دو تاپیک را برقرار کنم. برای بحثهای دیگر دوستان دیگر بحث خواهند کرد. خیلی از بچه های حاضر در اینجا این مباحث را بلدند. خواهشا دوستان دیگر هم وارد بحث شوند. S.H.M 22 دي 1387, 16:39باید از دستور open استفاده کنی. مثلا یک تکست باکس به نام text1 و یک دکمه به نام command 1 توی فرم قرار بده. بعد واسه کلیک روی command 1 اینارو بزن. به جای (c: est.txt) هم آدرس فایل txt رو بزن open "c: est.txt" for output as 1 print #1, text1.text close #1 saalek110 22 دي 1387, 20:35S.H.M عزیز کارهایی که گفته بودید انجام دادم. یعنی یک تکست باکس و یک باتون به فرم افزودم و کد: open "c: est.txt" for output as 1 print #1, text1.text close #1 را به رویداد کلیک باتون افزودم. نتیجه اجرا: در درایو c فایل تکستی حاوی آنچه در تکست باکس نوشته بودم داشتم. S.H.M 23 دي 1387, 17:20بله برای خوندنشم میتونید یک دکمه دیگه اضافه کنید و واسه کلیکش از اینا استفاده کنید. open "c: est.txt" for input as 2 line input #2, x text1.text=x close #2 saalek110 23 دي 1387, 21:18ممنون. تست کردم. مجموعه کد دو برنامه : Private Sub Command 1_Click() Open "c: est.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub Private Sub Command 2_Click() Open "c: est.txt" For Input As 2 Line Input #2, x Text1.Text = x Close #2 End Sub با دو باتون و یک تکست باکس روی فرم . saalek110 23 دي 1387, 21:26یک سئوال از the_king عزیز: در تاپیک: مسائل مربوط به رشته ها در ویژوال بیسیک () مسائل مربوط به یونیکد و کار با زبان فارسی بحث شد. ولی در این برنامه وقتی من فارسی نوشتم در فایل تکست به درستی در تکست باکس نمایش داده شد. و وقتی هم فارسی نوشتم در تکست باکس درست در فایل ذخیره شد. یعنی در فایل فارسی نوشته شده بود. خواستم این قضیه را برای من شفاف کنید. البته من ویندوز xp خود را روی فارسی تنظیم کرده ام. آیا این موضوع باعث درستی کار من بوده یا اینکه ابزارها مثل تکست باکس واقعا قادر به این کار هستند. ولی شما در پستهای صفحه 5 و 6 آن تاپیک در جواب جناب mohamadrezamm گفتید باید از توابع api استفاده بشود و مستقیما Text1.Text استفاده نشود. اگر خواستید جواب بدهید با نقل این پست در همان تاپیک جواب دهید. من برنامه را در زیر نقل می کنم: برنامه ای که محتوای یک تکست باکس را در یک فایل تکست ذخیره و بازیابی می کند: دو باتون و یک تکست باکس به فرم بیافزایید با کد زیر: Private Sub Command 1_Click() Open "c: est.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub Private Sub Command 2_Click() Open "c: est.txt" For Input As 2 Line Input #2, x Text1.Text = x Close #2 End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 2023]