بررسی متن درون TextBox

[ahmads]

بازام سلام،


توی تالار گشتم متاسفانه جوابی پیدا نکردم .

میخواستم بدونم چطوری میشه متن درون تکست باکس رو بررسی کرد، مثلا چطوری میتونم بنویسم که اگه کلمه فلان چهار بار تکرار شده بود فلان عمل رو انجام بده یا اگه کلمه فلان درون متنی نوشته شد یا پیدا شد از برنمه خارج شو یا هر عمل دیگه ای، نمیدونم تونستم منظورم رو برسونم یا نه !؟

ممنون میشم اگه راهنمایی کنید .

باتشکر

[hossein71]

1-تعداد دفعات تکرار رشته:

x1 = 1
While InStr(x1 + 1, RichTextBox1.Text, "علی") <> 0
x2 = InStr(x1 + 1, RichTextBox1.Text, "علی")
t = t + 1
x1 = x2
Wend
Text1.Text = t
t:تعداد دفعات تکرار رشته "علی"

2-پیدا کردن کلمه مورد نظر و انجام عملیات:

If InStr(x1 + 1, RichTextBox1.Text, "پایان") <> 0 then
End
End if