Есть строка вида
Слово1 Слово2  Слово3   Слово4
надо привестик виду:
Слово1 Слово2 Слово3 Слово4

СтрЗаменить(МояСтрока, "  ",Символ(32)); не срабатывает

Книга знаний: Преобразование числа в строку, разделитель групп разрядов

(0) Стало быть там не пробелы?

(2) как проверить?

(3) пробеги циклом по КодСимвола(<Строка>, <Номер символа>)

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

(0) Там наверное что то типа Символы.НПП , а не пробел

(5) ПОка Найти(ТСтрока,"Двапробела") > 0 Цикл
     ТСтрока = СтрЗаменить(ТСтрока,"Двапробела","Одинпробел")

Меняй два пробела на один в цикле до тех пор, пока будет находиться в строке два пробела подряд :)

(7) Блин, опередил

(6) НПП - это неразрывный пробел введнный микрософтом - например в числительных где разряды разделены пробелами - а у него слова

(9) =)

(10) + чтобы часть числа не перенесли автоматом на другую строчку.

Если судить по условию, то как минимум 1 пробел между ними есть, можно сделать так, заменяем 1 пробел на символ ";" например:
СтрЗаменить(МояСтрока, " ",";"); " " - 1 пробел;
Получим список значений (или он через ","?) идем циклом по этому списку значений с функц. СокрЛП, и формированием новой строки... как-то так :)

(13) Хм. а не проще (7),(8) ?

(13) а где "двапробела" превратяться в ";;"?)

(14) спасибо сделал так (7)

(14) частный случай...
(15) да нужно немного подумать.. думайте :)

Как-то так:

RegExp=Новый COMОбъект("VBScript.RegExp");
RegExp.MultiLine=Истина;
RegExp.Global=Истина;
RegExp.IgnoreCase=Истина;
RegExp.Pattern="\s{2,}";
Текст=RegExp.Replace(Текст,"");

а как пропустить несколько слов?

(13)

Функция УбратьЛишниеПробелы(Наим)
   ТекСтр = СокрЛП(Наим);
   Поз = Найти(ТекСтр, "  ");
   Пока Поз > 0 Цикл
       ТекСтр = Лев(ТекСтр, Поз - 1) + " " + СокрЛП(Сред(ТекСтр, Поз));
       Поз = Найти(ТекСтр, "  ");
   КонецЦикла;
   Возврат ТекСтр;
КонецФункции

(вспомнил): на одном из обсуждений, автор после хх-надцатого поста сообшил что ему в числе "пробел" убрать нужно. Ему не нравилось что в отчет выводилось "1 234.56" вместо "1234.56" :)

Стр1 = СокрЛП(<Исходная строка>);

Кол  = ДлинаСтр(Стр1);
Кол1 = 0;

Если Кол = 0 Тогда
Возврат;
КонецЕсли;

Пока Кол <> Кол1 Цикл

Кол1 = Кол;
Стр1 = СтрЗаменить(Стр1, "  ", " ")
Кол = ДлинаСтр(Стр1);

КонецЦикла;