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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف ابحث عن قيمة متغيرة في مصفوفة (/showthread.php?tid=8454)

الصفحات: 1 2

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

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

كيف ابحث عن قيمة متغيرة في مصفوفة - Sajad - 13-04-13

السلام عليكم

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

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 

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

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

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

كيف ابحث عن قيمة متغيرة في مصفوفة - Aly El-Haddad - 13-04-13

السلام عليكم

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

كود :
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 - 13-04-13

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)
Big Grin

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

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

بارك الله فيكم جميعا
ماذا لو اردت استخدام stringbuilder
كود :
Dim all As New StringBuilder

ثم الحق له نص جديد
كود :
all.Append("saud#")

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

كيف ابحث عن قيمة متغيرة في مصفوفة - Aly El-Haddad - 13-04-13

كود :
all.ToString()
؟
عفواً أستاذ سعود ممكن توضح المطلوب؟ Smile

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

شوف اخي الكريم ضع متغير في موديول وصرحه بشكل عام يعني
كود :
public all as new stringbuilder
ثم بزر امر اسند له قيمة
كود :
all.append("textbox1.text)

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

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

كود :
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
طيب اخواني من يعدل على الكود هذا بحيث يبحث عن كامل الجملة؟

كيف ابحث عن قيمة متغيرة في مصفوفة - سعود - 13-04-13

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