سلام!
عضویت تون رو در شهر سخت افزار تبریک می گم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سورسش پیوست شد.
موفق باشید
آرمین
سلام!
عضویت تون رو در شهر سخت افزار تبریک می گم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سورسش پیوست شد.
موفق باشید
آرمین
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
دسستتون درد نکنه یه سوال داشتم برا چی وقتی فایل اصلی رو قرار می دم ارور میده البته کارش رو انجام میده من تو سورس شما یه تغییراتی دادم احتمالا خودتون متوجه تغییرات میشید من سورس رو همراه فایل اصلی دوباره قرار میدم میشه لطف کنید بگین چرا ارور میده ، من یه فایل دیگه ضمیمه کردم که می خوام دو کار روش انجام بشه اول اینکه اعداد قرمز با اعدا مشکی جابجا بشه دوم اینکه بلانک یا فاصله بین اعداد قرمز از بین بره مثلا اگه 4 - 4 بشه 4-4 ممنون میشم در این خصوص هم کمکم کنید لطفا با سورس راهنمایی کنید بازهم ممنونبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آخرین ویرایش توسط hamalous در تاریخ 12-07-13 انجام شده است
خطا به خاطر این بود که در آخر فایل اصلی یه خط خالی وجود داشت (یک کارکتر NewLine اضافی) که خیلی راحت با گذاشتن یه شرط قابل حل بود. در ضمن شما ذکر نکرده بودید که اعداد ستون دوم ممکنه دو رقمی هم باشن و به خطر همین تبدیل درست صورت نمی گرفت. سورس اصلاح شده اش از پیوست قابل دریافته.
در مورد اون فایل Word دو تا ابهام وجود داشت:
- به دلیل معلوم نبودن راست چین یا چپ چین بودن فایل نمیشه نظر داد ستون قرمز در سمت راسته و یا ستون مشکی؟!
- بین ستون مشکی و قرمز در نگاه اول این طور به نظر میومد که چند تا کارکتر Space وجود داره ولی در عوض یه کارکتر بود که کد ASCIIش اصلا" وجود نداشت!! بنده این کارکتر رو با چند تا کارکتر فاصله جایگزین کردم.
در نتیجه بنده اون فایل Word رو در قالب یه فایل متنی (Main.txt) آوردم که به همراه سورس برنامه از پیوست دوم قابل دریافته. اگر مشاهده کردید پیش فرض های در نظر گرفته شده اشتباه بود سورس برنامه رو یه نگاه بندازید و سعی کنید خودتون برحسب نیازی که دارید تغییرش بدید؛ خیلی سخت نیست. این طوری سریع تر به نتیجه خواهید رسید.
موفق باشید
آرمینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
M A H R A D (13-07-13), nima_hl (12-07-13), Rezasam1 (05-08-13)
سلام دوست عزیز ممنون به خاطر توجه تون من فایل تکست قرار ندادم چون این فایل قالب رنگ برای رنگ کردن اعداد نداره ولی حالا که متوجه منظورم شدین فایل اصلی رو قرار می دم سورس شما درسته فقط تنها مشکلی که داره اینه که فاصله بین ستونها اونجوری که باید نیست یعنی بعد از اینکه اشاره گر سطر اول از ستون یک رو تمام کرد به ستون بعدی می پره و یکی یکی حرکت نمی کنه تا به سطر اول ستون دوم برسه برای همین برنامه شما ارور میده من برنامه رو با فایل اصلی قرار می دم ممنون میشم راهنمایی کنید دستتون درد نکنه واقعا لطف کردینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سورس جدید پیوست شد...
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
دوست عزیز ممنون من می خوام یه برنامه بنویسم که دو تا تکست باکس رو با هم مقایسه کنه یعنی اطلاعات تکست باکس یک رو در تکس باکس دو جستجو کنه و بالعکس و تفاوت تکست باکس یک رو با دو در فایلی به نام New 1 و دو را با یک در فایلی به نام New 2 ذخیره کنه ،من دو تا فایل متنی به نامهای 1 و 2 در ون سورس برنامه قرار دادم که به عناون اطلاعات تکست باکس 1 و 2 استفاده میشه در واقع می خوام این دو فایل با هم دیگه مقایسه بشند یه نکته راجع به مقایسه این دو فایل هم وجود داره که اگه مثلا عددی بصورت 5-5 54154 در یه تکست باکس وجود داشت و ده تا عدد بصورت 4-4 541540، 4-4 541541 ، 4-4 541542 ، 4-4 541543 ، 4-4 541544 ، 4-4 541545 ، 4-4 541546 ، 4-4 541547 ، 4-4 541548 ،4-4 541549 در یه تکست باکس دیگه وجود داشت این ده عدد رو با اون یه عدد به عنوان مشابه فرض کنه یعنی مثل اینه که اون یع عدد داخل هر دو تکست باکس وجود داره می دونم درخواست زیادی ولی اگه لطف کنید کمکم کنید و یا سورسی برای مقایسه دو تا تکست باکس سراغ دارین بهم بگین ممنون میشم من یه دستور با زبان vba که این دو کار رو انجام میده هم دارم اونم قرار می دم شاید بتونه کمکتون کنه ممنون
آخرین ویرایش توسط hamalous در تاریخ 13-07-13 انجام شده است
سلام دوست عزیز ممکنه در مورد مقایسه دو تکست باکس راهنمایی کنی من دو تا تکس باکس دارم می خوام مواردی رو که در تکست باکس 1 هست اما در تکست باکس 2 نیست به عنوان اختلاف در نظر بگیره و در خروجی چاپ بشه فرض کنید در تکست باکس 1 اعداد 110،120،130،140 باشه و در تکست باکس 2 اعداد 110 و 120 باشه می خوام در خروجی اعداد 130 و 140 به عنوان اختلاف چاپ بشه
سورسش پیوست شد.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
دستتون درد نکنه عالی بود ولی مشکل من اینه که فاصله بین دو ستون در دو فایل اصلی من یکسان نیست برای همین حتی در صورت تشابه تمام موارد هر دو تکست باکس اما بازهم بخاطر همین فاصله بین دو ستون اونها را به عنوان تفاوت در نظر میگیره حالا سوال من اینه که چطور سورس برنامه رو تغییر بدم که فاصله بین دو ستون رو به عنوان اختلاف در نظر نگیره من سورس و دو فایل اصلی رو ضمیمه قرار می دم ممنون
آخرین ویرایش توسط hamalous در تاریخ 15-07-13 انجام شده است
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks