Удаление дублирующихся записей в ListBox

[Malone32®]

Как удалить все одинаковые записи в листбоксе??

[Amed]

1) сортируем
2) если List1.List(i) = List1.List(i+1), то удаляем List1.List(i)

[Malone32®]

Спасибо

[Malone32®]

Только код пришлось переделать, т.к. не работал:

Dim i As Integer
On Error GoTo 10
For i = 0 To List1.ListCount
If List1.ItemData(i) = List1.ItemData(i + 1) Then
List1.RemoveItem List1.ItemData(i)
End If
Next
10:
End Sub

Так пашет нормально
Спасибо

[Amed]

А можно осведомиться, что именно не работало и какая была ошибка?

Я ведь кода не приводил, только общий алгоритм

[Ramzes]

Дык твой алгоритм и не работал и он его переделал в код

[tyomitch]

А можно осведомиться, что именно не работало и какая была ошибка?

Я ведь кода не приводил, только общий алгоритм

Ошибка была "индекс вне диапазона", потому что число итемов после удаления уменьшается.

Правильным решением было бы просто запустить цикл от List1.ListCount - 1 до 0 шагом -1 - тогда не нужно никакой замутной обработки ошибок. Ну, или сделать цикл While вместо For.

[Malone32®]

Если мой код пихнуть в процедуру нажатия кнопки, то с каждым нажатием список уменьшается до 1 строчки. Так что и мой тоже не работает нормально. Щаз попытаюсь последовать совету tyomitch.

[Malone32®]

Правильным решением было бы просто запустить цикл от List1.ListCount - 1 до 0 шагом -1 - тогда не нужно никакой замутной обработки ошибок. Ну, или сделать цикл While вместо For.[/quote]


Или я неправильно делаю, или мылсь твоя неверна, т.к. не получается что-то у меня.

[GSerg]

Всё правильно Тёмыч говорит...

Код: Выделить всё

dom i as long
for i=list1.listcount-1 to 1
  if list1.list(i)=list1.list(i-1) then list1.removeitem i
next

[Malone32®]

Всё правильно Тёмыч говорит...

Код: Выделить всё

dom i as long
for i=list1.listcount-1 to 1
  if list1.list(i)=list1.list(i-1) then list1.removeitem i
next

Да вроде нет, неправильно

[RayShade]

Ага. GSerg только Step -1 указать забыл

[GSerg]

Ага

[Malone32®]

Отлично, спасибо!