سوال: جستجوي كلمات ناقص در VB [بایگانی]

zamani_eng79

یک شنبه 01 دی 1387, 20:14 عصر

سلام به همگي. آيا مي تونيم در VB فقط با تايپ يك يا چند حرف از يك كلمه انرا بيابيم و يا از كاراكتر جايگزيني ستاره استفاده كنيم؟خوشحال و ممنون مي شم اگه جوابي دريافت كنم.

Alisalari

یک شنبه 01 دی 1387, 20: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