We have entered a partnership with VBXtras to provide many development tools available for sale on our web site. For a limited time we are offering a FREE one year subscription for anyone who purchases any products through our web site. If you are currently shopping for some cool tools, check out http://www.codeoftheweek.com/catalog.html
This area is new and does not yet have all products online. If there is something particular you are looking for (and can't find it on our site), please let us know. We probably can get it for you at a great price!
If you are interested in advertising in COTW (our rates are VERY reasonable), please email us at email@example.com
The source code in this issue is designed for Visual Basic 4.0 16-bit and higher. It will probably work in VB3 with some minor changes (such as the removal of the vbNullString constant).
This issue introduces a subroutine that eliminates duplicate values in listboxes, variant arrays and string arrays. It provides a framework to expand the subroutine to use other with objects.
This routine works fastest when you have lots of duplicates in your objects. The approach used for listboxes is a little different than the approach used for arrays.
When removing duplicates from a listbox the routine starts at the beginning of the list and compares it with each element in the list (starting with the last element first). If it finds a duplicate it will remove that element and continue until all items have been checked. It will then move to the second element and repeat the process until it is completed.
When removing duplicates from arrays the routine starts at the beginning of the array and compares it with each element in the array. If it finds a duplicate it assigns that element the value vbNullString. It will continue this process until it is complete. Once it has removed all the duplicates it will then copy all items that are not vbNullString to a new array. When this process is complete it will copy the new array back into the original array.
Depending on your application you might need to change the value used when erasing the values in the arrays from vbNullString to something else.
Public Sub RemoveDuplicates(vList As Variant)
vList will be returned with all unique values. The type of vList depends on how it is called.
Below shows several examples. There is one for each type RemoveDuplicates supports (ListBox, String(), Variant())
Dim x As Integer Dim v As Variant Dim sData() As String Randomize ' Test with a ListBox For x = 1 To 500 List1.AddItem "abc" & Int(Rnd * 200) Next RemoveDuplicates List1 ' Test with a Variant Array ReDim v(1 To 500) For x = 1 To 500 v(x) = "abc" & Int(Rnd * 200) Next RemoveDuplicates v ' Test with a String Array ReDim sData(1 To 500) For x = 1 To 500 sData(x) = "abc" & Int(Rnd * 200) Next RemoveDuplicates sData
To see the source code for this issue you must be a subscriber to Code of the Week. If you are a subscriber the source code is available at the following address: http://www.codeoftheweek.com/membersonly/bi/0025.html
That concludes this issue of COTW. We hope you find the source code useful in your development.
The below describes the ways you can supply us some feedback about COTW. We would like to see our members help mold COTW into the best Visual Basic source code resource available. But to do that we need your feedback about what you like and what you do not like about COTW.
If you have any suggestions for topics you would like to see covered or questions about this issue, please email them to firstname.lastname@example.org or use online feedback form at http://www.codeoftheweek.com/feedback.html.
If you have any source code you would like to submit for possible inclusion in COTW, please fill out our online submission form at http://www.codeoftheweek.com/submission.html.
Thank you for trying Code of the Week for Visual Basic.
Your free trial expires after you receive your fourth issue. If you want to continue to receive Code of the Week you can get 52 issues of COTW for only $19.95. This is a full year of Visual Basic source code and information to help with all your development. So don't wait, subscribe now! The quickest way to subscribe is to jump to our online order form at http://www.codeoftheweek.com/order.html