تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف عناصر من List بناء على جمل انا احددها!
#1
السلام عليكم ورحمة الله وبركاته

عندي استفسار وهو عندي 2 ليست
Dim Result as new List(Of String)
Dim BlackList as new List(Of String)

القائمة  الاولى  Result داخلها عناصر اسماء دول Saudi,UAE,Egypt,Kuwait,Jordan,Iraq,Yemen
القائمة الثانية  BlackList  داخلها عناصر udi,men,wait

ما اريده هو البحث داخل هذه القائمة Result اذا كان اي عنصر من عناصرها يحتوي على هذه الجمل udi,men,wait
الموجودة داخل Blacklist يقوم بحذفه من Result

حاولت بأكثر من طريقة لكن جميع محاولاتي فشلت

هذه احدى محاولاتي لكن للأسف يبدو ان الكود مكتوب بشكل خاطيء!

 
كود :
     For i As Integer = 0 To Result.Count - 1
           For r As Integer = 0 To BlackList.Count - 1
               If result.Contains(BlackList(r)) Then
                   Result.RemoveAt(i)
               Else

               End If
           Next
       Next

اعتذر اذا كان السؤال لا يعبر عن محتوى الموضوع بشكل دقيق
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد
تم الشكر بواسطة:
#2
For r = 0 To BlackList.Count - 1
For i = Result.Count - 1 To 0 Step -1
If Result( i ).Contains(BlackList( r )) Then
Result.RemoveAt( i )
End If
Next
Next
الرد
تم الشكر بواسطة:
#3
كود :
       Dim arabCountryList As New List(Of String) From {"Egypt", "Saudi Arabia", "Yemen", "Jordan", "Korea"}
       Dim BlackCountryList As New List(Of String) From {"Korea", "Japan"}
       Dim difference As IEnumerable(Of String) = arabCountryList.Except(BlackCountryList)

       ' example to see the non black liste contries
       For Each name As String In difference
           Me.ListBox1.Items.Add(name)
       Next
الرد
تم الشكر بواسطة:
#4
Array.ForEach(Result.ToArray, Sub( r ) Array.ForEach(BlackList.ToArray, Sub( b ) If r.Contains( b ) Then Result.Remove( r )))
الرد
تم الشكر بواسطة:
#5
شكرا لكم اخواني
اثنان لا يتعلمان المتكبر والخجول
Heart اللهم علمنا ما ينفعنا و انفعنا بما علمتنا وَ زِدْنا علماً‏ Heart
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ?how to add ColumnClickEventArgs in module for list view الماجيك مسعد 2 164 27-02-21, 03:22 AM
آخر رد: الماجيك مسعد
  بناء مشروع يعمل على جميع نسخ الويندوز Lathe1 1 100 26-02-21, 08:50 PM
آخر رد: Ronald
  بناء قاعدة Access بالأوامر ؟ ZaerAllail 1 246 25-11-20, 12:35 AM
آخر رد: Jounior_P
  اخفاء صف في الداتا جريد بناء علي قيمه makky 1 350 22-10-20, 09:37 AM
آخر رد: mmali127
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 0 251 13-10-20, 11:08 AM
آخر رد: KIKO1992
  [سؤال] احصاء كل عناصر الصور في المشروع في مصفوفة عبد الهادي بهاب 11 1,326 22-09-20, 03:45 PM
آخر رد: عبد الهادي بهاب
  اخواني كيف أقوم بتحديد واختيار ( selection ) الصفوف التي بناء على القيمة في textbox2 جيولوجي مبتدئ 3 523 11-08-20, 10:00 AM
آخر رد: جيولوجي مبتدئ
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 563 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 352 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ
  تعديل بناء المشروع الى ANYCPU او X86bit bassant 3 539 16-06-20, 06:36 PM
آخر رد: kiki

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم