مشكل با جستجوي حرف "ك" در TextBox

[mehdi_yg]

سلام

چرا وقتی میخوام داخل یه textbox حرف " ک" رو جستجو کنم پیدا نمیکنه ولی بقیه حروف رو به راحتی پیدا میکنه ؟

[Mostafa1024]

خب چطور جستجو ميكني كه پيدا نميكنه ؟

[mehdi_yg]

خب چطور جستجو ميكني كه پيدا نميكنه ؟

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين برنامه رو ببين هر حرفي رو كه تو textbox2 تایپ میکونی تو textbox1 پیدا میکنه بجوز حرف " ک " اصلاً هر کلمه ای رو که توش "ک" داشته باشه پیدا نمیکنه . مشکلش چیه ؟

[mehdi_yg]

كم كم داريم ميريم تو سال 85 ولي هنوز كسي كمكم نكرده !

[Mostafa1024]

مهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟:
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_yg]

مهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟:
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_62]

الآن برنامتو ديدمو دانلود كردم. يه تغييراتي توش دادم. ببين اين كد چه طوره.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[رابین هود]

دوست عزیز سلام
معمولا در برنامه نویسی ها حرف ک و ی مشکل ساز هستند ما دو نوع ک داریم:
ک و ك
ی و ي
برای همین همیشه دردسر ساز میشن اگه توی برنامتون دقت کنید میبینید که حرف ك اگر به این شکل تایپ بشه بدرستی سرچ رو انجام میده ولی به شکل معمول نه.
کدی هم دوستمان پیام نوشته اند کاملا درست کار میکنه و دقیقا همین کاری که میگم انجام میده یعنی موقعی که ک رو تایپ میکنی و میخوای جستجو انجام بدی اونو به این ك تبدیل میکنه.
ایشااله موفق باشی

[Payman_62]

پست قبليو اديت كردم. بهتره به جاي اون 6 خط از replace استفاده شه.
اگه متنت هميشه همين قدر كوتاهه كه هيچي ولي اگه ممكنه متن بلند باشه بهتره الگوريتم برنامه رو طوري تغيير بدي كه هر وقت در متن تغييري ظاهر شد تابع replace وارد عمل شه كه با هر بار سرچ تو كل متن دنبال ك نگرده و سرعت نياد پايين. عمل replace رو براي ي كه رابين هود اشاره كرد هم انجام بده.

[Mostafa1024]

آق مهدي من موقعي كه پست قبلي رو فرستادم وي بي دم دستم نبود كه تستش كنم . ولي امروز همون برنامه زير رو توي وي بي باز كردم .
احتمالا مشكل توي اون فونتي هست كه انتخاب كردي . چون من فونت 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