ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام
[ + افزودن آگهی متنی جدید ]
اجرا فایل متنی (txt) در محیط برنامه
چطوری می تونم یه فایل منتی که طولانی هست تو محیط برنامه باز کرد؟
من از این کد استفاده می کنم اما این کد اصلا ربان فارسی رو پشتیبانی نمی کنه
Dim FileLength
Open "yourfile.txt" For Input As #1
FileLength = LOF(1)
var1 = Input(FileLength, #1)
Text1.Text = var1
Close #
آیا راهی دیگر هم وجود دارد که زبان فارسی رو پشتیبانی کنه؟
Last edited by hamedre81; 21-06-2012 at 22:17.
این کد که نوشتم فقط برای فایل های ترتیبی کاربرد داره مثلا نرم افزار NotPad . تو فایل های متنی با پسوند TXT امتحان کردم مشکلی نبود .
به جای .\Document.txt مسیر فایل رو باید بدیی ، بعد از اجرا کردن برنامه تمام محتویات فایل متنی درون یک textbox قرار می گیرد . (مشخصه Multi Line کنترل TextBox رو True کنید )
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
امیدوارم این پست به درت بخوره .
اگه توضیح بیشترم خواستی بگو در مورد دستورات .
Last edited by Akbar"22"; 22-06-2012 at 05:35.
ممنون از پاسختون
من نمی دونم کدی که داده بودید کار کرد متن رو تو محیط برنامه باز کرد اما با زبان فارسی مشکل داشت ,فارسی نمی تونه بنویسه و فقط کلمات ( ط ظ ک +) رو به جای متن می نویسه.
Last edited by hamedre81; 21-06-2012 at 22:37.
تست کنید ببینید کار میکنه........!!!!!!!!!!/////////
***********************************
*********************************کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این برنامه فقط برای باز کردن فایل های Unicode نوشته شده و فایل هایی که با سیستمANSI کد شدن رو درست باز نمیکنه...../////
*************************
موفق باشید!.gif "N Aggressive (45)")
Last edited by n00b; 22-06-2012 at 00:53.
تست کنید ببینید کار میکنه........!!!!!!!!!!/////////
***********************************
*********************************کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این برنامه فقط برای باز کردن فایل های Unicode نوشته شده و فایل هایی که با سیستمANSI کد شدن رو درست باز نمیکنه...../////
*************************
موفق باشید!
رو سیستم من کار نکرد . اگر هم کار می کرد تمام محتویات فایل رو تو یک سطر می آورد و حتی با true کردنمشخصه Multi Line حل نمی شد .
تست کنید ببینید کار میکنه........!!!!!!!!!!/////////
***********************************
*********************************کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این برنامه فقط برای باز کردن فایل های Unicode نوشته شده و فایل هایی که با سیستمANSI کد شدن رو درست باز نمیکنه...../////
*************************
موفق باشید!
اگر من فایل منتی رو از utf-8 به Unicode تبدیل می کردم با کدی که شما داده بودید باز می شد ولی حروف ک گ پ رو نمی نوشت .
آیا برای باز کردن UTF-8 راهی وجود نداره؟
جناب 22"Akbar" احتمالاً فایلی که امتحان کردید Unicode نبود.../// وگرنه باید کار کنه...////
**************
متن رو چه دقیقاً چه جوری به شما نشون میداد...؟؟؟/// به صورت علامت سوال یا متن درست..../// ..............////.gif "N Aggressive (26)")
************************
************************اگر من فایل منتی رو از utf-8 به Unicode تبدیل می کردم با کدی که شما داده بودید باز می شد ولی حروف ک گ پ رو نمی نوشت .
آیا برای باز کردن UTF-8 راهی وجود نداره؟
احتمالاً مشکل از فونت TextBoxه.../// فونت رو مثلاً رو Tahoma بذارید و دوباره امتحان کنید....///
*******************
راه های دیگه ای هم وجود داره...// مثلاً ADOStream و.../// ولی این ساده ترینشون بود.../// اگه عملی نیست بگید تا یه روش دیگه رو امتحان کنیم...////
*******************************
موفق باشید!
ممنون از همتون مشکل اصلیم حل شد .اما هر نوع فرنت براش انتخاب می کنم عدد 5 رو نمی نویسه .
یه سوال دیگه چطوری می تونم متن رو از که تو برنامه نوشن می ده از راست به چپ باشه (مثلا اگر یه جمله چند خطی کوچیک باشه سمت چپ می نویسه )
حالت righttoleft رو روی true گذاشتم اما درست نشد آیا راهی دیگه هستکه متن رو از سمت راست شروع کنه به نوشتن؟
Last edited by hamedre81; 22-06-2012 at 19:27.
*******************
اگه متنتون فارسیه بهتره که خاصیت righttoleft برابر true باشه..../////////
************************
واسه نشون دادن کارکتر ها از راست به چپ هم باید مقدار خاصیت Alignment رو برابر 1 (Right Justify) قرار بدید...//// کافیه کنترل مورد نظرتون رو انتخاب کنید تا از پنجره ی Properties به این خاصیت ها دسترسی پیدا کنید.../////// البته با نوشتن کد هم میشه این کار رو انجام داد...//////////
**************
موفق باشید!
از همتون ممنون بخصوص n00b و22"Akbar" که کمک بسیاری به من کردند
ببخشید یه سوال دیگه
کدی هست که جلو تغییر سایز برنامه رو بگیره (موقع اجرا)
Last edited by hamedre81; 22-06-2012 at 22:46.
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)
قوانين ايجاد تاپيک در انجمن
جواب بصورت نقل قول.gif "N Aggressive (18)")
.gif "N Aggressive (19)")
نوشته شده توسط n00b
.gif "N Aggressive (15)")
.gif "N Aggressive (16)")