خواندن فايل متن

[abol_fa]

سلام من ميخوام يه فايل متن رو بخونم بعد توي يه textboxنمايش بدم براي ادرس دهي هم از كمپوننت ويندوزMicrosoft Common Dialog استفاده كردم و فايلي كه ميخوام اجرا كنميه جاي ثابت نيست و يوزر تعيين ميكنه كه ادرسش كجاست ميخوام برنامه ادرس فايل انتخابي txtرو بخونه و فايل txt رو توي textboxنمايش بده راهنمايي كنيد ممنون ميشم

[!Plus]

اول باید اسم فایل رو با همون Microsoft Common Dialog بگیری...! اینجوری...! :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبعد هم فایل رو باز کنی و محتویاتش رو بخونی...! اینجوری...! :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدموفق باشی...! :46:

[Rishter]

سلام من ميخوام يه فايل متن رو بخونم بعد توي يه textboxنمايش بدم براي ادرس دهي هم از كمپوننت ويندوزMicrosoft Common Dialog استفاده كردم و فايلي كه ميخوام اجرا كنميه جاي ثابت نيست و يوزر تعيين ميكنه كه ادرسش كجاست ميخوام برنامه ادرس فايل انتخابي txtرو بخونه و فايل txt رو توي textboxنمايش بده راهنمايي كنيد ممنون ميشم


با عرض سلام

با تشكر از !Plus جان عزيز .

يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل

RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .

مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .

واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :


RichtextBox1.loadfile = CommonDialog1.filename



با تشكر :40::11:

[Vb1471]

با سلام :

برای اینکه آدرس فایل مبدا رو درون یک تکس باکس تایپ کنی و محتویات فایل متنی در تکس باکس دوم نمایش داده بشه بهترین راهش اینه :

کد :

رویداد کلیک

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:

[abol_fa]

اول باید اسم فایل رو با همون Microsoft Common Dialog بگیری...! اینجوری...! :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبعد هم فایل رو باز کنی و محتویاتش رو بخونی...! اینجوری...! :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدموفق باشی...! :46:


با عرض سلام

با تشكر از !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رو از كجا بيارم؟

[!Plus]

ممنون از همگي جواب داد:10: فقط ريشتر جان من اين Richtextboxرو از كجا بيارم؟

Rishter جان ببخشید...! دیدم جواب ندادی ، گفتم خودم جواب بدم...! :20:

------------------------------------

روی ToolBox ( سمت چپ ویژوال بیسیک همون جایی که کنترل ها هستن... ) کلیک راست کن و از منوی باز شده Components... رو انتخاب کن یا از منوی Project روی Components کلیک کن و از پنجره باز شده Microsoft Rich TextBox Control رو انتخاب کن و بعد کنارش تیک بذار... در آخر هم روی دکمه OK پایین پنجره کلیک کن... ، حالا کنترل به ToolBox برنامه اضافه شده و می تونی ازش استفاده کنی...!

موفق باشی...! :46:

اگر بازم مشکلی داشتی ، من در خدمتم...! :20:

[Rishter]

ممنون از همگي جواب داد:10: فقط ريشتر جان من اين Richtextboxرو از كجا بيارم؟


با عرض سلام

براي آوردن كنترل RichtextBox به اين مسير برو :


Project ----> Components -----> Microsoft Rich Textbox Control 6.0



راستي اين كنترل متد SaveFile داره كه با اون هم ميتونيد نوشته مورد نظرتون رو ذخيره كنيد .


اگه سوالي بود بازم در خدمتم .

آقا Plus ببخشيد!!!! پست شما رو نخوندم و اين پست رو گذاشتم خيلي عذر ميخوام . :41:


با تشكر :40::11:

[abol_fa]

با عرض سلام

با تشكر از !Plus جان عزيز .

يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل

RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .

مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .

واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :


RichtextBox1.loadfile = CommonDialog1.filename



با تشكر :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 استفاده شده؟

[Rishter]

اقا وقتي از اين استفاده ميكنم ميگه:
Argument Not Optional




اقا من يكم تازه كارم ميخوام بدونم تك تك دستورا چيكار ميكنه
مثلا اينEOF چيه؟
چرا از While استفاده شده؟


به جاي = از () استفاده كنيد .

با تشكر فراوان :40::11: