Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 1, 1997

Use a Collection to Filter out Duplicate Values

This code illustrates how to use a Collection to automatically generate a unique set of values from a set of data containing duplicates. In this example, scan a string array and sort all unique items using a list-box control:
 
Sub Remove_Duplicates(arr() As String)
        Dim i As Long
        Dim RawData As String
        Dim DataValues As New Collection

        On Error Resume Next
        ' Specifically to ignore run-time 
        ' error 457 - Duplicate key
        For i = LBound(arr) To UBound(arr)
                RawData = arr(i)
                DataValues.Add RawData, RawData
                ' If Run-time error 457 occurs, 
                ' Duplicate key is ignored
        Next 
        On Error GoTo 0

        ' Store in List Box 
        ' (with Sorted property set to True)
        lstSortedData.Clear
        For Each DataValue In DataValues
                lstSortedData.AddItem DataValue
        Next
End Sub
J.G. Hussey
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date