Примеры кода для 7 версии, но будут работать и в 8-ой
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Функция мРазнПреобразоватьСтрокуСБольшимиБуквами(ИсходнаяСтрока) Экспорт СтрокаВозврата = Сред(ИсходнаяСтрока, 1, 1); Для Сч = 2 По СтрДлина(ИсходнаяСтрока) цикл ПредСимвол = Сред(ИсходнаяСтрока, Сч - 1, 1); ТекСимвол = Сред(ИсходнаяСтрока, Сч, 1); СледСимвол = Сред(ИсходнаяСтрока, Сч + 1, 1); Если ВРЕГ(ТекСимвол) = ТекСимвол тогда Если ВРЕГ(ПредСимвол) <> ПредСимвол тогда СтрокаВозврата = СтрокаВозврата + " "; Если ВРЕГ(СледСимвол) <> СледСимвол тогда ТекСимвол = НРЕГ(ТекСимвол); КонецЕсли; КонецЕсли; КонецЕсли; СтрокаВозврата = СтрокаВозврата + ТекСимвол; КонецЦикла; Возврат СтрокаВозврата; КонецФункции // мРазнПреобразоватьСтрокуСБольшимиБуквами() |
А таким кодом, просто перед большой буквой выставляется пробел:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Список=новый СписокЗначений; Для н=КодСимвола("А") По КодСимвола("Я") Цикл Список.Добавить(Символ(н)); КонецЦикла; Значение="ДебиторкаПоКонтрагентам"; Результат=""; Для н=1 По СтрДлина(Значение) Цикл Сим=Сред(Значение,н,1); Если Список.НайтиПоЗначению(Сим) <> Неопределено Тогда Сим=" "+Сим; КонецЕсли; Результат=Результат+Сим; КонецЦикла; Сообщить(Результат); |
About the Author
