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



البحث بين كلمتين فى RichTextBox - xebrahimx - 03-08-13

السلام عليكم ورحمة الله وبركاته

كيف استطيع ان ابجث بين كلمتين داخل RichTextBox

مثلا

سبحان ربى العظيم

ايجاد ما بين سبحان , العظيم , ووضها فى تكست بوكس

ارجو المساعدة ضرورررررررى


البحث بين كلمتين فى RichTextBox - Sajad - 03-08-13

السلام عليكم

كود :
Dim arr As String() = RichTextBox1.Text.Split(" ")
        TextBox1.Text = arr(1)



البحث بين كلمتين فى RichTextBox - xebrahimx - 03-08-13

شكرا اخى للاجابة

وضعت الكود

ووضعت فى RichTextBox1

"word"

يلاكن يعطينى خطأ

هنا : TextBox1.Text = arr(1)
؟؟


البحث بين كلمتين فى RichTextBox - Sajad - 03-08-13

اخي العزيز انت ألم تقل انك تريد البحث بين كلمتين؟

اذا لماذا تكتب كلمة واحدة وتقول خطأ؟

الكود اعلاه يقسم الثلاث كلمات حسب المسافة ويجعلها في مصفوفة وبالتالي يكون الكلمة اللي بالوسط في ثاني موقع بالمصفوفة

رجاءا وضح طلبك



البحث بين كلمتين فى RichTextBox - xebrahimx - 03-08-13

اخى لم تفهمنى ,
RichTextBox به مقال

المقال يحتوى على جملة
سبحان ربى العظيم


حضرتك استبدلت الكلمة الاولى والكلمة التانية ( سبحان , العظيم) بعلمتين التنصيص اذا
يجب عند البحث يعطين ما هو بين علامتين التنصيص

يعنى انا وضعت "بسم الله الرحمن الرحيم"

كان الناتج كلمة ( الله فقط )

والى فهمته من الكود

RichTextBox1.Text.Split(" ")

انه يبحق ما بين علمتين التنصيص لذلك وضعت كلمة واحدة

"word"


البحث بين كلمتين فى RichTextBox - Sajad - 03-08-13

يا اخي العزيز انا لم استبدلهما بعلامتي التنصيص المزدوجة ظاهر انك لم تفهم ماذا تفعل الدالة Split?

هذه الدالة تأخذ مدخل من نوع string فهل يجوز اكتب المسافة بدون علامتي التنصيص؟ لهذا السبب كتبت split(" ")

وانا بينت لك ان هذه الدالة تقسم ما موجود في الRichtextbox الى كلمات مفردة حسب المسافة بين الكلمات اللي وضعتها كشرط للتجزئة في الدالة Split وتستطيع ان تضع أي حرف او أي رمز بدل المسافة هذا اذا كنت تريد التجزئة حسب رمز او حرف ما.




البحث بين كلمتين فى RichTextBox - 3booody - 03-08-13

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
من بعد اذن اخي وحبيبي سجَاد اظن اني فهمت قصدك
تقصد أي كلمة موجودة بين سبحان والعظيم تفضل الكود
[/COLOR]
كود :
Dim n, x As Integer
        n = InStr(RichTextBox1.Text, "سبحان") + 5
        x = InStr(RichTextBox1.Text, "العظيم")
        TextBox1.Text = Mid(RichTextBox1.Text, n, x - n)