[محمد اسماعيل]

اريد كود للبحث RichTextBox

مابداخل الريش تيكست كالاتي

[year1]
2005
2010
[end]
[year2]
2005
2010
2011
2013
[end]

طبعا السنوات كثيرة وليست ثابتة العدد او العناصر
اريد كود البحث عن السنة وعند وجود السنة بالبحث يستخلص اللينات اسفل السنة حتي كلمة end
السنوات كثيرة
مثلا بحثت عن year1
يظهر بالتيكست بوكس هذة العناصر بعد استخلاصها من الريش بوكس يعني استخلص مابعد حملة البحث الي end

[year1]
2005
2010

[سعود]

اقترح ان تكتب النصوص المراد البحث عنها بصيغ html حتى يسهل البحث عنها باستخدام ادوات جاهزة
انظر للسؤال
http://vb4arb.com/vb/Thread-%D9%85%D8%B3...chhtextbox

[Aly El-Haddad]

كود :

Public Function GetBody(ByVal str As String, ByVal start As String, ByVal [end] As String) As String
        Dim len As Integer = 0
        len = (str.IndexOf(start) + start.Length)
        len = (str.IndexOf([end]) - len)
        Return str.Substring((str.IndexOf(start) + start.Length), len)
    End Function

كود :

RichTextBox2.Text = GetBody(RichTextBox1.Text, "[year1]", "[end]")

[محمد اسماعيل]

اكواد تعمل جيدا Aly El-Haddad جزاك اللة الف خير

الف شكر لك اخي في اللة مسعود علي متابعة وردك علي الموضوع انا تابعت مواضيع كتير عن البحث وعندي اكواد البحث ولكن الفكرة استخلاص اسطر جديدة بالنسبة لي جزاكم اللة الف خير علي المتابعة