منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] البحث 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=3876)

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

طرحت فبل ذالك موضوع للبحث واستخراج عدد من السطور  بالريش بوكس واجابني علية Aly El-Haddad

في تلك المشاركة

البحث بالريش

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


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

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

2009
2010
2012
2014
[end]

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

[year1]
2005
2010

لما ببحث في السنة الاولي بيجيب كل البيانات
المشكلة عند البحث بالسنة بعد الاولي اي سنة اخري بيظهر خطا
Length cannot be less than zero.

Parameter name: length,
والسبب ان اخر البحث [end] موجودة قبل عنصر البحث فيظهر اني المشكلة ان كومبيلر بيقراء الكل قبل كلمة البحث وبعد اريد ان يقرا مابعد جملة البحث فقط
 يعني لو بحثت  [year3] يبقي يقرا ء [end] اخر جملة البحث فقط

 اسف لمعاودة السؤال

RE: البحث RichTextBox - vbnet - 23-09-14

.....

دالة قديمة للبحث في نص بدلالة بداية ونهاية

منقول

كود :
Private Function Search(ByVal text As String, ByVal startString As String, ByVal endString As String) As String
    Dim result As String = String.Empty
    Dim startIndex As Integer = (text.IndexOf(startString))
    If startIndex <> -1 Then
        startIndex += startString.Length
        Dim endIndex As Integer = (text.IndexOf(endString, startIndex))
        result = text.Substring(startIndex, endIndex - startIndex).Trim
    End If
    Return result
End Function

.....

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

جزاك اللة خيرا علي الرد  الاكواد تعمل علي جميع النص

اسف علي تاخيري في الرد

ياريت لو تشرح الكود عشان افهم اكتر