...преобразующей ФИО в Инициалы.

Функцыя ФИОВИнициалы(ФИО)
   Возврат Сред(ФИО, 1, 1) + ". " + Сред(ФИО, 2, 1) + ". " + Сред(ФИО, 3, 1) + ".";
КонецФункцыи

что должна возвращать функция, если ФИО = "Абасов Кулам-Али Гусейн-оглы" или "Тем-оглы Боурамали Эли Оглы"
PS А меж тем, это реально существующие люди

Нам-Чан-Гук Инна Александровна
Петров-Водкин Кузьма Сергеевич
:)

(1) О_о оно реально работать будет?

+(4) а хотя...  функция возвращает именно то, что указано в техзадании :D

(1) а поиск первых символов?

(1) Я такую сам бы написать мог легко))))))

(7) ну так не написал же

А никто не писал функцию с анализом Пола ФИО?
Задумка есть как всё это реализовать и сложного там ничего нет, но писать много и лень этой фигнёй страдать)

ПозПервогоПробела=Найти(Сотрудник.Наименование," ");
   ИмяОтчество=СокрЛП(Сред(Сотрудник.Наименование,ПозПервогоПробела));

(9) такая функция у г1с уже есть

(8) )))))
Я что нить посерьёзней хотел, что бы был вариант обработки сложных фамилий, пример в (2)

А то у нас лиц не совсем русской национальонсти полным полно, и у них такие извращённые фамилии. С ними проблем будет куча.

ЗЫ А за код спасибо конечно)

(9) Если отчество заканчивается на "а" или "кызы", то это женщина. Чего там много писать?

А так же бывают люди у которых нет отчества.

(10) одной Малла Хусейн Оглы Нария Мухидиновна хватит, чтобы трындец твой функции приключился :)

(14) Обычно такие функции нужны в некритичных случаях, например, чтобы программа написала "Уважаемая" а не "Уважаемый(ая)". Для нерусских непринципиально. :)

(15)+ или например ван Бастен

(13) Там много писать с обработкой сложных фамилий
Мухамед-Оглы например.

(16) большая часть из упомянутых - русские люди, я практически уверен в этом :)

для 7-ки у меня есть
для 8-ко - нет :)

(16) ))))

(0) кароче, вместо функции надо писать целую конфигурацию и дергать преобразование из нее через ком соединение...

(16) Там как раз критично. Тело договора о купле продажи. В теле договора полностью ФИО со склонениями, а в подписях на каждой странице Фамилия и инициалы.

(16) "Уваж." спасет отцов.. и матерей русской демократии :)

(16) Уважаемое?

(18) Оглы - мужчина, Кызы - женщина. Мухамед Оглы скорее всего это не фамилия, а отчество :)

Некоторые вещи лучше не делать за пользователя...

(26) там, кагбэ, как в паспорте написано, так оно и есть, даже не смотря на то, что Оглы - это мужчина, такие дела :)

вообще-то достаточно просто решается разложением в СЗ по пробелам, (кои надо преобразовать из двух-в-один),
а потом из СЗ брать первый символ, подставлять точку

ФИО = "Абасов Кулам-Али Гусейн-оглы";
   Сообщить(Лев(ФИО,1)+Сред(ФИО,Найти(ФИО," ")+1,1)+Сред(Сред(ФИО,Найти(ФИО," ")+1,СтрДлина(ФИО)-1),Найти(Сред(ФИО,Найти(ФИО," ")+1,СтрДлина(ФИО)-1)," ")+1,1));

АКГ

=)

Вот такое у меня работает:
Функция ПолучитьФИО(Автор)
   
   Автор = СтрЗаменить(Автор, "  "," ");
   СЗАвт = СоздатьОбъект("СписокЗначений");
   СЗАвт = глРазложить(Автор," ");
   Автор = СЗАвт.ПолучитьЗначение(1);
   Если СЗАвт.РазмерСписка()>1 Тогда
       Автор = Автор+" " + Врег(Лев(СЗАвт.ПолучитьЗначение(2),1)) +".";
   КонецЕсли;
   Если СЗАвт.РазмерСписка()>2 Тогда
       Автор = Автор+" " + Врег(Лев(СЗАвт.ПолучитьЗначение(3),1)) +".";
   КонецЕсли;
   Возврат Автор;
КонецФункции

А вот из семерки (очень старой)

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

(30) "ЧЕН Ю-СЮ АЛЕКСАНДР БОРИСОВИЧ" и "Прожогина Киреева Анна Валентиновна"
ФИО, раз нужны по отдельности, должны вводиться по отдельности. Это как с адресом - хочешь порядок, выбирай из классификатора

(33) а как тогда? ЧЮАБ И ПКАВ? тогда можно в цикле собирать пробелы)

(31) Это медленная функция. Из-за создания объекта.

(35) если объект в гм-экспорт - то будет быстро соображать.

(31) Вот
адаптировал под 8.2 (но и в 8.1 работать будет)

Функция ФИОВИнициалы(ФИО) Экспорт
     Инициалы = СтрЗаменить(ФИО, "  "," ");
   СЗАвт = Новый СписокЗначений;
   СЗАвт = РазложитьСтрокуВМассивПодстрок(Инициалы," ");
   Инициалы = СЗАвт.Получить(0);
   Если СЗАвт.Количество()>1 Тогда
       Инициалы = Инициалы + " " + Врег(Лев(СЗАвт.Получить(1),1)) +".";
   КонецЕсли;
   Если СЗАвт.Количество()>2 Тогда
       Инициалы = Инициалы + " " + Врег(Лев(СЗАвт.Получить(2),1)) +".";
   КонецЕсли;
   Возврат Инициалы;
КонецФункции


Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = ",") Экспорт
   
   МассивСтрок = Новый Массив();
   Если Разделитель = " " Тогда
       Стр = СокрЛП(Стр);
       Пока Истина Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = СокрЛ(Сред(Стр,Поз));
       КонецЦикла;
   Иначе
       ДлинаРазделителя = СтрДлина(Разделитель);
       Пока Истина Цикл
           Поз = Найти(Стр,Разделитель);
           Если Поз=0 Тогда
               МассивСтрок.Добавить(Стр);
               Возврат МассивСтрок;
           КонецЕсли;
           МассивСтрок.Добавить(Лев(Стр,Поз-1));
           Стр = Сред(Стр,Поз+ДлинаРазделителя);
       КонецЦикла;
   КонецЕсли;
   
КонецФункции // РазложитьСтрокуВМассивПодстрок

Кому надо берите.

ЗЫ А сложные фамилии буду обрабатывать методом накопления и сравнения, пирйдётся писать механизм в котором пользователи должны будут сами вводить ФИО и инициалы к ней а потом всё это анализировать.

более простое разложение строк на подстроки чем в (37)



Функция СтрокуВСписок(Стр1,Раздел)
   Стр=СтрЗаменить(Стр1,Раздел,Символы.ПС);
   ЧислоСтрок=СтрЧислоСтрок(Стр);
   СписокСтрок=Новый СписокЗначений;
   Если ЧислоСтрок>0 Тогда
       Для н=1 ПО ЧислоСтрок Цикл
           СписокСтрок.Добавить(СтрПолучитьСтроку(Стр,н));
       КонецЦикла;      
   КонецЕсли;
   Возврат СписокСтрок;
КонецФункции

Мне вот интересно, а сам он "Тем-оглы Боурамали Эли Оглы" знает как инициалы его записать? :)