واضح آرشیو وب فارسی:سایت ریسک: mehdi_yg13-03-2006, 01:25 PMسلام چرا وقتی میخوام داخل یه textbox حرف " ک" رو جستجو کنم پیدا نمیکنه ولی بقیه حروف رو به راحتی پیدا میکنه ؟ Mostafa 102413-03-2006, 06:29 PMخب چطور جستجو ميكني كه پيدا نميكنه ؟ mehdi_yg13-03-2006, 07:02 PMخب چطور جستجو ميكني كه پيدا نميكنه ؟ http://www.barnamenevis.org/forum/attachment.php?attachmentid=2816&d=1142197884 اين برنامه رو ببين هر حرفي رو كه تو textbox2 تایپ میکونی تو textbox1 پیدا میکنه بجوز حرف " ک " اصلاً هر کلمه ای رو که توش "ک" داشته باشه پیدا نمیکنه . مشکلش چیه ؟ mehdi_yg14-03-2006, 11:39 AMكم كم داريم ميريم تو سال 85 ولي هنوز كسي كمكم نكرده ! Mostafa 102414-03-2006, 03:15 PMمهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟: Dim x As Integer s=1 if text1.selstart<>0 then s = text1.selstart+1 endif x = InStr(s, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End If mehdi_yg15-03-2006, 08:17 AMمهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟: Dim x As Integer s=1 if text1.selstart<>0 then s = text1.selstart+1 endif x = InStr(s, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End If نه آقا Mostafa جواب نداد . بازم ممنون از توجه شما Payman_6215-03-2006, 12:28 PMالآن برنامتو ديدمو دانلود كردم. يه تغييراتي توش دادم. ببين اين كد چه طوره. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! رابین هود15-03-2006, 01:38 PMدوست عزیز سلام معمولا در برنامه نویسی ها حرف ک و ی مشکل ساز هستند ما دو نوع ک داریم: ک و ك ی و ي برای همین همیشه دردسر ساز میشن اگه توی برنامتون دقت کنید میبینید که حرف ك اگر به این شکل تایپ بشه بدرستی سرچ رو انجام میده ولی به شکل معمول نه. کدی هم دوستمان پیام نوشته اند کاملا درست کار میکنه و دقیقا همین کاری که میگم انجام میده یعنی موقعی که ک رو تایپ میکنی و میخوای جستجو انجام بدی اونو به این ك تبدیل میکنه. ایشااله موفق باشی Payman_6215-03-2006, 06:06 PMپست قبليو اديت كردم. بهتره به جاي اون 6 خط از replace استفاده شه. اگه متنت هميشه همين قدر كوتاهه كه هيچي ولي اگه ممكنه متن بلند باشه بهتره الگوريتم برنامه رو طوري تغيير بدي كه هر وقت در متن تغييري ظاهر شد تابع replace وارد عمل شه كه با هر بار سرچ تو كل متن دنبال ك نگرده و سرعت نياد پايين. عمل replace رو براي ي كه رابين هود اشاره كرد هم انجام بده. Mostafa 102415-03-2006, 08:42 PMآق مهدي من موقعي كه پست قبلي رو فرستادم وي بي دم دستم نبود كه تستش كنم . ولي امروز همون برنامه زير رو توي وي بي باز كردم . احتمالا مشكل توي اون فونتي هست كه انتخاب كردي . چون من فونت Arial رو انتخاب كردم و خيلي راحت جواب داد x = InStr(1, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End I mehdi_yg16-03-2006, 01:17 AMاز همه دوستان سپاسگذارم مشكل حل شد و برنامه بخوبي كار ميكنه بازم ممنون سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 385]