Удалить дубликаты из списка (из T) в VB.NET
Мне не удается удалить дубликаты из моего списка. Что я делаю не так?
Dim Contacts As New List(Of Person)
...
' remove duplicates '
Contacts = Contacts.Distinct(New PersonEqualityComparer).ToList
Мой компаратор равенства:
Public Class PersonEqualityComparer
Implements IEqualityComparer(Of Person)
Public Function Equals1(ByVal x As Person, ByVal y As Person) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of Person).Equals
Return String.Equals(x.EmailAddress, y.EmailAddress, StringComparison.CurrentCultureIgnoreCase) AndAlso _
String.Equals(x.GivenName, y.GivenName, StringComparison.CurrentCultureIgnoreCase) AndAlso _
String.Equals(x.Surname, y.Surname, StringComparison.CurrentCultureIgnoreCase)
End Function
Public Function GetHashCode1(ByVal obj As Person) As Integer Implements System.Collections.Generic.IEqualityComparer(Of Person).GetHashCode
Return obj.GetHashCode
End Function
End Class
2 ответа:
Необходимо реализовать
GetHashCode1
так, чтобы любые два одинаковых объекта имели одинаковый хэш-код.Если много неодинаковых объектов имеют один и тот же хэш-код, он будет работать намного медленнее, особенно для больших списков. Другими словами, Не меняйте его на
Return 0
.В вашем случае простейшая реализация будет выглядеть следующим образом:
Return StringComparer.CurrentCultureIgnoreCase.GetHashCode(obj.EmailAddress) _ Xor StringComparer.CurrentCultureIgnoreCase.GetHashCode(obj.GivenName) _ Xor StringComparer.CurrentCultureIgnoreCase.GetHashCode(obj.Surname)
Если вы хотите более надежную реализацию, смотрите этот ответ.
StringBuilder sb as New StringBuilder ...concatenate all strings... return StringComparer.CurrentCultureIgnoreCase.GetHashCode(sb.ToString())
Это, безусловно, медленнее, чем метод xor или прокатка собственной хэш-функции. Вы можете попробовать использовать это, однако, если у вас есть высокая частота столкновений из-за xoring.