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