خواهش می کنم...برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
شما اگر قصد دارید تنها ستون های اول مقادیر هر دو جعبه ی متنی رو با هم مقایسه کنید کافیه با ترکیب دو دستور Mid و InStr ستون های اول رو جدا کنید. به این شکل که در در تسکت باکس اول تا قبل از کارکتر فاصله (Space) و در تکست باکس دوم تا قبل از Chr(9) رو جدا کنید (Compare1).
اگر هم قصد دارید هر دو ستون رو در مقایسه لحاظ کنید، با دستور Replace در تکست باکس اول کارکتر های فاصله (Space) رو با Null و در تسکت باکس دوم هم Chr(9) رو با Null جایگزین کنید و سپس این دو مقدار جدید حاصل از جایگزینی رو با هم مقایسه کنید (Compare2). این طوری اون ناهماهنگی بین فاصله ی ستون ها رفع میشه.
سورس هر دو نوع مقایسه پیوست شد. دوست گرامی پیشنهاد می کنم سورس هایی که قرار داده میشه رو کامل تحلیل کنید و در تحلیلش هم اگر سوالی داشتید بپرسید و سعی کنید خودتون منطقی رو که در ذهن دارید رو پیاده کنید. چون تمام این راهکار ها در سورس های قبلی به کار گرفته شده بود ولی انگار شما هیچ توجهی بهشون نکردید و بیش تر تمایل دارید شخصی سورس آماده اش رو در اختیارتون قرار بده.
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
آره حق با شما ست دوست عزیز من تا جایی که تونستم فایلهای خروجی رو شبیه هم کردم و مشکلم حل شد خواستم بیام اطلاع بدم که شما لطف کرده بودین و زحمت سورس اون رو کشیده بودین ،می دونم زیاد سوال می کنم ولی من فقط یک هفته است که شروع کردم به کار با این زبان و مسلما تسلط شما رو ندارم بنابراین از سورس های شما برای یادگیری استفاده می کنم حالا به عنوان آخرین سوال یه کار دیگه هم می خوام این سورس انجام بده که توی فایلی که ضمیمه کردن توضیح دادم ممنون میشم در اینباره هم کمک کنید یه دنیا ممنون
سورس مورد نظر پیوست شد. اگر در موردش سوالی داشتید همین جا مطرح کنید.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
موفق باشید
آرمینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
ممنون دوست عزیز از توجه و صبرت ولی این سورسی که شما نوشتین چیزی که من خواهش کرده بودم نیست چون دوباره اون اعداد رو که در تایپک بالا عرض کردم به عنوان اختلاف در نظر میگیره من خواسته بودم اون مواردی که در بالا ذکر کردم رو به عنوان اختلاف در نظر نگیره یعنی در واقع نباید در خروجی موردی با ستون دوم 5-5 داشته باشیم ممنونبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط ravegoat برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
متوجه منتظورتون شده بودم فقط یادم رفته بود مقدار یه متغیری رو ریست کنم. سورس اصلاح و پیوست شد.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
عالی بود دوست عزیز دستتون در نکنه حالا اگه بخوام برعکس این اتفاق هم بیفته باید چه تغییری توی سورسی که نوشتین بدم بهتر اینطور توضیح بدم این سورسی که شما زحمت کشیدین اون مواردی رو که ستون 5-5 داره رو با اون ده مورد مشابه می گیره و در تکست باکس 4 نمایش نمیده تا اینجا عالیه حالا می خوام برعکس این مورد هم باشه یعنی اون ده مورد رو مشابه این یه مورد بگیره یعنی در واقع 10 موردی رو که مشابه با اون یه مورد هست نباید در تکست باکس 3 نشون داده بشه ممنون میشم در این مورد هم کمکم کنید ممنون (در واقع اون ده مورد در تکست باکس اول قرار دارند و اونهایی که ستون دوم 5-5 دارند در تکست باکس دوم )
آخرین ویرایش توسط hamalous در تاریخ 17-07-13 انجام شده است
اگه منظورتون رو درست متوجه شده باشم باید الگوریتمی که برای معادل سازی اون 10 مورد به کار رفته در جهت عکس هم کار کنه. چنین چیزی میشه ولی بهینه نیست. بنده یه ترفند دیگه به کار بردم که اگر سورس پیوست رو دانلود کنید متوجه میشید.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید ارسالی توسط hamalous برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
موفق باشید
آرمینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
سلام دست شما استاد گرامی درد نکنه عالی بود دقیقا همون چیزی بود که می خواستم بازهم ممنون
ravegoat (17-07-13)
|
سلام دوست عزیز من سورس یه برنامه رو قرار میدم اگه تونستید لطف کنید مشکل اون رو حل کنید مشکل من وقتی که دکمه وارد کردن 2 رو می زنم اگه در پنجره showopen گزینه cancel رو انتخاب کنم برنامه قفل میشه ،یه سوال دیگه تکست باکسی هست که سرعتش از تکست باکس خود ویبی بیشتر باشه یا راهی تو برنامه نویسی هست که سرعت تکست باکس رو زیاد کنه ممنون
سلام!
1- مشکل اینجاست که وقتی کاربر CommonDialog رو Cancel می کنه هیچ فایلی برای پردازش معرفی نمیشه و برنامه خطا میده. اگر پس از نمایش CommonDialog در سورس تون کد زیر رو قرار بدید مشکل حل میشه:
2- گمان نکنم. سریع ترین راه اینه که محتویات فایل رو مستقیما" درون یه String بریزید و پردازش رو براساس این متغیر اجرا کنید؛ به عبارتی به جای اینکه هر بار مقادیر رو از درون جعبه ی متنی بخونید، داده ها رو از این متغیر رشته ای استخراج کنید.کد:If CommonDialog1.FileName = "" Then Exit Sub
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks