VB.NET의 List (Of String)에서 중복을 찾으십시오.

Question

중복 고객을 찾으려고 시도한 customers List (String 중) 목록이 있습니다.

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

'System.Collections.Generic.List`1 [선택 System.String]'

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

는하지만 다음과 같은 예외를 얻을.

목록에서 중복 된 것을 찾는 것이 올바른 방법입니까?

Answer 1

customers = customers.GroupBy(Function(m) m) _ 
       .Where(Function(g) g.Count() > 1) _ 
       .Select(Function(g) g.Key).ToList 

Answer 2

비주얼 베이직 버전 :

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