1С 8.3 Получить строку с пробелами, используя заглавные буквы
Данные > Примеры кода 1С > 1С 8.3 Строка, текст, буквы
Перейти в раздел примеры кода 1С 8.3:
Функция возвращает строку с пробелами, используя заглавные буквы в 1С 8.3 (типовая):
Функция СтрокаСПробеламиИзСтиляТРегБезПробелов(СтрокаВСтилеТРегБезПробелов,
МассивАббревиатур, ДекапитализироватьПервоеСлово = Ложь)
ПервоеСлово = "";
ОстатокСлова = СтрокаВСтилеТРегБезПробелов;
Результат = Новый Массив;
ДекапитализироватьСлово = ДекапитализироватьПервоеСлово;
Пока ЗначениеЗаполнено(ОстатокСлова) Цикл
ПервоеСлово = ПолучитьПервоеСловоИзСтрокиВСтилеТРегБезПробелов(ОстатокСлова,
МассивАббревиатур, ДекапитализироватьСлово);
Если СтрДлина(ПервоеСлово) <= СтрДлина(ОстатокСлова) Тогда
ОстатокСлова = Сред(ОстатокСлова, СтрДлина(ПервоеСлово) + 1);
Иначе
ОстатокСлова = "";
КонецЕсли;
Результат.Добавить(ПервоеСлово);
ДекапитализироватьСлово = Истина;
КонецЦикла;
Возврат СтрСоединить(Результат, " ");
КонецФункции
МассивАббревиатур, ДекапитализироватьПервоеСлово = Ложь)
ПервоеСлово = "";
ОстатокСлова = СтрокаВСтилеТРегБезПробелов;
Результат = Новый Массив;
ДекапитализироватьСлово = ДекапитализироватьПервоеСлово;
Пока ЗначениеЗаполнено(ОстатокСлова) Цикл
ПервоеСлово = ПолучитьПервоеСловоИзСтрокиВСтилеТРегБезПробелов(ОстатокСлова,
МассивАббревиатур, ДекапитализироватьСлово);
Если СтрДлина(ПервоеСлово) <= СтрДлина(ОстатокСлова) Тогда
ОстатокСлова = Сред(ОстатокСлова, СтрДлина(ПервоеСлово) + 1);
Иначе
ОстатокСлова = "";
КонецЕсли;
Результат.Добавить(ПервоеСлово);
ДекапитализироватьСлово = Истина;
КонецЦикла;
Возврат СтрСоединить(Результат, " ");
КонецФункции
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник