Доброго дня. Артикул номенклатуры имеет кучу пробелов. Сделал отбор обработкой, вижу эти объекты, а какое выражение дописать чтоб удалить лишние пробелы? Артикулы типа такого - АА 01_____(где_ пробел)

СокрЛП()

СокрЛП(Объект.Артикул);
Объект.Записать();

Так то обработку по поиску пробелов сложнее написать

Сделал проще. Выгрузил в эксель, наити" " с заменой на ""(пустое значение) и загрузил обработкои-загрузка с табличных данных.

(4) с таким подходом у тебя и пробел между АА и 01 тоже пропал

(5) Зато появился пробел в трудовой книжке )

Марафет номенклатуры в 1С - порядок в справочнике

https://subsystems.ru/solutions/1c_excel/marafet_nomenklatury_kompleks_obrabotok_po_navedeniyu_poryadka_v_spravochnike_ut10_ut11/

позволяет обработать как угодно номенклатуру добавляя любые алгоритмы.

(7) реклама на форуме платная.

(8) У него денег нет

Ок пишу бесплатно


Наименование = СтрЗаменить(Наименование,"  ","");

Наименование = СтрЗаменить(Наименование,"  "," ");

(10) Жестькакая

Наименование = СокрЛП(СтрЗаменить(Наименование,"  "," "));

(13) Коллега, а Вы программировать умеете?

(0) Если уж кодить - внешнюю обработку лучше нацарапать с нуля простенькую. Хоть отладить можно если что. А Выполнить("...") внутри этой групповой обработки или еще чего-то - отвратительно.

Открою серкет... таам есть уже встроенная обработка.
Групповое изменение реквизитов

(13) Я не знаю как в этом хитровывернутом снеговике, но в клюшках конструкция СтрЗаменить(Наименование,"  "," ") не приведет к полной замене двойных пробелов на одинарный.

(16) +1 Можно выполнить любой произвольный алгоритм.

(17) этот вопрос уже тысячу раз задавался, в гугла километры готовых вариантов.
Я просто дал самый простой)) но зато бесплатный!)

Я ж и не обещал что удалю все)
Но вполне себе достаточно если их всего два.

лана дарю

НаименованиеПосле = Наименование;
Пока Найти(НаименованиеПосле , "  ") > 0 Цикл
  НаименованиеПосле = СтрЗаменить(НаименованиеПосле ,"  "," ");
КонецЦикла;
Наименование = НаименованиеПосле;

(21) Мань , два пробела не значит системный таб ))))))))))

Опередил, я тут как раз тест набрасывал...
в клюшках:

    //строка 10 пробелов
    ОдинПробел = " "; ДваПробела = "  "; СтрокаПробелов = "          ";
    
    Пока Найти(СтрокаПробелов,ДваПробела)>0 Цикл
        Сообщить("Пробелов в строке: "+СтрЧислоВхождений(СтрокаПробелов,ОдинПробел));
        СтрокаПробелов = СтрЗаменить(СтрокаПробелов,ДваПробела,ОдинПробел)
    КонецЦикла;

Пробелов в строке: 10
Пробелов в строке: 5
Пробелов в строке: 3
Пробелов в строке: 2

(23) Злоп , ну ты ж фанат , все досконально )))) , так шо ничо

еще осталось внесистемные символы выкинуть )

(24) я не фанат, но, как говорится "будь пердельно бздителен!"

(26) Злоп , скока за тобой смотрю , не перестаю удивляться )))) широкой души человек

(25) ну, у меня на этот случай простенькая функция
глНормализоватьСтроку(ИсходнаяСтрока,НаборКривыхСимволов,СимволНормализатор)


Функция глНормализоватьСтроку(Знач Источник, Знач НормальныйШаблон="\/:*?""<>| ", Знач Нормализатор="#") Экспорт
    Если Найти(НормальныйШаблон,Нормализатор)<>0 Тогда Нормализатор = ""; КонецЕсли;
    Источник = СокрЛП(Источник);
    Дл = СтрДлина(НормальныйШаблон); Для ы=1 по Дл Цикл Источник = СтрЗаменить(Источник,Сред(НормальныйШаблон,ы,1),Нормализатор); КонецЦикла;
    Возврат Источник;
КонецФункции //глНормализоватьСтроку()

Ща погодите!!
я вам кое  что сделаю!

Блин фаайлообменниик подскаажите по обмену обработками

не Мань , мене что то смущает , некая тенденция ы сообщениях , тождественная и реликтовое смещение к корню из минус одного )

а ладна. все равно у Злопа восьмерки нет!

(32) ну ты загнул!

ты лучше в 8-ке прогони тест из (23)

слишком много кода

у Злопа 8-ка есть )))))))

(35) чё, стак оферфлоу? во что воьсмерка богомерзкая делает.. редуцирует по нехочу...

(5) (6) Искал с заменой 2 и более пробела. Если артикул А 01(1 пробел между), его не заменял. Так что однопробелные артикулы сохранились). Другое дело когда после 01 есть пробел.

(11) твоя поделка по этому принципу работает??? :)