1С 7.x : Функция преобразования строки вида ДебиторкаПоКонтрагентам в Дебиторка по контрагентам

  Функция мРазнПреобразоватьСтрокуСБольшимиБуквами(ИсходнаяСтрока) Экспорт

    

    СтрокаВозврата = Сред(ИсходнаяСтрока, 1, 1);

    

    Для Сч = 2 По СтрДлина(ИсходнаяСтрока) цикл

        ПредСимвол = Сред(ИсходнаяСтрока, Сч - 1, 1);

        ТекСимвол = Сред(ИсходнаяСтрока, Сч, 1);

        СледСимвол = Сред(ИсходнаяСтрока, Сч + 1, 1);

        

        Если ВРЕГ(ТекСимвол) = ТекСимвол тогда 

            Если ВРЕГ(ПредСимвол) <> ПредСимвол тогда 

                СтрокаВозврата = СтрокаВозврата + " ";

                Если ВРЕГ(СледСимвол) <> СледСимвол тогда

                    ТекСимвол = НРЕГ(ТекСимвол);

                КонецЕсли;

            КонецЕсли;

        КонецЕсли;

        

        СтрокаВозврата = СтрокаВозврата + ТекСимвол;

        

    КонецЦикла;

    

    Возврат СтрокаВозврата;

    

КонецФункции // мРазнПреобразоватьСтрокуСБольшимиБуквами()

 

Список=новый СписокЗначений;

Для н=КодСимвола("А") По КодСимвола("Я") Цикл

    Список.Добавить(Символ(н));

КонецЦикла;

Значение="ДебиторкаПоКонтрагентам";

Результат="";

Для н=1 По СтрДлина(Значение) Цикл

    Сим=Сред(Значение,н,1);

    Если Список.НайтиПоЗначению(Сим) <> Неопределено Тогда

        Сим=" "+Сим; 

    КонецЕсли;            

    Результат=Результат+Сим;

КонецЦикла;

Сообщить(Результат);