Discussion :

[tfrancais]

Bonjour à tous,

Je travaille avec Linq et des collection et j'ai des soucis avec le distinct comme illustré ci-dessous :

J'ai une collection de type ObjTest(nom; prenom):
nom1;prenom1
nom1;prenom1
nom2;prenom2
nom2;prenom2

et je cherche à créer une nouvelle collection de mon même type ObjTest en retirant les doublons.

J'ai construit le fichier VB suivant mais j'ai besoin d'éclaircissements car ma nouvelle collection a toujours ses 4 lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Class Test
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tab As New List(Of objTest)
        Dim obj1 As New objTest()
        obj1.nom = "nom1"
        obj1.prenom = "prenom1"
 
        Dim obj2 As New objTest()
        obj2.nom = "nom1"
        obj2.prenom = "prenom1"
 
        Dim obj3 As New objTest()
        obj3.nom = "nom2"
        obj3.prenom = "prenom2"
 
        Dim obj4 As New objTest()
        obj4.nom = "nom2"
        obj4.prenom = "prenom2"
 
        tab.Add(obj1)
        tab.Add(obj2)
        tab.Add(obj3)
        tab.Add(obj4)
 
 
        Dim tst As IEnumerable(Of objTest) = (From s In tab _
                   Select New objTest With { _
                    .nom = s.nom, _
                    .prenom = s.prenom}).Distinct().ToList()
 
        Console.ReadLine()
    End Sub
 
    Class objTest
        Private _nom As String
        Property nom() As String
            Get
                Return _nom
            End Get
            Set(ByVal value As String)
                _nom = value
            End Set
        End Property
 
        Private _prenom As String
        Property prenom() As String
            Get
                Return _prenom
            End Get
            Set(ByVal value As String)
                _prenom = value
            End Set
        End Property
 
    End Class
End Class

[jgard]

Bonjour,

Ce problème vient du fait que le Distinct utilise les comparateurs par défaut, et donc si tu travailles sur des objets et non des types valeurs, le equals va trouver 4 références distinctes. Par contre, si tu avais utilisé un type anonyme, cela aurait fonctionné car les méthodes Equals et GetHashCode sont redéfinies. Pour régler ton problème, il suffit donc de redéfinir ces 2 méthodes dans ta classeObjTest pour comparer chacune des valeurs.