Только писать свою функцию разложения?

ВотТакРазложитьЧтоли?

"Вот так разложить чтоли"

сначала найти [A-Z|А-Я]{2,}\
потом [A-Z|А-Я]{1,1}\

(0) Не припомню такой. В типовых есть РазложитьСтрокуВМассивПодстрок(), но она так не умеет.

(3) А без "регулярки"?

(5) а без регулярки скучно и уныло

(5) Только обходить в цикле по символам.

(7) Так там 10 минут надо, чтобы функцию написать. Строка-константа с символами, перед которыми ставим пробел, и потом в цикле СтрЗаменить(ИсходнаяСтрока, ТекущийСимвол, " " + ТекущийСимвол). В конце для полученной строки (СокрЛ), чтобы убрать добавленный в начале пробел.

(0) ну типа так

ИсходнаяСтрока = "ВасяЛох";
Буковки = "QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХФЫВАПРОЛДЖЭЯЧСМИТБЮ";
Для к = 1 По СтрДлина(Буковки) Цикл

   ИсходнаяСтрока = СтрЗаменить(ИсходнаяСтрока,Сред(Буковки,к,1)," "+Нрег(Сред(Буковки,к,1)));
КонецЦикла;

(9) Большое сенкс.

(9) так вроде у тебя перед каждой буковкой пробел добавится?

(+11) а понял, всё верно будет

(9) Как ты мог забыть Ё с таким ником?

(13) це же пример.

(9) а если Слава, и не лох, а КПСС?)

+(15)не прокатит

(15) а че, в пофигураторе прокатывает ? И давно ?

(17) прокатывает, конечно, всегда вроде было

(9)На самом деле так
ИсходнаяСтрока = "ВасяЛох";
Буковки="";
Для к = 1 По СтрДлина(ИсходнаяСтрока) Цикл
    Буква=Сред(ИсходнаяСтрока,к,1);
    Если Буква=Врег(Буква) и Найти(Буковки,Буква)=0 Тогда
        Буковки=Буковки+Буква;    
    КонецЕсли;
КонецЦикла;
    
Для к = 1 По СтрДлина(Буковки) Цикл
   ИсходнаяСтрока = СтрЗаменить(ИсходнаяСтрока,Сред(Буковки,к,1)," "+Нрег(Сред(Буковки,к,1)));
КонецЦикла;
Сообщить(ИсходнаяСтрока);

(18) Ну, тогда только перебором символов, по условию, что ежели только одиночная заглавная - втыкать пробел

точнее, перед одной заглавной пробел, если 2 и более, то только перед первой.

Пройтись и ставить пробел, если слева маленькая буква, а справа заглавная.

ИсходнаяСтрока = "в стиле конфигуратора";
РедактируемаяСтрока = СтрЗаменить(ИсходнаяСтрока," ",Символы.ПС);

РезультСтрока = "";

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

РезультСтрока = СокрЛП(РезультСтрока);

(23) зачем так сложно?
СтрЗаменить(ТРег("в стиле конфигуратора"), " ", "")

(22) Да, это будет верно