devxlogo

SortedListFromHashtables – Creating a sorted list that combines the keys from 2 hashtables

SortedListFromHashtables – Creating a sorted list that combines the keys from 2 hashtables

' Create a case-insensitive sorted list that combines the keys from two ' hashtables' Example:'    Dim slist As SortedList = SortedListFromHashtables(hashTable1, hashTable2)Function SortedListFromHashtables(ByVal ht1 As Hashtable, _    ByVal ht2 As Hashtable) As SortedList    ' Create a case-insensitive sorted list     Dim list As SortedList = _        Specialized.CollectionsUtil.CreateCaseInsensitiveSortedList()    ' initialize the list with all keys in first hashtable    For Each key As Object In ht1.Keys        list.Add(key, key)    Next    ' add keys from second hashtable    For Each key As Object In ht2.Keys        If Not ht1.Contains(key) Then            list.Add(key, key)        End If    Next    Return listEnd Function

devx-admin

Share the Post: