OrderedDictionary

[Greg1997]

How to set CaseInsensitiveComparer for OrderedDictionary?

Thanks,
Greg

 

[JohnH]

[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] orddic [/SIZE][SIZE=2][COLOR=#0000ff]As [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] Specialized.OrderedDictionary([/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] CaseInsensitiveComparer)
[/SIZE]

 

[Greg1997]

CaseInsensitiveComparer

On this declaration I got the following exception:

Unable to cast object of type 'System.Collections.CaseInsensitiveComparer' to type 'System.Collections.IEqualityComparer'.

Thanks,
Greg

 

[JohnH]

Didn't try to compile to code above, se solution below.

 

[JohnH]

You have to create a new comparer class that implements IEqualityComparer where you use the CaseInsensitiveComparer for comparisons, so:

Public Class CIComparer
Implements IEqualityComparer
 
Dim myComparer As CaseInsensitiveComparer
 
Public Sub New()
myComparer = CaseInsensitiveComparer.DefaultInvariant
End Sub
 
Public Function Equals1(ByVal x As Object, ByVal y As Object) _
As Boolean Implements IEqualityComparer.Equals
If (myComparer.Compare(x, y) = 0) Then
Return True
Else
Return False
End If
End Function
 
Public Function GetHashCode1(ByVal obj As Object) _
As Integer Implements IEqualityComparer.GetHashCode
Return obj.ToString().ToLower().GetHashCode()
End Function
 
End Class

Then you put an instance of this class into the constructor of OrderedDictionary:

Dim orddic As New Specialized.OrderedDictionary(New CIComparer)

 

[Greg1997]

CaseInsensitiveComparer

Thanks alot!
I didn't expect so complicated solution in comparison with good old VB6:

Dim dict As New Scripting.Dictionary
dict.CompareMode = TextCompare

That's it!

Greg