سرچ در يك متن

[seyyed]

سلام
فرض كنيم يك متغير رشته اي (يا يك تكست باكس) داريم كه مي خوايم يك كلمه و موارد مشابهش رو توش پيدا كنيم.
مثلا مي خوايم به دنبال كلمه "صدرالمتالهين" بگرديم.
مسلما برنامه بايد كلماتي مثل "صدر المتالهين، صدرالمتألهين، صدرالمتالّهين، صدرُالمتالهين، صدرالمتألِّهين، صَدرُالمِتألِهين و ..." رو هم پيدا كنه.
فكر استفاده از LIKe به ذهنم رسيد ولي مشكلش اينه كه اين دستور جاي كلمه رو مشخص نمي كنه.
نمي دونم مي شه تو instr از like استفاده كرد يا نه ...
خلاصه ...
هر كي راهي به ذهنش مي رسه يا به نوعي مي تونه كمكم كنه ممنون مي شم ...

[Berke]

سلام هموطن
-----------------
اين هم برنامه اي كه ميخواستيد
اين برنامه جستجو مي كنه و انتخاب مي كنه
اين برنامه كه ميگم ساده هستش اگه پيشرفته تر خواستي بگو

اينم سورسش
Dim a As Variant
Private Sub Command1_Click()
a = InStr(a + 1, Text1.Text, Text2.Text)
If a <> 0 Then
Text1.SetFocus
Text1.SelStart = a - 1
Text1.SelLength = Len(Text2.Text)
End If
End Sub
Private Sub Form_Load()
a = 0
End Sub

بقيه آموزش ها در
mehrdadrahi.blogfa.com

[seyyed]

سلام
مطمئني اين همون چيزيه كه من مي خواستم؟

اين كه يه دستورInstr معموليه.
و ابدا كلمات مشابه Text2.text رو پيدا نمي كنه.