Trouver les doublons dans la Liste(De Chaîne) dans VB.NET

J'ai un customers List(of String) sur lequel je suis en train d'essayer de trouver le double des clients.

If Not customers.Count = customers.Distinct.ToList.Count Then
     customers = customers.Except(customers.Distinct.ToList)
End If

Mais j'obtiens l'exception suivante:

InvalidCastException
Unable to cast object of type '<ExceptIterator>d__99`1[System.String]' to type

'Système.Les Collections.Génériques.Liste`1[Système.Chaîne de]'.

Est-ce la bonne façon de trouver les doublons dans une liste?

InformationsquelleAutor Lenin Raj Rajasekaran | 2012-06-27
  1. 7
    customers = customers.GroupBy(Function(m) m) _
                 .Where(Function(g) g.Count() > 1) _
                 .Select(Function(g) g.Key).ToList
    • Merci, mais l'Exception ne semble pas en supprimant les doublons. Nombre de clients est de 0 après cette étape. (les clients.count = 581, des clients.Distinctes.ToList.count = 575)
    • oui, parce que c'est exactement ce que nous essayons de le faire (ce qui n'est pas aussi intelligent que ça, en fait). Regarde mon edit, peut-être ?
    • Je veux trouver les doublons.. Donc en soustrayant la liste et la liste distincte afin de lui donner.. Ne sais pas comment soustraire eux..
    • oh la droite. Édité, mais brûlé 😉
    InformationsquelleAutor Raphaël Althaus
  2. 7

    La version de visual basic:

    Dim duplicates = listOfItems.GroupBy(Function(i) i)_
                            .Where(Function(g) g.Count() > 1)_
                            .[Select](Function(g) g.Key)

    C#:

    var duplicates = customers.GroupBy(x => x)
                          .Where(g => g.Count() > 1)
                          .Select(g => g.Key);
    InformationsquelleAutor ilivewithian