[ابو روضة]

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

يوجد معى داخل الليست بوكس روابط لمواضيع

لكن هناك روابط مكررة ثلاث مرات او أكثر فكيف 

أحذف المكرر ويبقى واحد منهم فقط ؟

يعنى لو  هكذا مثلا

http://vb4arb.com/vb/newthread.php?fid=183
http://vb4arb.com/vb/newthread.php?fid=183
http://vb4arb.com/vb/newthread.php?fid=183
http://vb4arb.com/vb
http://vb4arb.com/vb
http://vb4arb.com/vb

يصبحو هكذا

http://vb4arb.com/vb/newthread.php?fid=183
http://vb4arb.com/vb

وطبعا الروابط كثيرة لكن كلهم مكررين

---

عثرت على الحل اخوتى وهذا هو

كود :

For Row As Int16 = 0 To ListBox1.Items.Count - 2
           For RowAgain As Int16 = ListBox1.Items.Count - 1 To Row + 1 Step -1
               If ListBox1.Items(Row).ToString = ListBox1.Items(RowAgain).ToString Then
                   ListBox1.Items.RemoveAt(RowAgain)
               End If
           Next
       Next

[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
هذا كود أخر لايعتمد عل جمل الفور 

كود :

Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة
       ListBox1.Items.CopyTo(strItems, 0) '  مصفوفة فيها كل عناصرالليست بوكس
       Dim strItems2() As String = strItems.Distinct().ToArray() ' انشاء مصفوفة جديدة عناصرها من المصفوفة الاولى بدون تكرار
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(strItems2) '  اضافة عناصر المصفوفة الثانية الى الليست بوكس

[سعود]

وبرضو هذا

PHP كود :

       Dim lst As New List(Of String)
        For Each h As String In ListBox1.Items
            If Not lst.Contains(h) Then
                lst.Add(h)
            End If
        Next
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(lst.ToArray) 


[ابو روضة]

(08-08-19, 10:12 PM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
هذا كود أخر لايعتمد عل جمل الفور 

كود :

Dim strItems(ListBox1.Items.Count - 1) As String ' انشاء مصفوفة
       ListBox1.Items.CopyTo(strItems, 0) '  مصفوفة فيها كل عناصرالليست بوكس
       Dim strItems2() As String = strItems.Distinct().ToArray() ' انشاء مصفوفة جديدة عناصرها من المصفوفة الاولى بدون تكرار
       ListBox1.Items.Clear()
       ListBox1.Items.AddRange(strItems2) '  اضافة عناصر المصفوفة الثانية الى الليست بوكس

الله يكرمك أخى ابراهيم ويبارك بعمرك...

الآن أنت أصبحت تذكرنى بالأخ الجوكر الله يطمنا عليه ويحفظه...

ما شاء الله عليك.

---

(08-08-19, 10:34 PM)سعود كتب : وبرضو هذا

PHP كود :

       Dim lst As New List(Of String)
        For Each h As String In ListBox1.Items
            If Not lst.Contains(h) Then
                lst.Add(h)
            End If
        Next
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(lst.ToArray) 


جزاك الله كل الخير أخى سعود وصدقنى أنت بالنسبة لى علم من أعلام المنتدى هنا

فلقد تعلمت على يديك أشياء كثيرة لم أسمع بها من قبل...

الله يحفظك.

[Beginer]

من البداية لا تسمح بإضافة سطر موجود في الأداة هكذا

PHP كود :

Dim s = "http://vb4arb.com/vb/newthread.php?fid=183"

If Not ListBox1.Items.Contains(s) Then ListBox1.Items.Add(s)