В начало

Парсинг ФИО

 

Листинг. Модуль формы обработки

Функция ПарсФИО(вхФИО)

 

            стрФИО = СокрЛП(вхФИО);

            мФИО = СтрРазделить(стрФИО, " ",);

 

            Если СтрЧислоВхождений(стрФИО, " ") = 2 Тогда

                        Фамилия = мФИО[0];

                        Имя = мФИО[1];

                        Отчество = мФИО[2];

                       

            ИначеЕсли СтрЧислоВхождений(стрФИО, " ") = 1 Тогда          

                        Фамилия = мФИО[0];

                        Имя = мФИО[1];

        Отчество = "";

                       

            Иначе

                        Фамилия = мФИО[0];

                        Имя = "";

                        Отчество = "";

            КонецЕсли;

           

            ФИО = Новый Структура();

            ФИО.Вставить("Фамилия", Фамилия);

            ФИО.Вставить("Имя", Имя);

            ФИО.Вставить("Отчество", Отчество);

 

            Возврат ФИО;

 

КонецФункции

 

&НаКлиенте

Процедура ПарсингФио(Команда)

            вхФИО = "Иванов Иван Иванович ";

            ПарсФИО(вхФИО);

КонецПроцедуры