![]() |
![]() ![]() v.5.2011.12.30 |
Будь хитрее всех, используй хитрые инструменты! |
|
Visual Basic .NET - СтрокиВсе примеры / СтрокиУдаление дубликатов
Автор: Артем Донцов | добавлено: 01.03.2012, 17:26 | просмотров: 2405 (1+) | комментариев: 0 | рейтинг:
Простенькая функция для удаления дубликатов строк, немного кривая :)
![]() Инструкции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
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|