Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Артем Донцов -

Visual Basic .NET - Строки

Все примеры / Строки

Удаление дубликатов

Автор: Артем Донцов | добавлено: 01.03.2012, 17:26 | просмотров: 2405 (1+) | комментариев: 0 | рейтинг: *x0
Простенькая функция для удаления дубликатов строк, немного кривая :)

Инструкции

Dim txt As String = ""

'Создаем текст с дубликатами :D
For i = 0 To 10
txt &= "123" & vbNewLine
Next

'Очищаем от повторов
txt = RemoveDuplicates(txt)

'На выходе 123
Console.WriteLine(txt)

Код

  Public Function RemoveDuplicates(ByVal text As String) As String
    Dim Result As String = ""
    Dim noDupsArrList As New ArrayList()
    Dim items() As String = Split(text, vbNewLine)

    For i As Integer = 0 To items.Length - 1
      If Not noDupsArrList.Contains(items(i).Trim()) Then
        noDupsArrList.Add(items(i).Trim())
      End If
    Next

    Dim uniqueItems As String() = New String(noDupsArrList.Count - 1) {}
    noDupsArrList.CopyTo(uniqueItems)
    For i = 0 To uniqueItems.Count - 1
      Result &= uniqueItems(i) & vbNewLine
    Next

    Return Result.Trim
  End Function
Об авторе

Артем Донцов

Нет информации об авторе...

См. также:
Профиль автора
Артем Донцов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики