[silverlord]

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

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

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

[sami2015]

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

[silverlight]

كود :

       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

[sami2015]

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

[silverlord]

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