جستجوی یک کلمه در یک جمله

چطور می تونم یک کلمه رو تو یک جمله جستجو کنم ؟

فرض کنیم جمله من text1.text باشه

کلمه من text2.text باشه

سلام
نمي دونم منظورتون رو فهميدم يا نه ولي با استفاده از دستور Like مي‌توني يه كلمه رو تو ديتابيس سرچ كني و هر ركوردي كه داراي اون كلمه باشه واسه شما استخراج مي‌شه.:5:

x=instr text1.text , text2.text
این دستور محل شروع متن مورد نظرتو تو text1 رو می ده.
اگه میخوای یه چیز دیگه جاش بزاری میتونی از replace استفاده کنی.

نقل قول:

---

نوشته شده توسط 301 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

x=instr text1.text , text2.text
این دستور محل شروع متن مورد نظرتو تو text1 رو می ده.
اگه میخوای یه چیز دیگه جاش بزاری میتونی از replace استفاده کنی.

---

من می خوام بمن بگه که این مقدار در جمله وجود داره یا نه !
مثلا بگه که کلمه "علی" در جمله " اسم من علی است" وجود داره یا نه !

x=instr text1.text , text2.text
if mid(text2,x,len(text2)) =text2 then
msgbox text2+" is exist"
else
msgbox text2+" not exist"
endif

مشکل کد اینجاست که اگه من کلمه دوم جمله رو بده بهش مینویسه not exist
و اگه بخوام textbox رو هم خالی بزارم بازم مینویسه exist

برای خالی هم اول چک کن ببین خالی بود جستجو نکنه مثل این

کد:

---


Dim x As Integer
If Text2 = "" Then
 MsgBox "khalie"
 Else
x = InStr(Text1.Text, Text2.Text)
  If Mid(Text1, x, Len(Text2)) = Text2 And x <> 0 Then
  MsgBox Text2 + " is exist"
  Else
  MsgBox Text2 + " not exist"
  End If
 End If

---

میتونی این کار رو هم انجام بدی

کد:

---

For i = 1 To Len(Text2.Text)
If Mid(Text2.Text, i, Len(Text2.Text)) = Text1.Text Then Exist = 1
Next
If Exist = 1 Then MsgBox Text1.Text & " Is Exist" Else MsgBox Text1.Text & " Is Not Exist"

---

از این لینک هم میتونی سورسش رو بگیری

کد:

---

"http://rapidshare.com/files/83961477/TextFinder.rar.html"

---