+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف عناصر من List بناء على جمل انا احددها! (/showthread.php?tid=12191)
حذف عناصر من List بناء على جمل انا احددها! - silverlord - 29-04-15
السلام عليكم ورحمة الله وبركاته
عندي استفسار وهو عندي 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اعتذر اذا كان السؤال لا يعبر عن محتوى الموضوع بشكل دقيق
RE: حذف عناصر من List بناء على جمل انا احددها! - sami2015 - 29-04-15
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
RE: حذف عناصر من List بناء على جمل انا احددها! - silverlight - 29-04-15
كود :
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)
NextRE: حذف عناصر من List بناء على جمل انا احددها! - sami2015 - 29-04-15
Array.ForEach(Result.ToArray, Sub( r ) Array.ForEach(BlackList.ToArray, Sub( b ) If r.Contains( b ) Then Result.Remove( r )))
RE: حذف عناصر من List بناء على جمل انا احددها! - silverlord - 29-04-15
شكرا لكم اخواني