منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] البحث RichTextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] البحث RichTextBox (/showthread.php?tid=3817)

البحث RichTextBox - محمد اسماعيل - 13-09-14

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

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

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

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

[year1]
2005
2010

RE: البحث RichTextBox - سعود - 13-09-14

اقترح ان تكتب النصوص المراد البحث عنها بصيغ html حتى يسهل البحث عنها باستخدام ادوات جاهزة
انظر للسؤال
http://vb4arb.com/vb/Thread-%D9%85%D8%B3%D8%A7%D8%B9%D8%AF%D9%87-%D9%81%D9%89-%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D8%A7%D8%AC-%D9%86%D8%B5-%D9%85%D9%86-richhtextbox

RE: البحث RichTextBox - Aly El-Haddad - 13-09-14

كود :
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]")


RE: البحث RichTextBox - محمد اسماعيل - 14-09-14

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

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