Могу порекомендовать использовать следующую функцию для разбивки текста на слова.
По моим тестам этот подход оказался более быстрым, чем использование СтрЗаменить.
Функция split(СимволыРазделители, строка, лимит = неопределено) экспорт
НоваяСтрока = Строка;
МассивСлов = новый Массив;
ИщемНачало = истина;
ТекСлово = "";
Для НомерСимволаСтроки=1 по СтрДлина(Строка) цикл
ТекСимвол = Сред(Строка,НомерСимволаСтроки,1);
если Найти(СимволыРазделители, ТекСимвол)=0 тогда
ТекСлово = ТекСлово + ТекСимвол;
ИщемНачало = ложь;
продолжить;
иначеесли ИщемНачало тогда
МассивСлов.Добавить("");
если МассивСлов.Количество()=лимит тогда
возврат МассивСлов;
конецесли;
продолжить;
иначе
МассивСлов.Добавить(ТекСлово);
если МассивСлов.Количество()=лимит тогда
возврат МассивСлов;
конецесли;
ТекСлово = "";
ИщемНачало = истина;
конецесли;
конеццикла;
если Не ИщемНачало тогда
МассивСлов.Добавить(ТекСлово);
конецесли;
возврат МассивСлов;
конецфункции
Показать