|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2010, 07:48 | #1 |
Новичок
Джуниор
Регистрация: 06.04.2009
Сообщений: 2
|
удалить дубли в tstringlist, и удалить по списку
всем привет, сразу к делу а то оч надо
вот столкнулся стакой проблемой: есть tstringlist в нем список такой: http://site1.ru/test/1.php http://site1.ru/test/12313123.php http://site1.ru/test/6t5463453565363.php http://site3333.ru/main.php http://site3333.ru/glvaaaaaaaaaa.php тоесть список сайтов и есть одинаковые домены... тоесть мне надо удалить дубли как то надо брать первый пункт: http://site1.ru/test/1.php и искать по его моену дубли и удалять и потом со списком что осался продолжаить удалять дубли для каждого домена как мне такое провернуть ? |
17.01.2010, 10:07 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
нужно написать функцию выделения Домена из вашей строки.
а потом уже банальщина: если порядок неважен, то отсортировать список (TS.Sort), идти в цикле по записям, сравнивая функцию получения домена от текущей записи с функцией получения домена от следущей записи. Если совпадают - следующую строчку удалять. Если порядок важен и сортировать нельзя, то алгоритм чуть-чуть другой: для каждой записи в цикле ищем совпадение домена среди оставшихся до конца списка записей (т.е. от записи i+1 до последней), если есть совпадаения домена - найденные удаляем. всё. Что у Вас вызывает затруднения? |
17.01.2010, 10:20 | #3 |
Новичок
Джуниор
Регистрация: 06.04.2009
Сообщений: 2
|
ок спасибо, решил просто не наркаманить и сделал проверку по списку при добавлении
спасибо за ответ |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удалить пустые строки из TStringList | apromix | Общие вопросы Delphi | 5 | 14.09.2016 12:14 |
удалить DrWEB | Cantana | Свободное общение | 10 | 29.04.2009 14:10 |
Не могу удалить | Detka | Свободное общение | 4 | 22.08.2008 23:19 |
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить | Alar | Общие вопросы Delphi | 0 | 29.10.2006 21:36 |