جستجو در txt

[nima6321]

سلام . من می خوام تو برنامم یک txt وارد کنم و تو اون مثلا ali و ahmad رو سرچ کنم و تمام کلمات بین اونها رو ، در یک txt ذخیره کنم. ممنون میشم که کمکم کنید :متفکر:

[ghafoori]

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

Dim text As String = "behzad ali mostafa reza hoshang ahmad"
Dim between_text As String
Dim words() As String
Dim ali, ahmad, a As Integer
ali = text.IndexOf("ali")
ahmad = text.IndexOf("ahmad")
between_text = text.Substring(ali + 3, ahmad - ali - 3)
words = between_text.Split(" ")
For Each s As String In words
MsgBox(s)
Next

[nima6321]

ممنون. من می خوام کلمه ی اول رو که تو textbox هست رو سرچ کنم. این سرچ به چه صورته؟

[ghafoori]

کد

Dim text As String = "behzad ali mostafa reza hoshang ahmad"
Dim between_text As String
Dim words() As String
Dim word1, word2, a As Integer
word1 = text.IndexOf(TextBox1.Text)
word2 = text.IndexOf(TextBox2.Text)
between_text = text.Substring(word1 + TextBox1.Text.Length, word2 - word1 - TextBox1.Text.Length)
words = between_text.Split(" ")
For Each s As String In words
MsgBox(s)
Next