имееться текст в нем иногда встречаються разрывы которые дляться несколько строк и также есть нужные пробелы в тексте которые удалять ненадо, пытался убирать пробелами блоками мол если пробел значительно длинный его удаляем ТекстСтатьи = СтрЗаменить(ТекстСтатьи,"                                                ",""); но результата нет пробелы как были так и остались, вопрос как убрать большие пробелы?

может это не пробел ?

ХЗ, я писал рекурсивную функцию. Типа Пока Найти (ТвояСтрока, "  ") > 0 Цикл СтрЗаменить(ТвояСтрока, "  ", " ").

СТрЗаменить 2 пробела на 1 в цикле несколько раз

ДваПРобела = "  ";
ОдинПробел = " ";

ПозицияДвухПробелов = Найти(Стр, ДваПробела);

Пока ПозицияДвухПробелов  > 0 Цилк
  Стр = Лев(Стр, ПозицияДвухПробелов ) + СокрЛ(Сред(Стр, ПозицияДвухПробелов +1 ));    
  ПозицияДвухПробелов = Найти(Стр, ДваПробела);
КонецЦикла;

(0) в типовых есть РазложитьСтрокуВМассивПодстрок

регулярные выражения спасут отца русской демократии

ТвояСтрока = СтрЗаменить(ТвояСтрока, "   ", " ");    //<= три пробела
ТвояСтрока = СтрЗаменить(ТвояСтрока, "  ", " ");    //<= два пробела

// Функция удаляет лишние пробелы из переданной строки
//
// Параметры
//  Стр  -    Строка - строковое значение для обработки
//
// Возвращаемое значение:
//   Строка   - обработанная строка
//
//
Функция СжатьСтроку(Знач Стр) Экспорт
   
   Если ТипЗнч(Стр) = Тип("Строка") Тогда
       Пока Найти(Стр, "  ") > 0 Цикл
           Стр = СтрЗаменить(Стр, "  ", " ");
       КонецЦикла;
       Стр = СокрЛП(Стр);
   КонецЕсли;
   
   Возврат Стр;
   
КонецФункции // СжатьСтроку()

все советчики не понимают, что там могут быть не только пробелы, но и табуляции и прочие "пробельные" символы

(8) может сначала лучше СокрЛП ?

я понял в чем дело он строки не удаляет а пробелы тоесть строки почти пусты, корректирую вопрос как удалеть ненужные переводы строки? тоесть тупо заменить Символы.ПС на ""  не полиучиться

Вот, что стоило этим долбакам из 1С в платформу регулярные выражения включить, что бы народ не извращался так.

(11) тупо заменить получится

(11) что то типа:

ТекстРезультат = "";
Для Сч=1 По ЧислоСтрок(ТвойТекст)
  ТекСтрока = СтрПолучитьСтроку(ТвойТекст,Сч);
  Если ПустаяСтрока(ТекСтрока) Тогда
     Продолжить;  
  КонецЕсли;
  ТекстРезультат = ТекстРезультат + ТекСтрока;
КонецЦикла;