منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حذف عناصر من List بناء على جمل انا احددها!

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

عندي استفسار وهو عندي 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

اعتذر اذا كان السؤال لا يعبر عن محتوى الموضوع بشكل دقيق

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

كود :

       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

Array.ForEach(Result.ToArray, Sub( r ) Array.ForEach(BlackList.ToArray, Sub( b ) If r.Contains( b ) Then Result.Remove( r )))

شكرا لكم اخواني

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

silverlord

sami2015

silverlight

sami2015

silverlord