View Full Version : سوال: جستجوي كلمات ناقص در VB
zamani_eng79
یک شنبه 01 دی 1387, 21:14 عصر
سلام به همگي. آيا مي تونيم در VB فقط با تايپ يك يا چند حرف از يك كلمه انرا بيابيم و يا از كاراكتر جايگزيني ستاره استفاده كنيم؟خوشحال و ممنون مي شم اگه جوابي دريافت كنم.
Alisalari
یک شنبه 01 دی 1387, 21:31 عصر
با اين تيكه كد ميتوني هر چي رو كه توي TextBox2 به عنوان مورد جستجو وارد كردي ، توي TextBox1 به عنوان متن اصلي جستجو كني ، جستجو حرف به حرف انجام ميشه ، پس مورد جستجو چه اول كلمه يا وسط كلمه يا آخر كلمه باشه فرقي نميكنه .
مثلا" اگر boar هم تايپ كني در متن به كلمه ي Keyboard كه برسه Flag را True ميكنه و اونجا ميتوني با Flag كنترل رو هر جور خواستي دست بگيري .
Dim Flag As Boolean
Flag = False
For Index = 1 To Len(TextBox1.Text) - Len(TextBox2.Text) + 1
If Mid$(TextBox1.text, Index, Len(TextBox2.Text)) =TextBox2.Text Then Flag = True
Next Index
... If Flag = True Then
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.