|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.07.2011, 12:21 | #1 |
Форумчанин
Регистрация: 08.06.2011
Сообщений: 693
|
Удаление дубликатов строк
Имеется текстовый файл F:\BAZA\ALL2.txt. Нужно убрать из него дубликаты и записать результаты в F:\BAZA\ALL3.txt.
Например файл ALL2.txt следующего содержимого: Код HTML:
a b c d a e b Код HTML:
a b c d e |
30.07.2011, 12:48 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
ИМХО взять любую СУБД, залить в нее содержимое файла, потом сделать отбор с группировкой и высадить в другой файл. Я лично такое на Фокспро предпочитаю делать, а не писать програмулины.
I'm learning to live...
|
30.07.2011, 13:40 | #3 |
Форумчанин
Регистрация: 08.06.2011
Сообщений: 693
|
|
30.07.2011, 14:06 | #4 |
Пользователь
Регистрация: 02.04.2011
Сообщений: 56
|
СУБД- Система Управления Базами Данных.
ИМХО- Имею Мнение Х..ен Оспоришь. |
30.07.2011, 14:29 | #5 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
30.07.2011, 15:04 | #6 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Вы создали тему в разделе Pascal Какой именно компилятор Паскаля имеется в виду? (FreePascal - это тоже Паскаль... ) denisbrain, попытка засчитана. НО!!! 1) кто Вам сказал, что решение на Delphi устроит? (Delphi и Pascal не всегда синонимы ) 2) зачем реализовавывать метод поиска (это я про вашу функцию SeahStringList) - есть уже готовая IndexOf() а если отсортировать методом .Sort - то можно использовать крайне эффективную процедуру поиска методом Find() 3) на будущее - категорически не рекомендую использовать для обработки TMemo - TMemo.Lines имеет тип TStringList - вот создавайте переменную (объект) данного класса и его используйте. Это В РАЗЫ (может даже на порядок) увеличивает быстродействие за счёт того, что Memo - визуальный компонент, а TStringList - нет! Последний раз редактировалось Serge_Bliznykov; 30.07.2011 в 15:10. |
|
30.07.2011, 15:35 | #7 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
жесть разнесли в пух и прах ) код писал 5 минут... ))) пробла у него там одна есть файл 15 Мб можно в StringList закачать?
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype Последний раз редактировалось denisbrain; 30.07.2011 в 15:38. |
|
30.07.2011, 17:04 | #8 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
вопрос в другом - автору топика вообще Delphi подходит или нет... я ему вопрос(ы) задал - молчит... вот, просто для пробы. на моём слабеньком и стареньком компьютере. 46 Мб файл записывается ~12 сек. читается в память ~1.7 сек. если кому-то желание проверить, вот код: Код:
Последний раз редактировалось Serge_Bliznykov; 30.07.2011 в 17:20. |
|
31.07.2011, 20:11 | #9 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
01.08.2011, 13:54 | #10 | |
Форумчанин
Регистрация: 08.06.2011
Сообщений: 693
|
Цитата:
Еще раз спасибо denisbrain за быструю и понятную помощь. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
удаление дубликатов в ListView | fate | Общие вопросы Delphi | 8 | 12.05.2011 16:51 |
Удаление дубликатов | Deltist | Microsoft Office Excel | 11 | 14.01.2011 16:01 |
поиск дубликатов файлов(имя, тип, размер). Вывод дубликатов на экран с отображением их пути | faraon1792 | Помощь студентам | 4 | 19.03.2010 23:46 |
Удаления дубликатов строк memo | AquaKlaster | Общие вопросы Delphi | 7 | 20.07.2009 23:46 |
удаление дубликатов и группировка строк | Serglen | Microsoft Office Excel | 2 | 30.07.2008 15:51 |