Здравствуйте подскажите пожалуйста,как убрать пробелы лишние в строке между цифрами и словами

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

Нужно убрать кучу лишних пробелов подряд :с

я хз как это в 8-ке, в 77 так:
Пока Найти(МояСтрока,"  ") <> 0 Тогда МояСтрока = СтрЗаменить(МояСтрока,"  "," "); КонецЦикла;

(2) СтрЗаменить("Произвольная Строка", " " , "")

в Найти и второй параметр в СтрЗаменить - в кавычках два пробела

(3) В 8-ке есть СтрРазделить, СтрСоединить

(4) это точно неправильно

(7) да правильнее с двумя пробелами,  СтрЗаменить("Произвольная Строка", "  " , "")

в (3) вместо "тогда" "цикл"

(9) ага, сорри, описался.. ;-)

(8) так тоже неправильно

(11) да вижу, третий параметр один пробел нужно оставить

(11) СтрЗаменить("Произвольная Строка", "  " , " "), так правильно ?

Символы.ПП вроде

(13) теперь оберни в цикл и получишь (3)
потому что пробелов может быть и 3 подряд и больше.

(12) так тоже будет работать неправильно (скорее всего, не думаю что в 8-ке изменили порядок обработки, скорее всего осталось как в 77): проведи тест
МояСтрока = "1здесьтрипробела2";
МояСтрока = СтрЗаменить(МояСтрока,"здесьдвапробела","здесьодинпробел");
Сообщить(СтрЧислоВхождений(МояСтрока,"здесьодинпробел");
.
сообщи результат ;-)

(15) опередун...

(15) стаж больше 5 лет у чела... ;-)
да.. восьмерочники - они такие....

Циклы...

СтрВход = "воладыо    лдоыаоы    12321";
МассивСтрок = СтрРазделить(СтрВход, " ", Ложь);
СтрВыход = СтрСоединить(МассивСтрок, " ");

(15) согласен, нужно делать в цикле.

Не знаю подойдет ли  когда то делал для поиска при загрузке из стороннего ПО данных


&НаСервере
Функция Транслит(Вход) Экспорт
    УдалитьСимволы = Вход;
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, """", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "(", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, ")", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "_", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "__", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "    ", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "  ", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, " ", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, ",", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, ".", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "}", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "{", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "[", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "]", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "-", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "--", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "---", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "`", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "~", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "*", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "^", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, ";", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, ":", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "&", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "?", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "%", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "$", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "#", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "№", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "@", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "!", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "+", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "-", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "=", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "/", "");    
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "|", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "||", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "\", "");
    УдалитьСимволы = СтрЗаменить(УдалитьСимволы, "*", "");
        
    Коды = Новый Соответствие;
    Коды.Вставить("ё","yo");
    Коды.Вставить("Ё","Yo");
    Нач = КодСимвола("А");
    Англ = "A" "B" "V" "G" "D" "E" "Zh" "Z" "I" "Y" "K" "L" "M" "N" "O" "P" "R" "S" "T" "U" "F" "Kh" "Ts" "Ch" "Sh" "Shch" "" "Y" "" "E" "Yu" "Ya" "a" "b" "v" "g" "d" "e" "zh" "z" "i" "y" "k" "l" "m" "n" "o" "p" "r" "s" "t" "u" "f" "kh" "ts" "ch" "sh" "shch" "" "y" "" "e" "yu" "ya";
    Для К = Нач по КодСимвола("я") Цикл
        Коды.Вставить(Символ(К), СтрПолучитьСтроку(Англ, К - Нач + 1));
    КонецЦикла;
    Выход = "";
    Для К=1 по СтрДлина(УдалитьСимволы) Цикл
        Бкв = Сред(УдалитьСимволы,К,1);
        Зн = Коды.Получить(Бкв);
        Выход = Выход + ?(Зн = Неопределено, Бкв, Зн);
    КонецЦикла;
    Возврат Выход;
КонецФункции

используйте УдалитьСимволы = СтрЗаменить(УдалитьСимволы, """", "");
я сырой в 1С но все - же так бы и поступил

какая разница сколько раз ты заюзаешь УдалитьСимволы = СтрЗаменить(УдалитьСимволы, """", ""); или в цикле?

все работает

СтрЗаменить("Произвольная      Строка    ", "  " , "")

Зачем циклы?

ну или же

можно думаю так что ле
А = Истина;
ПОка А = Истина Цикл
ЕстьЕщеПРобелы = СтрНайти("Блв "," ");

Если ЕстьЕщеПРобелы > 0 Тогда
УдалитьСимволы = СтрЗаменить(УдалитьСимволы, " ", "");
ИНаче
А = Ложь;
КонецЕсли;
КонецЦикла;

На ровном месте костыли выдумываете.

(24) что говорит у тебя тест из (16)..?

(23) А что делать с: СтрЗаменить("Произвольная Строка    ", "  " , "")

(23) а если будет в строке 10 символов пробела? одновременно

например вот так А = "Привет          мир";

что (23) сделает?

(29) все нормально сделает, если вторым параметром указывать один символ.

(27) Не так понял тему. Оказывается надо не все убирать, а лишние.

Тогда да, ваши костыли семерочные.

(30) не сделает нормально.
я, блин, клюшечник мохнатый, залез в свою 8-ую WMS, в табло проверил. Не сделает нормально.

(31)  ну так даже и все не уберет...
восьмерочник, блин, 12 лет стажа...
.
"как дети..."

Полез в отладчик да  (23) реально верно работает
пардоньте.

да к стати (31) я ту да же

(34) (19) проверь.

охренеть. 36 постов в обсуждении вопроса ответ на который был дан в 3 посте.

(37) Всегда так было. :)

(36) зачем? если работает - то работает (думаю что так), не  работает - к (3) отношения не имеет

Восьмерочники сегодня сделали мой день ;-)

Пошел в 1С написал такую ерунду

А = "Привет          мир";
    Б = "";
    МассивСтрок = СтрРазделить(А, " ", Ложь);
    Если МассивСтрок.Количество() > 0 Тогда
        Для Каждого ПОдстрока ИЗ МассивСтрок Цикл
            Б = Б+ПОдстрока+" ";
        КонецЦикла;
    КонецЕсли;
    //Рез "Б"=>Привет мир

потом заглянул на форум и увидел (19)

пошел снова в 1С да! работает )

МассивСтрок = СтрРазделить(А, " ", Ложь);
    СтрВыход = СтрСоединить(МассивСтрок, " ");
    //Рез "СтрВыход"=>Привет мир

(19) возьму на заметку!

еще учесть что вместо пробела запросто может стоять неразрывный пробел

(42) Приведи полный код, а то я неосилю.

надо на regexp переходить. там можно без циклов задачу решить

(44) Типа регекспы унутре, рядом с неонкой, без цикла работают?

RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Global = Истина;
RegExp.Pattern = "\s";//удаляем все нецифровые символы
ИтоговаяСтрока = RegExp.Replace(Стр, "");
Сообщить(ИтоговаяСтрока);

(46) Только комментарий я забыл подправить в своём коде. Для нецифровых символов команда будет:
RegExp.Pattern = "\D+";

Но я, кажется, невнимательно прочитал условие. Прошу прощения. Тогда лучше как в (19)

(43) МассивСтрок = СтрРазделить(А, Неразрывный пробел, Ложь);
    СтрВыход = СтрСоединить(МассивСтрок, " ");

(46) RegExp.Pattern = "\s+";
ИтоговаяСтрока = RegExp.Replace(Стр, " ");

Если уже трое написали без цикла СтрЗаменить("Произвольная      Строка    ", "  " , "") значит рабочее решение.

(51) миллиарды мух не могут ошибаться

(52) Это ты что ли на 330м обитаешь?

(53) Обитаю. А что?

(51) Со СтрЗаменить без цикла тоже можно:

СтрЗаменить(СтрЗаменить(СтрЗаменить(Строка, "  ", " $"), "$ ", ""), "$", "")

$ - какой-нибудь редкий символ, например вертикальная табуляция.