منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استخراج الاسطر المتشابهة - نسخة قابلة للطباعة

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

استخراج الاسطر المتشابهة - mervandzz - 01-02-20

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



اريد من اخوتي الكرام  كود لاستخراج الاسطر المتشابهة  في listbox1 ووضعا فيlistbox2 مثلا

   

                                             اكون شاكر لكم على مساعدتي  Shy

RE: استخراج الاسطر المتشابهة - ابراهيم ايبو - 01-02-20

السلام عليكم اخي الكريم
تفضل هذا الكود سيقوم بفحص الليست بوكس الاولى وكل عنصر مكرر سيضعه في الليست بوكس الثانية
كود :
  For i As Integer = 0 To ListBox1.Items.Count - 1
           For j As Integer = ListBox1.Items.Count - 1 To (i + 1) Step -1
               If ListBox1.Items(j) = ListBox1.Items(i) Then
                   ListBox2.Items.Add(ListBox1.Items(j).ToString)
               End If
           Next
       Next


RE: استخراج الاسطر المتشابهة - mervandzz - 02-02-20

(01-02-20, 06:03 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
تفضل هذا الكود سيقوم بفحص الليست بوكس الاولى وكل عنصر مكرر سيضعه في الليست بوكس الثانية
كود :
  For i As Integer = 0 To ListBox1.Items.Count - 1
           For j As Integer = ListBox1.Items.Count - 1 To (i + 1) Step -1
               If ListBox1.Items(j) = ListBox1.Items(i) Then
                   ListBox2.Items.Add(ListBox1.Items(j).ToString)
               End If
           Next
       Next


مشكور  يااخي على المساعدة و النصيحة  Blush

RE: استخراج الاسطر المتشابهة - ابراهيم ايبو - 03-02-20

الحمد لله والشكر لله
ولك اخي الكريم