Как найти и удалить дубликаты из "List`а - VB

Узнай цену своей работы

Формулировка задачи:

Имеется Список. Сколько там элементов заранее неизвестно, сколько совпадающих элементов тоже заранее неизвестно.
Нужно найти и удалить совпадающие элементы.
Куда копать - что-то "заклинило"...
Заранее спасибо!

Решение задачи: «Как найти и удалить дубликаты из "List`а»

textual
Листинг программы
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    <font color="blue">Dim</font> i, s <font color="blue">As</font> Collection, p, v
    <font color="blue">Set</font> s = <font color="blue">New</font> Collection
    <font color="blue">With</font> <font color="blue">Me</font>.MyListbox
        <font color="00AA00">' поместить элементы списка в коллекцию</font>
        <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> .ListCount
            s.Add .ItemData(i), .ItemData(i)
        <font color="blue">Next</font>

        <font color="00AA00">' создать новый набор для RowSource списка</font>
        <font color="blue">For</font> <font color="blue">Each</font> p <font color="blue">In</font> s
            Debug.<font color="blue">Print</font> p
            v = v & <font color="teal">""</font><font color="teal">""</font> & p & <font color="teal">""</font><font color="teal">";"</font>
        <font color="blue">Next</font>
        .RowSource = Left(v, Len(v) - <font color="darkblue"><b>1</b></font>)
    <font color="blue">End</font> <font color="blue">With</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы