9
Волшебник
24.06.04
✎
13:15
|
1-й вариант:
ФИО=СокрЛП(ФИО);
Пока СтрНайти(ФИО, " ")<>0 Цикл
ФИО=СтрЗаменить(ФИО, " ", " ");
КонецЦикла;
ФИО=СтрЗаменить(ФИО, " ", РазделительСтрок);
Фамилия=СтрПолучитьСтроку(ФИО, 1);
Имя=СтрПолучитьСтроку(ФИО, 2);
Отчество=СтрПолучитьСтроку(ФИО, 3);
-------------------------------------------
2-й вариант:
Фамилия = "";
Имя = "";
Отчество ="";
ФИО=СокрЛП(ФИО);
ОбщДлина=СтрДлина(ФИО);
//поделим на фамилию, имя и очество
// позиция первого пробела
ПервПроб = Hайти(ФИО," ");
Если ПервПроб=0 Тогда
Фамилия = СокрЛ(ФИО);
Иначе
Фамилия = Лев(ФИО,ПервПроб);
ИО = Сред(ФИО,ПервПроб+1);
ИО = СокрЛП(ИО);
// позиция второго пробела
ВтПроб = Hайти(ИО," ");
Если ВтПроб = 0 Тогда
Имя = СокрЛП(ИО);
Иначе
Имя = СокрЛ(Лев(ИО,ВтПроб-1));
Отчество =СокрЛ((Сред(ИО,ВтПроб+1)));
КонецЕсли;
КонецЕсли;
|
|