Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
Вернуться   HPC / Кодинг / .NET / VB.NET
   
  Страница 1
  , 10:24   #1
DWA
Местный
 
Аватар для DWA
 
Регистрация: 25.02.2010
Сообщений: 417

Репутация: 82 / 1
По умолчанию Удаление дубликатов

Простенькая функция для удаления дубликатов строк, немного кривая

source:
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
source:
Dim txt As String = ""

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

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

'На выходе 123
Console.WriteLine(txt)
 
Пользователь вне форума    
Наши Спонсоры
  , 10:32   #2
Продвинутый
 
Аватар для Yorvet
 
Локация: Коррибан
Регистрация: 19.08.2011
Сообщений: 2,330

Репутация: 103 / 3
По умолчанию

О, спасибо. Какраз искал подобный код.
__________________
Взлом почты и соц.сетей на заказ: https://hpc.name/showthread.php?p=427327#post427327
Ести ты читаешь эту надпись, значит ты читаешь эту надпись. И не делай такой удивлённый вид!
Пользователь вне форума    
 

 

Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.