Virer les doublons d'une collection

0/5 (1 avis)

Snippet vu 13 247 fois - Téléchargée 47 fois

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

Ajouter un commentaire Commentaire
troxsa Messages postés 553 Date d'inscription jeudi 28 novembre 2002 Statut Membre Dernière intervention 2 octobre 2016 1
8 févr. 2006 à 15:39
Bonjour

Pourquoi ne pas dupliquer le tableau dans un Hashtable
et d'utiliser la proprieter ContainsKey !

@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.