Функция ПарсФИО(вхФИО)
стрФИО =
СокрЛП(вхФИО);
мФИО = СтрРазделить(стрФИО, "
",);
Если СтрЧислоВхождений(стрФИО, " ") = 2 Тогда
Фамилия = мФИО[0];
Имя = мФИО[1];
Отчество = мФИО[2];
ИначеЕсли
СтрЧислоВхождений(стрФИО,
" ") = 1 Тогда
Фамилия = мФИО[0];
Имя = мФИО[1];
Отчество = "";
Иначе
Фамилия = мФИО[0];
Имя = "";
Отчество =
"";
КонецЕсли;
ФИО = Новый Структура();
ФИО.Вставить("Фамилия",
Фамилия);
ФИО.Вставить("Имя",
Имя);
ФИО.Вставить("Отчество",
Отчество);
Возврат ФИО;
КонецФункции
&НаКлиенте
Процедура
ПарсингФио(Команда)
вхФИО =
"Иванов Иван Иванович ";
ПарсФИО(вхФИО);
КонецПроцедуры
|