Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations MintJulep on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Remove non-consecutive duplicates from combobox 1

Status
Not open for further replies.
zimGirl

zimGirl

Geotechnical
Joined
Jul 22, 2004
Messages
30
Location
CA
i know how to remove duplicates from consecutive list in a combobox.
rent
rent
rent
count
count
Code: 
Dim varI As Integer
Dim strTemp As String
Do While varI <= cmbCategory.ListCount
If varI = cmbCategory.ListCount Then
Exit Sub
End If
If strTemp = cmbCategory.List(varI) Then
cmbCategory.RemoveItem (varI)
intK = intK + 1
Else
strTemp = cmbCategory.List(varI)
varI = varI + 1

End If
Loop


How do you remove duplicates that are not consecutive?
rent
count
rent
rent
count
count
the above code only removes the two consecutive values
leaving
rent
count
rent
count
I want it to leave
rent
count
 
Sort by date Sort by votes
loaded from a .csv file.
File is about 195000 lines long and one column
from the file is used to fill combo box
 
Upvote 0 Downvote
Couple of things that you might want to consder. First, move the .csv file into a table from which you can remove the duplicates, or you might consider establishing an ADO connection to the .csv files and doing a SELECT DISTINCT.
 
Upvote 0 Downvote
I only have excel and it will not open the whole file, only a third of the file can be opened. I can not remove the duplicates from the file as they relate to other data and will be used later in other calculations. I am currently using AutoCAD VBA for this purpose, therefore can not use an ADO connection.
What is a SELECT DISTINCT? and how does it work? Form what I read it is not going to help me in doing the.
 
Upvote 0 Downvote
Can you post the actual code that you use to populate the combobox?
 
Upvote 0 Downvote
The code opens the text file and then fills an array. At each point it places an item into the combobox
Code: 
Private Sub cmdInput_Click()
On Error Resume Next
Dim blnError As Boolean
blnError = True
blnArrayFilled = False
varFileNum = FreeFile [COLOR=green] 'set as freefile so that program can set any file open as num[/color]
start_time = Timer
[COLOR=green]'Set a filter for opening files to open specific files only[/color]
dlgMain.Filter = "Text Files(*.CSV)|*.csv|"
'Data Files(*.DTA)|*.dta|Text Files (*.TXT)|*.txt"
dlgMain.ShowOpen             'show file open dialog box
If dlgMain.filename <> "" Then
    Open dlgMain.filename For Input As varFileNum
 If blnError <> False Then
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(dlgMain.filename)
    Set a = f.OpenAsTextStream(1)
   [COLOR=green] 'count the number of lines in the text file[/color]
    Do While a.AtEndOfStream <> True
    [COLOR=green]''place a line into a variable[/color]
        retstring = a.ReadLine
    [COLOR=green]''count that line[/color]
        intI = intI + 1
    Loop
   [COLOR=green]''count the number of commas[/color]
       [COLOR=green] ''PROBLEM: Skips consecutive commas therefore is two down on number of columns[/color]
    Call CountColumns
    [COLOR=green]'reset the text stream[/color]
    Set a = f.OpenAsTextStream(1)
   [COLOR=green] 'redefine the array[/color]
    ReDim TempArray(intI - 1, intColumnCount + 2)
    [COLOR=green]''loop through the text file one line at a time and place into the array[/color]
       I = 0
        Do While a.AtEndOfStream <> True
            retstring = a.ReadLine
            varText = Split(retstring, ",")
            For J = 0 To intColumnCount + 2
                varText = Split(retstring, ",")
                TempArray(I, J) = varText(J)
            Next J
           [COLOR=green]''fills the combo box here[/color]
            cmbPropType.AddItem TempArray(I, 9)
            I = I + 1
        Loop
   MsgBox ("Sucess")
Else
    Close #varFileNum
    Exit Sub
    End If
End If
dlgMain.filename = ""
blnArrayFilled = True
Close #varFileNum
 
    stop_time = Timer

    lblInput.Caption = Format$(stop_time - start_time, _
        "0.00") & " sec"
  End Sub
 
Upvote 0 Downvote
Inside the following loop, at the indicated location, you can check to see if the item has not already been loaded into the combobox.
Code: 
Do While a.AtEndOfStream <> True
   retstring = a.ReadLine
   varText = Split(retstring, ",")
   For J = 0 To intColumnCount + 2
      varText = Split(retstring, ",")
      TempArray(I, J) = varText(J)
   Next J
   ''fills the combo box here
[COLOR=blue]
   IsLoaded = False
   For J = 0 To cmbPropType.ListCount - 1
      If (cmbPropType.Column(0, J) = TempArray(I, 9)) Then
         IsLoaded = True
         Exit For
      End If
      If (IsLoaded = False) Then      
         cmbPropType.AddItem TempArray(I, 9)
      Endif
[/color]
   I = I + 1
Loop
 
Upvote 0 Downvote
thanks for the post CajunCenturion. This works perfect. Just one addition though:

Code: 
Do While a.AtEndOfStream <> True
   retstring = a.ReadLine
   varText = Split(retstring, ",")
   For J = 0 To intColumnCount + 2
      varText = Split(retstring, ",")
      TempArray(I, J) = varText(J)
   Next J
   ''fills the combo box here

   IsLoaded = False
   For J = 0 To cmbPropType.ListCount - 1
      If (cmbPropType.Column(0, J) = TempArray(I, 9)) Then
         IsLoaded = True
         Exit For
      End If
   [COLOR=blue]Next     ''Have to put a next here or it never gets into the loop[/color]
      If (IsLoaded = False) Then      
         cmbPropType.AddItem TempArray(I, 9)
      Endif

   I = I + 1
Loop
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Bheem369
  • Locked
  • Question Question
MACRO TO CREATE CLOSE SURFACE FROM STYLING SURFACE IN CATIA
Replies
2
Views
2K
Bheem369
Bheem369
kr7530
  • Locked
  • Question Question
Remove Text fro String
Replies
5
Views
531
BigInch
BigInch
tlemonds
  • Locked
  • Question Question
Extract coords from point set in NX and write to text/Excel
Replies
2
Views
1K
cowski
cowski
eroe
  • Locked
  • Question Question
Hiding Windows from task bar
Replies
4
Views
501
eroe
eroe
neoleachster
  • Locked
  • Question Question
Passing a variable from a form to a console...
Replies
1
Views
394
neoleachster
neoleachster

Part and Inventory Search

Sponsor

Back
Top