Главная страницаОбратная связьКарта сайта

Удаляются повторяющиеся строки в массиве



Sub Remove_Duplicates(arr() As String)
Dim i As Long
Dim RawData As String
Dim DataValues As New Collection
On Error Resume Next
' это вставлено для игнорирования ошибки 457 - Duplicate key
For i = LBound(arr) To UBound(arr)
RawData = arr(i)
DataValues.Add RawData, RawData
' Если Run-time Error 457 случилась, то повторяющееся значение игнорируется
Next
On Error GoTo 0
' Сохранение в List Box
' (свойство Sorted выставлено True)
lstSortedData.Clear
For Each DataValue In DataValues
lstSortedData.AddItem DataValue
Next
End Sub

Private Sub Form_Load()
Dim a(10) As String, i As Integer
For i = 0 To 10: a(i) = i: Next
Remove_Duplicates a
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Удаляются повторяющиеся строки в массиве", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info