[xebrahimx]

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

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

مثلا

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

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

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

[Sajad]

السلام عليكم

كود :

Dim arr As String() = RichTextBox1.Text.Split(" ")
        TextBox1.Text = arr(1)

[xebrahimx]

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

وضعت الكود

ووضعت فى RichTextBox1

"word"

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

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

[Sajad]

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

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

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

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

[xebrahimx]

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

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


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

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

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

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

RichTextBox1.Text.Split(" ")

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

"word"

[Sajad]

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

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

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

[3booody]

[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)