منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد كود للتاكد من نص معين فى textbox يوجد بة arry

الصفحات : 1 2

اريد كود للتاكد من نص معين فى textbox يوجد بة arry

مثال

لدى 2 textbox

الاول مكتوب فية حروف كبية وصغيرة وكلمات

والثانى يكتب فية الكلمة المراد البحث عنها
والبوتون ينفذ الكود
الطريقة

اريد كود يتاكد من اى كلمة موجودة فى text box1

عن طريق ادخال الكلمة المراد البحث عنا فى textbox2
والبوتون كود البحث

المطلوب

ما كود البحث الذى سوف يوضع فى buton1
وشكرا

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then

            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())

            TextBox1.SelectionLength = TextBox2.Text.Length

            TextBox1.HideSelection = False

        End If

    End Sub

End Class

اخى اشكرك ولاكن حاولت بنفس الطريقة

والمشكلة انا لو كتبت اى حرف من الكلمة هقول ok
يعنى مثلا مكتوب الله لو انا بحثت عن ا او ل او ة هيعمل select

شوف اخى هدى الطريقة لاكن ما نفعت

PHP كود :

If InStr(TextBox1.Text.ToLower, TextBox2.Text.ToLower) Then
            MsgBox("موجود")
        Else
            MsgBox("غير موجود")
        End If 

كود :

If Me.TextBox1.Text.ToLower.Contains(TextBox2.Text.ToLower) = True Then

            MsgBox("موجود")

        Else

            MsgBox("غير موجود")

        End If

السلام عليكم

جرب هذا الكود اخي العزيز

PHP كود :

If textBox1.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Contains(textBox2.Text) Then
                MessageBox.Show("موجود")
            Else
                MessageBox.Show("غير موجود")
            End If 

هذا الكود وظيفته تجزئة النصوص حسب المسافة والسطر الجديد وبامكانك اضافة أي فاصلة اخرى تريدها انت

السلام عليكم
اذا اردت بحث عادي اي انك تبحث وتعمل تضليل على الكلمة او الحرف الذي تبحث عنه فهذا هو الكود
If InStr(TextBox1.Text, TextBox2.Text) <> 0 Then
TextBox1.SelectionStart = InStr(TextBox1.Text, TextBox2.Text) - 1
TextBox1.SelectionLength = Len(TextBox2.Text)
TextBox1.Focus()
Else
MsgBox("Not found", vbOKOnly, "Find")
End If
اما اذا اردت ان تتأكد من وجود الكلمة او الحرف الذي بحثت عنه موجود ام لا فهو فقط تحذف 3 اسطر من الكود السابق ونضع رسالة وجود الكلمة فيصبح كالتالي
If InStr(TextBox1.Text, TextBox2.Text) <> 0 Then
MsgBox("the Text Is Find", , "Find")
Else
MsgBox("Not found", , "Find")
End If
___
ارجو ان يكون المطلوب
اما اذا فهمت السؤال خطأ فأرجو التوضيح أكثر:p

اشكركم جميعا

اخى sajad

الكود بة خطاء

وجميع الأكواد الموجوده لا تعمل

المطلوب ارجوكم افهمونى

لو جربتو الأكواد دى وكتبت اى حرف موجود باى كلمة هتبقى true ??

لو حد عايز يتاكد يجرب اى كود من الموجود

ازاى هيتاكد

اعمل مصفوفة فى textbox1 او 2 بها

الله
اكبر
و button ونضيف اى كود
وتجى عند texbox1 وتكتب حرف[ ال]

هيقولك ان النص موجود طيب ازاى ؟؟؟

freeviwer كتب :اخى sajad

الكود بة خطاء

وجميع الأكواد الموجوده لا تعمل

المطلوب ارجوكم افهمونى

لو جربتو الأكواد دى وكتبت اى حرف موجود باى كلمة هتبقى true ??

لو حد عايز يتاكد يجرب اى كود من الموجود

ازاى هيتاكد

اعمل مصفوفة فى textbox1 او 2 بها

الله
اكبر
و button ونضيف اى كود
وتجى عند texbox1 وتكتب حرف[ ال]

هيقولك ان النص موجود طيب ازاى ؟؟؟

السلام عليكم، من بعد إذن أخي sajad فالكود التالي يصحح الخطأ الذي يظهر عندك

كود :

If New List(Of String)(TextBox1.Text.Split(New String() {" ", Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)).Contains(TextBox2.Text) Then

            MessageBox.Show("موجود")

        Else

            MessageBox.Show("غير موجود")

        End If

الصفحات : 1 2

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

freeviwer

Aly El-Haddad

freeviwer

freeviwer

3booody

Sajad

محمود اكرم

freeviwer

freeviwer

Aly El-Haddad