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