منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد كود للبحث 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

كود :

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 جزاك اللة الف خير

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

سعود

Aly El-Haddad

محمد اسماعيل