منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف ابحث عن قيمة متغيرة في مصفوفة

الصفحات : 1 2

كيف ابحث عن قيمة متغيرة في مصفوفة
مثلا اريد ان استعلم عن textbox1.text هل موجودة بالمصفوفة ام لا

السلام عليكم

انظر الى هذا الكود:

PHP كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"}
        If arr.Contains(TextBox3.Text) Then
            MessageBox.Show("Found")
        Else
            MessageBox.Show("Not Found")
        End If 

بالتوفيق ان شاءالله

لكنها تاتي حتى لو الكلمة ناقصة مثلا لو بحثت عن ahm ويوجد ahmed سيعيد true

السلام عليكم

انظر الى هذا الكود:

كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"}

        If Array.IndexOf(arr, TextBox1.Text) <> -1 Then

            MsgBox("Found!")

        Else

            MsgBox("Not Found!")

        End If

بالتوفيق ان شاءالله

(عفواً على الأقتباس أخي sajad)
Big Grin

Aly El-Haddad كتب :السلام عليكم

انظر الى هذا الكود:

كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"} If Array.IndexOf(arr, TextBox1.Text) <> -1 Then MsgBox("Found!") Else MsgBox("Not Found!") End If
بالتوفيق ان شاءالله

(عفواً على الأقتباس أخي sajad)

كتبت هذه المشاركة قبل تجربة كود الأخ sajad
بعد تجربته وجدت أنه يعمل بشكل صحيح!

بارك الله فيكم جميعا
ماذا لو اردت استخدام stringbuilder

كود :

Dim all As New StringBuilder

ثم الحق له نص جديد

كود :

all.Append("saud#")

والان كيف ابحث ضمن all ؟

كود :

all.ToString()

؟
عفواً أستاذ سعود ممكن توضح المطلوب؟ Smile

شوف اخي الكريم ضع متغير في موديول وصرحه بشكل عام يعني

كود :

public all as new stringbuilder

ثم بزر امر اسند له قيمة

كود :

all.append("textbox1.text)

ضع قيمة جديدة عند كل نقر زر
ستتعبا all بالبيانات
كيف ابحث عن نص معين مكتوب بـ textbox2.text

كود :

Dim pat As New Regex(lbl.Text)        

Dim m As Match = pat.Match(all.ToString)

        If m.Success Then

            MsgBox("found")

        Else

            MsgBox("NO")

        End If

طيب اخواني من يعدل على الكود هذا بحيث يبحث عن كامل الجملة؟

للاسف .. لم اتوقع صعوبة التعامل مع المصفوفات.

الصفحات : 1 2