پيدا كردن كلمه ي مورد نظر ميان جمله

[www.pc3enter.tk]

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

به طور مثال
======================
كلمه ي مورد نظر من " خوردن "

( نيتسش تا سيب مد بنا بشب ت شسبذا خوردن شتبحت خ شيسنت علي )

======================
اگر كلمه ي خوردن ميان جمله باشد پيغام دهد
باتشكر

[ho3ein.3ven]

سلام از تابع instr استفاده کن.

[www.pc3enter.tk]

ممون اگر اشتباه نكرده باشم بايد انجوري باشد

Text1.Text = InStr(Text2.Text, "ali")

[محسن واژدی]

ممون اگر اشتباه نكرده باشم بايد انجوري باشد

Text1.Text = InStr(Text2.Text, "ali")

سلام علیکم
به ایصورت: Text1.Text = InStr(1, Text2.Text, "ali")

موفق باشید

[SHD.NET]

دوست عزیز . شما می تونید با یه حلقه for next هم این کارو بکنید

مثلا ما میخوایم کلمه Ali رو از تکست 1 پیدا کنیم
for i= 1 to len(text1)
h1=left(text1,i)
hrf=right(h1,3)
if hrf="Ali" then
msgbox"found"
end if
next i

[SlowCode]

دوست عزیز . شما می تونید با یه حلقه for next هم این کارو بکنید

مثلا ما میخوایم کلمه Ali رو از تکست 1 پیدا کنیم
for i= 1 to len(text1)
h1=left(text1,i)
hrf=right(h1,3)
if hrf="Ali" then
msgbox"found"
end if
next i



این روش خیلی اشتباهه، سرعتش کمتره و اصلا هم منطقی نیست. مثلا به ازای i=2 طول h1 میشه 2 و شما میخوایین 3 تا کاراکتر از قسمت راستش بردارین!!! بعد مقایسه کنی که علی هست یا نه !!! چرا واسه خوردن غذا دستت رو از دور گردنت میاری !!!
اگه میخواستی یه جور بنویسی کد زیر بهتر بود، که بازم توصیه نمیشه و کد آقای واژدی بهتره.
For i = 1 To Len(text1)
If Mid(text1, i, 3) = "Ali" Then MsgBox "Found"
Next