vb.net Remove duplicate items in listview - حذف السطور المكررة في لست فيو

[SEMO.Pa3x]

Public Sub RemoveDuplicates(ByVal lstView As ListView)
    Dim itemI, itemJ As ListViewItem
    Dim progress, count As Integer
 
    For i As Integer = lstView.Items.Count - 1 To 0 Step -1
        itemI = lstView.Items(i)
        progress = progress + 1
        ' start one after hence +1
        For z As Integer = i + 1 To lstView.Items.Count - 1 Step 1
            itemJ = lstView.Items(z)
            If itemI.Text = itemJ.Text Then
                'duplicate found, now delete duplicate
                lstView.Items.Remove(itemJ)
                count = count + 1
                Exit For
            End If
        Next z
    Next (i)
End Sub

 

 

الاستدعاء

 

RemoveDuplicates(ListView1)

 

 

طريقة اخرى

 

Function remover(l As ListView) As Boolean
  Dim str As String = " "
  For i As Integer = 0 To l.Items.Count - 1
  Try
  Select Case str.IndexOf("0" & l.Items(i).SubItems(0).Text) = -1
  Case False : l.Items(i).Remove()
  Case True : str &= "0" & l.Items(i).SubItems(0).Text
  End Select
  Catch : End Try
  Next
  Return True
  End Function

 

 

الاستدعاء

 

remover(listview1)

 

تم بحمد الله ، SEMO.Pa3x