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

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

P.S.
только что отправил сообщение и меня осенила мысль, что в предложенном варианте могут быть "косяки"
Воспользуйтесь этой формулой:
=ДЛСТР (A1)/СЧЁТЕСЛИ ($A$1:$A$17;"="&A1)+КОДСИМВ (A1)
если бы их было ещё больше... .
можно пихнуть в таблицу БД и сделать distinct
можно пихнуть в таблицу БД и сделать distinct
Роман, не проще воспользоваться штатным инструментом "Найти - Заменить" в Excel/Word, предварительно пихнув туда скопированный .txt (лучше в Ворде) , сохранив результат как текст? Это если родная блокнотова заменялка не приносит должного удовлетворения киберпоклонникам Мазоха.
Открываешь в блокноте - правка- заменить
далее набираешь слово которое надо убрать .. а в поле на что заменить ничего не пишешь нажимаешь заменить или заменить все.
далее набираешь слово которое надо убрать .. а в поле на что заменить ничего не пишешь нажимаешь заменить или заменить все.
ачем же такой большой пример, хватило бы одного листа с несколькими строками!
А по делу так: Ctrl + H, Найти " руб." заменить (оставляете пусто), ок.
Далее по аналогии.
Редко но метко ...
А по делу так: Ctrl + H, Найти " руб." заменить (оставляете пусто), ок.
Далее по аналогии.
Редко но метко ...
для этого программа есть, которая может чистить тексты во всех расширениях файлов
http://studiowebd.ru/url/17

http://studiowebd.ru/url/17

Можно в Exel весь текст разбить по столбикам и удалить дубликаты. Потом вернуть все в WORD.
Я делаю так.
Копируем в эксель.
Потом данные-сортировка.
В соседнем столбце формула =ЕСЛИ (А3=А2;"*";" ") появятся звёздочки везде где есть повторения.
Потом накладываем автофильтр на оба столбца и удаляем строки со звёздочками.
Остаётся, если нужно, вернуть очищенный список в текстовый редактор.
Кстати, в Ворде тоже есть сортировка.
Копируем в эксель.
Потом данные-сортировка.
В соседнем столбце формула =ЕСЛИ (А3=А2;"*";" ") появятся звёздочки везде где есть повторения.
Потом накладываем автофильтр на оба столбца и удаляем строки со звёздочками.
Остаётся, если нужно, вернуть очищенный список в текстовый редактор.
Кстати, в Ворде тоже есть сортировка.
То что нужно, даже больше, спасибо!
Похожие вопросы
- помогите убрать банер 3381 с текстом м20261738235
- Помогите убрать баннер SMS c текстом 1022202 на номер 5121?? 1238396875 не действует. Очень буду благодарна
- Как убрать информер 3381 на текст 1830101756467
- помогите убрать баннер:3381 на текст 1860101102575
- Помогите убрать баннер 5121 с текстом 4612546 пришлите macsimus8009@mail.ru
- как в Worde убрать синее выделение текста (когда с интернета копируешь слова-ссылки)
- Как убрать баннер? Текст: M20261751427 Номер: 3381 Сайт: [ссылка появится после проверки модератором] Изложите весь путь действий, пожалуйста
- как убрать информер .текст 1011424 номер 5121.текст 4100656 номер 3381.
- баннер с текстом 4612502 на номер 5121. как убрать! помогите!!!
- Помогите убрать баннер с рабочего стола , смс с текстом 4956811159 на номер 5121, срочно!