_ Remove Dups From A List (NO MATTER HOW BIG THE LIST IS) _

				
'**************************************
' Name: _ Remove Dups From A List (NO MATTER HOW BIG THE LIST IS) _
' Description:This function will remove ALL duplicate entries from a list no matter what size it is. Most duplicate removal function can only handle up to 32,767 items. Please vote and let me know what you think. Thanks
' By: KRYO_11
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=51892&lngWId=1'for details.'**************************************

Public Sub RemoveDupsFromList(ListhWnd As Long, Optional FastLag As Boolean = False)
 On Error Resume Next
 
 Dim CurCount As Long
 Dim CurPos As Long
 Dim DupEntry As Long
 Dim sItemText As String * 255
 Dim FinalOutStr As String
 CurCount = SendMessageLong(ListhWnd, LB_GETCOUNT, 0&, 0&) 'num of items In list
 If CurCount = 0 Then Exit Sub 'if no items exit
 CurPos = 0 'set start point To zero
 While CurPos < CurCount 'begin Loop
 
 sItemText = "": FinalOutStr = "" 'clear temp strings
 
 'get text of current item
 Call SendMessageStr(ListhWnd, LB_GETTEXT, CurPos, ByVal sItemText)
 FinalOutStr = RTrim(sItemText)
 If Len(FinalOutStr) > 0 Then FinalOutStr = Left(FinalOutStr, Len(FinalOutStr) - 1)
 If FinalOutStr <> "" Then 'if empty move To Next item
'checking for dups
DupEntry = SendMessageByString&(ListhWnd, LB_FINDSTRINGEXACT, 0, FinalOutStr)
If DupEntry <> CurPos Then
Call SendMessage(ListhWnd, LB_DELETESTRING, CurPos, 0) 'remove dup
CurCount = CurCount - 1
Else
CurPos = CurPos + 1
End If
 Else
CurPos = CurPos + 1
 End If
 If FastLag = False Then DoEvents 'set To True For smaller lists
 Wend
End Sub