HelpF.pro

Функция преобразовавает "Фамилия Имя Отчество" в "Фамилия И. О."

Код 1C v 8.х
 
Функция ФамилияИО(ПолнИмя) Экспорт
ПервПроб = Найти(ПолнИмя," ");
Если ПервПроб=0 Тогда
Возврат ПолнИмя;
Иначе
Фамилия = Лев(ПолнИмя,ПервПроб);
ИО = Сред(ПолнИмя,ПервПроб+1);
ИО = СокрЛ(ИО);
Имя = Лев(ИО,1)+".";
ВтПроб = Найти(ИО," ");
Если ВтПроб=0 Тогда
Возврат Фамилия+Имя;
Иначе
Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";
КонецЕсли;
КонецЕсли;
КонецФункции

//Пример обращения
Текст = "Андреева Алла Александровна";
Сообщить(ФамилияИО(Текст)); //Выведет - Андреева А. А.


Код 1C v 8.х
 Функция ИОФамилия(Сотрудник) Экспорт
Пока Найти(Сотрудник, " ") <> 0 Цикл
Сотрудник = СтрЗаменить(Сотрудник," "," ");
КонецЦикла;

Сотрудник = СтрЗаменить(Сотрудник," ",Символы.ПС);
Возврат Лев(СтрПолучитьСтроку(Сотрудник,2),1) + ". "+Лев(СтрПолучитьСтроку(Сотрудник,3),1) + ". "+СтрПолучитьСтроку(Сотрудник,1);
КонецФункции


Код 1C v 7.x
 Функция ФамилияИО(ПолнИмя) Экспорт
// позиция первого пробела
ПервПроб = Найти(ПолнИмя," ");
Если ПервПроб=0 Тогда
Возврат ПолнИмя;
Иначе
Фамилия = Лев(ПолнИмя,ПервПроб);
ИО = Сред(ПолнИмя,ПервПроб+1);
ИО = СокрЛ(ИО);
Имя = Лев(ИО,1)+".";
// позиция второго пробела
ВтПроб = Найти(ИО," ");
Если ВтПроб=0 Тогда
Возврат Фамилия+Имя;
Иначе
Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";
КонецЕсли;
КонецЕсли;
КонецФункции


Существует запрет на коноплю из-за политического и социального давления, его терпимость. Но можно семена конопли купить - в последнее время, ее декриминализацию стали продвигать ради для рекреационного и медицинского использования.
Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/275.html