ايران ويج

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

اينم سورسش
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
سلام
مطمئني اين همون چيزيه كه من مي خواستم؟

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