Removing Empty Items in a listbox

[DangerousNiNjA]

does anyone know how to remove empty items in a listbox? here's an example of what is in my listbox...

#1
#2
(EMPTY SPACE)
#3
#4
(EMPTY SPACE)
#5

i want to remove those empty space, can someone help?

[DiGiTaIErRoR]

Hmm..

Probably would have to loop it and check per item index and check:

If Not Len(Trim(List1.List(Index))) Then ... 'fast compare, no string compare(string comp = slower)

Then you use RemoveItem(Index).

[DangerousNiNjA]

thanks, works perfectly. i just didnt know how to check if an item was empty

[DangerousNiNjA]

nevermind, i thought i had it working, but i didnt. here's what i have so far.

Dim strCompare As String
Dim intCompare As Integer
For i = 0 To List1.ListCount - 1
strCompare = List1.List(i)
intCompare = Len(Trim(strCompare))
If intCompare = 0 Then 'if zero, it will remove it
list1.removeitem(i)
End If
Next i

i got a run time error 5

[DiGiTaIErRoR]

On what line?

[Spajeoly]

For i = 0 To List1.ListCount -1
   If list1(i) = "" Or List1(i) = " " Then List1.RemoveItem i
Next i

I think that works...

[DangerousNiNjA]

it highlights this line: List1.RemoveItem (i)


and Spajeoly, thanks for the help, but i get the same error


i think it's because when you remove an item from a listbox, the number of item changes. "for i = 0 to list1.listcount -1" counts the listbox at the beginning, but when you remove an item, the number of items changes. but i still dont know how to fix it...

[BodwadUK]

change

If list1(i) = "" Or List1(i) = " " Then List1.RemoveItem i

to

[Highlight=VB]
If trim(list1(i)) = "" Then List1.RemoveItem i
[Highlight=VB]

That prevents any number of spaces being entered

Do until I > list1.listcount -1
 
       'If deleted dont add 1
 
'        If not deleted add 1 to I
Loop

[si_the_geek]

the easiest way to solve it is to just go the other way through the list (start at the end and work towards the start)

Dim strCompare As String
Dim intCompare As Integer
For i = [b]List1.ListCount - 1 To 0 [i]Step -1[/i][/b]
  strCompare = List1.List(i)
  intCompare = Len(Trim(strCompare))
  If intCompare = 0 Then 'if zero, it will remove it
    list1.removeitem(i)
  End If
Next i

[DangerousNiNjA]

thanks everyone, works perfect

[cobraide]

Private Sub Command1_Click()
'''''''''' simple line to remove found item add text1.text to search
Dim i
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Text1.Text) Then
List1.RemoveItem (i)
End If
Next i
End Sub

Private Sub Command2_Click()
'''''''''''''''''''''''''''''' use this to remove blank emty lines after it removed item
Dim i
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Text1.Text) Then
List1.RemoveItem (i)
End If
Next i
    Dim strCompare As String
    Dim intCompare As Integer
    For i = List1.ListCount - 1 To 0 Step -1
      strCompare = List1.List(i)
      intCompare = Len(Trim(strCompare))
      If intCompare = 0 Then 'if zero, it will remove it
        List1.RemoveItem (i)
      End If
    Next i

End Sub

Private Sub Form_Load()
List1.AddItem "holla"
List1.AddItem "glue"
List1.AddItem "aggass"
List1.AddItem "smile"
End Sub

add text1.text and list1

text1.text is to search and remove

[Steve R Jones]

cobraide - Please note that this thread is TEN YEARS OLD and that a solution was already found.