View Full Version : سوال: جست جو در تکست باکس
SHD.NET
دوشنبه 22 آبان 1391, 17:51 عصر
سلام
چجوری میشه یه متنو توی تکست باکس سرچ کرد ؟
میخوام بنویسم هر کاراکتری رو که توی دوتا پرانتز بود رو توی لیست باکس برام لیست کنه
مثلا من یه متن اینجوری دارم :
Hello my dear (This) is (an) example code , you can (too) (.)
میخوام وقتی روی دکمه کلیک کردم متن هایی که داخل پرانتز هست رو توی لیست باکس لیست کنه. یعنی اینجوری:
This
an
too
.
reza-s4t4n
دوشنبه 22 آبان 1391, 19:37 عصر
بفرمایید . در رویداد دکمه سرچ ، کدهای زیر رو بنویسید :
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
دوشنبه 22 آبان 1391, 21:34 عصر
داداش این کد جواب نداد .
asghar2008
سه شنبه 23 آبان 1391, 23:10 عصر
با سلام
شما می تونید از کد زیر استفاده کنید.
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) با رنگ قرمز مشخص کردم.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.