Printable View
سلام من ميخوام يه فايل متن رو بخونم بعد توي يه textboxنمايش بدم براي ادرس دهي هم از كمپوننت ويندوزMicrosoft Common Dialog استفاده كردم و فايلي كه ميخوام اجرا كنميه جاي ثابت نيست و يوزر تعيين ميكنه كه ادرسش كجاست ميخوام برنامه ادرس فايل انتخابي txtرو بخونه و فايل txt رو توي textboxنمايش بده راهنمايي كنيد ممنون ميشم
اول باید اسم فایل رو با همون Microsoft Common Dialog بگیری...! اینجوری...! :
بعد هم فایل رو باز کنی و محتویاتش رو بخونی...! اینجوری...! :کد:CommonDialog1.ShowOpen
موفق باشی...! :46:کد:FileName = CommonDialog1.FileName
F = FreeFile
Open FileName For Input As #F
Text1.Text = Input$(LOF(F), F)
Close #F
نقل قول:
با عرض سلام
با تشكر از !Plus جان عزيز .
يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل
RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .
مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .
واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :
RichtextBox1.loadfile = CommonDialog1.filename
با تشكر :40::11:
با سلام :
برای اینکه آدرس فایل مبدا رو درون یک تکس باکس تایپ کنی و محتویات فایل متنی در تکس باکس دوم نمایش داده بشه بهترین راهش اینه :
کد :
رویداد کلیک
Private Sub Command1_Click()
Open Text1.Text For Input As #1
While EOF(1) = False
Line Input #1, s
Text2.Text = Text2.Text + vbCrLf + s
Wend
Close #1
End Sub
توضیحات :
1- در اولین خط از کد مسیر داده شده فایل متنی را باز میکند
2- سپس در قسمت دوم انتهای فایل متنی را بررسی میکند
3- در خط سوم خط اول درون فایل متنی را می خواند و در یک متغیر به نام S ذخیره میکند
4- در خط چهارم متغیر S را درون تکس باکس دوم نمایش می دهد
5- و در نهایت فایل را می بندد.
امید وارم جوابت رو گرفته باشی .
با تشکر (Bvk)
:5:
نقل قول:نقل قول:ممنون از همگي جواب داد:10: فقط ريشتر جان من اين Richtextboxرو از كجا بيارم؟نقل قول:
Rishter جان ببخشید...! دیدم جواب ندادی ، گفتم خودم جواب بدم...! :20:نقل قول:
------------------------------------
روی ToolBox ( سمت چپ ویژوال بیسیک همون جایی که کنترل ها هستن... ) کلیک راست کن و از منوی باز شده Components... رو انتخاب کن یا از منوی Project روی Components کلیک کن و از پنجره باز شده Microsoft Rich TextBox Control رو انتخاب کن و بعد کنارش تیک بذار... در آخر هم روی دکمه OK پایین پنجره کلیک کن... ، حالا کنترل به ToolBox برنامه اضافه شده و می تونی ازش استفاده کنی...!
موفق باشی...! :46:
اگر بازم مشکلی داشتی ، من در خدمتم...! :20:
نقل قول:
با عرض سلام
براي آوردن كنترل RichtextBox به اين مسير برو :
Project ----> Components -----> Microsoft Rich Textbox Control 6.0
راستي اين كنترل متد SaveFile داره كه با اون هم ميتونيد نوشته مورد نظرتون رو ذخيره كنيد .
اگه سوالي بود بازم در خدمتم .
آقا Plus ببخشيد!!!! پست شما رو نخوندم و اين پست رو گذاشتم خيلي عذر ميخوام . :41:
با تشكر :40::11:
اقا وقتي از اين استفاده ميكنم ميگه:نقل قول:
Argument Not Optional
اقا من يكم تازه كارم ميخوام بدونم تك تك دستورا چيكار ميكنهنقل قول:
Private Sub Command1_Click()
Open Text1.Text For Input As #1
While EOF(1) = False
Line Input #1, s
Text2.Text = Text2.Text + vbCrLf + s
Wend
Close #1
End Sub
مثلا اينEOF چيه؟
چرا از While استفاده شده؟
نقل قول:
به جاي = از () استفاده كنيد .
با تشكر فراوان :40::11: