[الماجيك مسعد]

اخي الكريم

الكود يعمل بشكل ممتاز جدا

كود :

Dim num As Integer = InputBox("لو عايز تمسح الارقام المكررة مثلا الرقم مكرر 3 مرات
يبقا تكتب 3
ولو عايز تمسحه لو مكرر مرة واحدة
هتكتب 1", "Enter Number number You Want To clear", "1", "4", "5")
                           REM تجميع لأكبر من 5 مرات
                           Dim itemGroups = From itm As ListViewItem In glist.Items
                                            Group itm By key = itm.SubItems(4).Text Into Group
                                            Where Group.Count() > num
                                            Select text = key, c = Group.Count

                           REM حذف
                           For Each g In itemGroups
                                   For Each itm In glist.Items
                                       If itm.SubItems(6).Text = g.text Then glist.Items.Remove(itm)
                                   Next
                               Next

ولكن ماذا افعل اذا اردت ان اترك عنصر واحد من العناصر المكررة

مثلا عندي عنصر اسمه
حريف مكرر 4 مرات
اريد ان احذف منه 3 ويتبقي واحد فقط
ما الكود المناسب لذلك؟