Virer les doublons d'une collection

Commenter

Contenu du snippet

Voilà, il s'agit d'un petit code en VB.NET que j'ai eu l'occasion de faire ce matin. Il permet de virer les entrées présentes en double dans une collection.

Source / Exemple : 


'Vire les doublons dans une collection
Sub removeDuplicates(ByRef aCollection As Collection)
    Dim tmp As Object
    Dim i, j As Integer

    i = 1
    Do While i <= aCollection.Count()
        tmp = aCollection.Item(i)
        For j = i + 1 To aCollection.Count()
            If tmp = aCollection.Item(j) Then
                aCollection.Remove(j)
                i -= 1
                Exit For
            End If
         Next
        i += 1
    Loop
End Sub

Conclusion :


C'est un passage par référence donc pour l'utiliser faites simplement :

removeDuplicates(maCollection)

A voir également

Du même auteur (cs_Romuald)