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)
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.