Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

найти и удалить текст   Найти похожие ветки 

 
Dot   (2006-01-06 18:36) [0]

Приветствую вас, Мастера!
меня интересует алоритм, желательно код как можно провернуть следующую операцию.
Есть текстовый файл со словами, словарь так сказать где каждое слово отделено от другово #13 то есть просто на другой строке.
---------- к примеру
мама
папа
дом
лес
работа
--------------------
Так вот в этом файле встречаются повторяющиеся слова, причем как подряд по нескольку штук так и по одиночке.
Как бы удалить все копии повторяющихся слов, оставив одно?
Помогите пожалуйста.


 
Virgo_Style ©   (2006-01-06 18:53) [1]

можно ли менять порядок слов? Если да, то, видимо, можно использовать TStringList с Sorted = true и Duplicates = dupIgnore (сам не пробовал)


 
Gero ©   (2006-01-06 18:56) [2]

Считывать по обному и если TStringList.IndexOf > -1 то добавлять в StringList.


 
Virgo_Style ©   (2006-01-06 18:58) [3]

Gero ©   (06.01.06 18:56) [2]

позволю себе придраться по мелочи :-) Если > -1, то как раз таки не добавлять.


 
Gero ©   (2006-01-06 18:59) [4]

> Virgo_Style ©   (06.01.06 18:58)

Да, именно так.


 
Dot   (2006-01-06 19:08) [5]

А если без СтрингЛиста?


 
Virgo_Style ©   (2006-01-06 19:44) [6]

Dot   (06.01.06 19:08) [5]

...то завести массив, в который писать новое слово в том случае, если его там еще нету. Все точно так же, но вместо StringList с его методами - массив с самописными функциями. При обычном поиске будет гораздо медленнее, если ввести сортировку и т.д. - получится твой собственный StringList :-)


 
Johnmen ©   (2006-01-06 20:01) [7]

>каждое слово отделено от другово #13 то есть просто на другой строке.

Вообще-то на "другой строке" это #10


 
Gero ©   (2006-01-06 23:50) [8]

> Dot   (06.01.06 19:08)
> А если без СтрингЛиста?

Тогда пиши хэш.


 
ferr ©   (2006-01-07 00:01) [9]

а это уже совсем другая история... :)



Страницы: 1 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
1-1134721882
Alex_KV
2005-12-16 11:31
2006.01.22
Перевод заголовочного файла С


2-1136324641
Aleks
2006-01-04 00:44
2006.01.22
Управление другим приложением


2-1136670008
BiggieSmalls
2006-01-08 00:40
2006.01.22
Excel и StringGrid


2-1136536500
TBeginner
2006-01-06 11:35
2006.01.22
Замена текста в файлах каталога


5-1121829947
rainy_
2005-07-20 07:25
2006.01.22
Отображение составных частей компонента