جست جو در تکست باکس

[SHD.NET]

سلام

چجوری میشه یه متنو توی تکست باکس سرچ کرد ؟

میخوام بنویسم هر کاراکتری رو که توی دوتا پرانتز بود رو توی لیست باکس برام لیست کنه

مثلا من یه متن اینجوری دارم :

Hello my dear (This) is (an) example code , you can (too) (.)

میخوام وقتی روی دکمه کلیک کردم متن هایی که داخل پرانتز هست رو توی لیست باکس لیست کنه. یعنی اینجوری:

This
an
too
.

[reza-s4t4n]

بفرمایید . در رویداد دکمه سرچ ، کدهای زیر رو بنویسید :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str, tr_str() As String
str = TextBox1.Text
tr_str = str.Split("(")

For Each itm In tr_str
Try
itm = itm.Remove(itm.IndexOf(")"), itm.Length - itm.IndexOf(")"))
ListBox1.Items.Add(itm)
Catch ex As Exception

End Try
Next

End Sub

[SHD.NET]

داداش این کد جواب نداد .

[asghar2008]

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

94876

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim midtxt, ans, javab As String

midtxt = TextBox1.Text
For i As Integer = 0 To (Len(TextBox1.Text) - 1)
ans = midtxt.Substring(i, 1)
javab = ""
Dim j As Boolean = StrComp(ans, "(")
If j = 0 Then
i += 1
For d = i To midtxt.IndexOf(")") - 1
javab += midtxt.Substring(d, 1)
Next d
ListBox1.Items.Add(javab)
End If

Next i


End Sub

اما یه مشکل کوچولو داره !!!
اونم اینکه فقط اولین کلمه که داخل پرانتز رو میاره!! بقیه کلمات رو نمیاره
ایرادشم خط 12 (midtxt.IndexOf(")") - 1) با رنگ قرمز مشخص کردم.