Прочее компьютерное

Как убрать повторяющиеся слова из текста?

Подскажите как убрать повторяющиеся слова из списка? Есть список слов в txt файле более 2000, некоторые из них повторяются как найти их и убрать?(все слова идут в столбик)
для 2003 экселя данные-расширенный фильтр-выделяете ваш список, копировать результат в другое место, галочку около уникальные записи
Aleksei Savin
Aleksei Savin
7 993
Лучший ответ
вы не указали в какой именно программе хотите навести порядок
Описанный ниже способ выполнялся в Excel.
перелопатить весь текст и автоматически убрать все повторы - это реально только с помощью VBA.
Если у вас такого текста N-ое кол-во, тогда макросы будут оправданы.
Если это единственный экземляр - тогда машина покажет повторы. а вам прийдется ручками удалять эти повторы.
Справа или слева от списка запишите и протяните такую формулу:
=ДЛСТР (A1)/СЧЁТЕСЛИ ($A$1:$A$17;"="&A1)


Все повторы отмечены одинаковым числом. Обратите внимание, что это не кол-во повторов, а только метка
(напр. "мыло" - всего одно в списке, а отмечено "4" , "мак" встречается 3 раза, а метка "1")
Выбираете одинаковые метки и удаляете повтор.
Машина сразу же пересчитает и выдаст новую метку



P.S.
только что отправил сообщение и меня осенила мысль, что в предложенном варианте могут быть "косяки"
Воспользуйтесь этой формулой:
=ДЛСТР (A1)/СЧЁТЕСЛИ ($A$1:$A$17;"="&A1)+КОДСИМВ (A1)
если бы их было ещё больше... .

можно пихнуть в таблицу БД и сделать distinct
Sergei Kurohkin
Sergei Kurohkin
37 403
Роман, не проще воспользоваться штатным инструментом "Найти - Заменить" в Excel/Word, предварительно пихнув туда скопированный .txt (лучше в Ворде) , сохранив результат как текст? Это если родная блокнотова заменялка не приносит должного удовлетворения киберпоклонникам Мазоха.
Dariga =)
Dariga =)
21 396
Открываешь в блокноте - правка- заменить
далее набираешь слово которое надо убрать .. а в поле на что заменить ничего не пишешь нажимаешь заменить или заменить все.
ачем же такой большой пример, хватило бы одного листа с несколькими строками!

А по делу так: Ctrl + H, Найти " руб." заменить (оставляете пусто), ок.

Далее по аналогии.
Редко но метко ...
для этого программа есть, которая может чистить тексты во всех расширениях файлов
http://studiowebd.ru/url/17
Можно в Exel весь текст разбить по столбикам и удалить дубликаты. Потом вернуть все в WORD.
Baiganin Tulemissov
Baiganin Tulemissov
142
Я делаю так.
Копируем в эксель.
Потом данные-сортировка.
В соседнем столбце формула =ЕСЛИ (А3=А2;"*";" ") появятся звёздочки везде где есть повторения.
Потом накладываем автофильтр на оба столбца и удаляем строки со звёздочками.
Остаётся, если нужно, вернуть очищенный список в текстовый редактор.
Кстати, в Ворде тоже есть сортировка.
То что нужно, даже больше, спасибо!