Удаление одинаковых значений с массива.

[SaLoKiN]

Во что накалякал:

Set regs_sn = CreateObject("Scripting.Dictionary" )
For i = 1 To UBound(regs_sp)
If regs_sn.Exists(regs_sp(i)) Then regs_sn.Item(regs_sp(i)) = regs_sn.Item(regs_sp(i)) & "; " & regs_sp(i) Else regs_sn.Add regs_sp(i), regs_sp(i)
Next
regs_sn - новая пустая переменная
regs_sp - откуда дёргаю данные, массив

тока как вывести теперь значения? ну типо MsgBox (Cstr(regs_sn.count(1)), так выведет?

эт ваще не та степь =))
тут будет первый столбец уникальные значения,а второй склейка всех повторов =) в эту сторону больше не смотрим

Предлагаю все-таки вариант с двумя циклами, какие значения будет содержать ваш массив?

[Hugo121]

Почему не смотрим? Просто загоняем всё в словарь, затем возвращаем ключи. Всё.

[Hugo121]

Sub tt()
    regs_sp = Array("a", "b", "a", "c")
    With CreateObject("Scripting.Dictionary")
        For i = 0 To UBound(regs_sp)
            .Item(regs_sp(i)) = 0&
        Next
        regs_sp = .keys
    End With
End Sub

[RTFM]

Сообщение от SaLoKiN

эт ваще не та степь =))
тут будет первый столбец уникальные значения,а второй склейка всех повторов =) в эту сторону больше не смотрим

Предлагаю все-таки вариант с двумя циклами, какие значения будет содержать ваш массив?

Текст содержит массив

[RTFM]

Сообщение от Hugo121

Sub tt()
    regs_sp = Array("a", "b", "a", "c")
    With CreateObject("Scripting.Dictionary")
        For i = 0 To UBound(regs_sp)
            .Item(regs_sp(i)) = 0&
        Next
        regs_sp = .keys
    End With
End Sub

Hugo121 Спасибо огромное тебе за готовый код! Все работает как надо! И SaLoKiN Спасибо, подсказал куда шагать , просто не тру кодер, всякие хитрости не знаю и функции, учусь кароче=)

[Hugo121]

Ещё можно использовать коллекцию с ключами - но там нужно пропускать ошибки, что как-то некомильфо, и выводить собранное в массив приходится в цикле.
Но если возможно не перекладывать в массив, а использовать далее прямо эту коллекцию - то такой вариант будет даже побыстрее.

Sub tt()
    Dim col As New Collection

    regs_sp = Array("a", "b", "a", "c")
    On Error Resume Next
    For i = 0 To UBound(regs_sp)
        col.Add regs_sp(i), regs_sp(i)
    Next
End Sub

[RTFM]

Сообщение от Hugo121

Ещё можно использовать коллекцию с ключами - но там нужно пропускать ошибки, что как-то некомильфо, и выводить собранное в массив приходится в цикле.
Но если возможно не перекладывать в массив, а использовать далее прямо эту коллекцию - то такой вариант будет даже побыстрее.

Sub tt()
    Dim col As New Collection

    regs_sp = Array("a", "b", "a", "c")
    On Error Resume Next
    For i = 0 To UBound(regs_sp)
        col.Add regs_sp(i), regs_sp(i)
    Next
End Sub

Есть небольшой косячок, ну как сказать косячок, недоработка, у меня одинаковые значения удаляются, а пустые ячейки остаются=) как бы их удалить с массива? =) я мож конечно и докумекаю, но за неделю, ключи ети всякие %) Иии... тут мне сказали что тут происходит работа с типом - Varian, что не особо камильфо =(

[RTFM]

Сообщение от Hugo121

Ещё можно использовать коллекцию с ключами - но там нужно пропускать ошибки, что как-то некомильфо, и выводить собранное в массив приходится в цикле.
Но если возможно не перекладывать в массив, а использовать далее прямо эту коллекцию - то такой вариант будет даже побыстрее.

Sub tt()
    Dim col As New Collection

    regs_sp = Array("a", "b", "a", "c")
    On Error Resume Next
    For i = 0 To UBound(regs_sp)
        col.Add regs_sp(i), regs_sp(i)
    Next
End Sub

как понять не перекладывать в массив? я могу в прицнипе и в другой ложить, разницы нету, в цикле все так бы и вышло, если не компоновать

[Hugo121]

Ну так в этом последнем варианте нет перегрузки из коллекции в массив.
Зачем вообще массив? Собрали коллекцию - её и пользуйте:

Sub tt()
    Dim col As New Collection, i&

    regs_sp = Array("a", "b", "a", "c")
    
    On Error Resume Next
        For i = 0 To UBound(regs_sp)
        col.Add regs_sp(i), regs_sp(i)
    Next
    On Error GoTo 0
    
    For i = 1 To col.Count
        MsgBox col(i)
    Next
End Sub

[RTFM]

А вот тут начинается некоторая запара, дело в том что не могу объявить "Dim col As New Collection", нету такого =( в списке классы софтины и формы, и при проверке ругаецо что не правильно объявлена переменная.