ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام
[ + افزودن آگهی متنی جدید ]
خواندن فايل متن
سلام من ميخوام يه فايل متن رو بخونم بعد توي يه textboxنمايش بدم براي ادرس دهي هم از كمپوننت ويندوزMicrosoft Common Dialog استفاده كردم و فايلي كه ميخوام اجرا كنميه جاي ثابت نيست و يوزر تعيين ميكنه كه ادرسش كجاست ميخوام برنامه ادرس فايل انتخابي txtرو بخونه و فايل txt رو توي textboxنمايش بده راهنمايي كنيد ممنون ميشم
اول باید اسم فایل رو با همون Microsoft Common Dialog بگیری...! اینجوری...! :
بعد هم فایل رو باز کنی و محتویاتش رو بخونی...! اینجوری...! :کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشی...!کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید.gif "N Aggressive (45)")
Last edited by !Plus; 27-06-2010 at 21:32.
با عرض سلام
با تشكر از !Plus جان عزيز .
يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل
RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .
مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .
واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :
RichtextBox1.loadfile = CommonDialog1.filename
با تشكر
پاسخ به سوال شما
با سلام :
برای اینکه آدرس فایل مبدا رو درون یک تکس باکس تایپ کنی و محتویات فایل متنی در تکس باکس دوم نمایش داده بشه بهترین راهش اینه :
کد :
رویداد کلیک
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)
.gif "N Aggressive (11)")
اول باید اسم فایل رو با همون Microsoft Common Dialog بگیری...! اینجوری...! :
بعد هم فایل رو باز کنی و محتویاتش رو بخونی...! اینجوری...! :کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشی...!کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدبا عرض سلام
با تشكر از !Plus جان عزيز .
يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل
RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .
مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .
واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :
RichtextBox1.loadfile = CommonDialog1.filename
با تشكرممنون از همگي جواب دادبا سلام :
برای اینکه آدرس فایل مبدا رو درون یک تکس باکس تایپ کنی و محتویات فایل متنی در تکس باکس دوم نمایش داده بشه بهترین راهش اینه :
کد :
رویداد کلیک
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)
فقط ريشتر جان من اين Richtextboxرو از كجا بيارم؟
Last edited by abol_fa; 28-06-2010 at 12:52.
Rishter جان ببخشید...! دیدم جواب ندادی ، گفتم خودم جواب بدم...!ممنون از همگي جواب داد
------------------------------------
روی ToolBox ( سمت چپ ویژوال بیسیک همون جایی که کنترل ها هستن... ) کلیک راست کن و از منوی باز شده Components... رو انتخاب کن یا از منوی Project روی Components کلیک کن و از پنجره باز شده Microsoft Rich TextBox Control رو انتخاب کن و بعد کنارش تیک بذار... در آخر هم روی دکمه OK پایین پنجره کلیک کن... ، حالا کنترل به ToolBox برنامه اضافه شده و می تونی ازش استفاده کنی...!
موفق باشی...!
اگر بازم مشکلی داشتی ، من در خدمتم...!.gif "N Aggressive (26)")
ممنون از همگي جواب داد
با عرض سلام
براي آوردن كنترل RichtextBox به اين مسير برو :
Project ----> Components -----> Microsoft Rich Textbox Control 6.0
راستي اين كنترل متد SaveFile داره كه با اون هم ميتونيد نوشته مورد نظرتون رو ذخيره كنيد .
اگه سوالي بود بازم در خدمتم .
آقا Plus ببخشيد!!!! پست شما رو نخوندم و اين پست رو گذاشتم خيلي عذر ميخوام ..gif "N Aggressive (40)")
با تشكر
Last edited by Rishter; 28-06-2010 at 14:11.
اقا وقتي از اين استفاده ميكنم ميگه:با عرض سلام
با تشكر از !Plus جان عزيز .
يه راه آسون ديگه هم هست كه بهتره از اين راه استفاده كني . به جاي استفاده از TextBox از كنترل
RichtextBox استفاده كنيد . اگه از Rich استفاده كنيد ميتونيد به راحتي هر كاري كه ميخواييد انجام بديد .
مثلا عوض كردن بخشي از رنگ متن يا نوع فونت يا اندازه .
واسه باز كردن متن مورد نظر در ريچ از كد زير استفاده كني كافيه :
RichtextBox1.loadfile = CommonDialog1.filename
با تشكر
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 استفاده شده؟
Last edited by abol_fa; 28-06-2010 at 16:37.
به جاي = از () استفاده كنيد .
با تشكر فراوان.gif "N Aggressive (17)")
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)
قوانين ايجاد تاپيک در انجمن
جواب بصورت نقل قول
نوشته شده توسط abol_fa
.gif "N Aggressive (39)")