1с как сделать выделение одинаковых слов
Для выделения одинаковых слов в тексте на языке 1С можно воспользоваться следующим алгоритмом:
1. Разбить текст на отдельные слова.
2. Создать массив или коллекцию для хранения уникальных слов.
3. Пройтись по каждому слову из текста и проверить, есть ли оно уже в массиве уникальных слов.
4. Если слово уже есть в массиве, то добавить его в другой массив для повторяющихся слов.
5. После прохода по всем словам вывести список повторяющихся слов.
Пример кода на языке 1С:
```1C
Функция НайтиПовторяющиеСлова(текст)
УникальныеСлова = Новый Массив;
ПовторяющиеСлова = Новый Массив;
Слова = Разделить(текст, " ");
Для Каждого Слово Из Слова Цикл
Если Не УникальныеСлова.Найти(Слово) = Неопределено Тогда
УникальныеСлова.Добавить(Слово);
Иначе
ПовторяющиеСлова.Добавить(Слово);
КонецЕсли;
КонецЦикла;
Возврат ПовторяющиеСлова;
КонецФункции;
// Пример использования функции
Текст = "я люблю яблоки и яблоки любят меня";
ПовторяющиеСлова = НайтиПовторяющиеСлова(Текст);
Сообщить(ПовторяющиеСлова);
```
Этот код разбивает текст на слова, ищет повторяющиеся слова и выводит их список. Вы можете адаптировать этот код под свои нужды, добавив дополнительные проверки или функциональность.