funkcija_opredelenija_pola [wiki.hostingcloud.com.ua]

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.
<code>
Функция ПолФИО(Знач ФамилияИмяОтчество) Экспорт
     
    Если ПустаяСтрока(ФамилияИмяОтчество) Тогда
        Возврат Неопределено;
    КонецЕсли;
     
    МассивФИО = СтрРазделить(НРег(ФамилияИмяОтчество), " ", Ложь);
     
    // ШАГ 1.
    // Проверка на стандартные имена (RU).
    МужскиеИмена = ",абрам,аваз,аввакум,август,авдей,аверьян,авраам,автандил,агап,агафон,аггей,адам,адис,адольф,адриан,"
        + "азамат,азар,азарий,азат,айдар,айнур,айрат,акакий,аким,аксён,алан,александр,алексей,али,алим,алихан,алмаз,альберт,"
        + "альфред,амадей,амадеус,амаяк,амвросий,амин,анатолий,анвар,ангел,андрей,андрон,андрэ,аникита,антип,антон,ануфрий,"
        + "анфим,аполлинарий,аполлон,арам,аристарх,аркадий,арман,армен,арно,арнольд,арон,арсен,арсений,арсентий,арслан,"
        + "артем,артемий,артур,артём,архип,аскер,аскольд,афанасий,ахмет,ашот,бахрам,бежен,бенедикт,берек,бернар,богдан,"
        + "боголюб,бонифаций,бореслав,борис,борислав,боян,бронислав,бруно,булат,вадим,валентин,валерий,вальдемар,вальтер,"
        + "вардан,варлаам,варлам,варфоломей,василий,ватслав,велизар,велор,венедикт,вениамин,венцеслав,веньямин,викентий,"
        + "виктор,вилен,вилли,вильгельм,виссарион,виталий,витаутас,витольд,владилен,владимир,владислав,владлен,влас,володар,"
        + "всеволод,всеслав,вячеслав,гавриил,галактион,гамлет,гарри,гаяс,гевор,геворг,геннадий,генри,генрих,георгий,геральд,"
        + "герасим,герман,глеб,гоар,гордей,гордон,горислав,градимир,григорий,гурий,густав,давид,давлат,дамир,даниил,данил,"
        + "данила,данислав,даньяр,демид,демьян,денис,джамал,джеймс,джереми,джозеф,джордан,джорж,дик,димитрий,динар,динасий,"
        + "дмитрий,добрыня,дональд,донат,донатос,дорофей,евгений,евграф,евдоким,евсей,евстафий,егор,елизар,елисей,емельян,"
        + "еремей,ермолай,ерофей,ефим,ефрем,жан,ждан,жерар,закир,замир,заур,захар,зенон,зигмунд,зиновий,зураб,ибрагим,иван,"
        + "игнат,игнатий,игорь,иероним,измаил,израиль,иларион,илиан,илларион,ильхам,ильшат,илья,ильяс,инокентий,иоаким,"
        + "иоанн,ион,иосиф,ипполит,ираклий,иса,исаак,исидор,искандер,ислам,исмаил,казбек,казимир,камиль,карен,карим,карл,"
        + "касьян,ким,кир,кирилл,клавдий,клаус,клим,климент,клод,кондрат,константин,корней,корнилий,кузьма,лавр,лаврентий,"
        + "лазарь,ларион,лев,леван,левон,ленар,леон,леонард,леонид,леонтий,леопольд,лука,лукьян,любим,любомир,людвиг,люсьен,"
        + "люций,мавлюда,мадлен,май,майкл,макар,макарий,максим,максимильян,максуд,мансур,мануил,мар,марат,мариан,марк,"
        + "марсель,мартин,мартын,матвей,махмуд,мераб,мефодий,мечеслав,микула,милан,мирон,мирослав,митрофан,михаил,"
        + "мишлов,модест,моисей,мстислав,мурат,муслим,мухаммед,назар,назарий,наиль,натан,наум,нестор,никанор,никита,никифор,"
        + "никодим,никола,николай,никон,нильс,нисон,нифонт,норманн,овидий,олан,олег,олесь,онисим,орест,орландо,осип,оскар,"
        + "остап,павел,панкрат,пантелей,парамон,петр,платон,порфирий,потап,прокофий,прохор,пётр,равиль,радий,радик,радомир,"
        + "радослав,разиль,раис,райан,раймонд,рамазан,рамиз,рамиль,рамон,ранель,расим,расул,ратибор,ратмир,рафаил,рафаэль,"
        + "рафик,рашид,рем,ринат,рифат,рихард,ричард,роберт,родион,ролан,роман,ростислав,рубен,рудольф,руслан,рустам,руфин,"
        + "рушан,рэй,сабир,савва,савелий,самвел,самсон,самуил,святослав,севастьян,северин,семен,семён,серафим,сергей,сидор,"
        + "сократ,соломон,спартак,стакрат,станислав,степан,стефан,стивен,стоян,султан,тагир,таис,тайлер,талик,тамаз,"
        + "тамерлан,тарас,тельман,теодор,терентий,тибор,тиграм,тигран,тигрий,тимофей,тимур,тит,тихон,томас,трифон,трофим,"
        + "ульманас,ульян,умар,устин,фадей,фазиль,фанис,фарид,фархад,федор,федот,феликс,феодосий,фердинанд,фидель,филимон,"
        + "филипп,фирс,флорентий,фома,франц,фред,фридрих,фуад,фёдор,хабиб,хаким,харитон,харлам,христиан,христос,христофор,"
        + "цезарь,чарльз,чеслав,чингиз,шамиль,шарль,шерлок,эдвард,эдгар,эдмунд,эдуард,эльдар,эмиль,эмин,эммануил,эраст,эрик,"
        + "эрнест,юлиан,юлий,юнус,юрий,юхим,яков,ян,януарий,ярослав,ясон";
         
    ЖенскиеИмена = ",ава,августа,августина,авдотья,аврора,агапия,агата,агафья,аглая,агния,агриппина,агунда,ада,аделаида,"
        + "аделина,адель,адиля,адриана,аза,азалия,азиза,аида,аиша,ай,айару,айгерим,айгуль,айлин,айнагуль,айнур,айсель,айсун,"
        + "айсылу,аксинья,алана,алевтина,александра,алена,алеста,алина,алиса,алия,алла,алсу,алтын,альба,альбина,альфия,аля,"
        + "алёна,алена,амалия,амаль,амина,амира,анаит,анастасия,ангелина,анжела,анжелика,анисья,анита,анна,антонина,анфиса,"
        + "аполлинария,арабелла,ариадна,ариана,арианда,арина,ария,асель,асия,астрид,ася,афина,аэлита,аяна,бажена,беатрис,"
        + "бела,белинда,белла,берта,богдана,божена,бьянка,валентина,валерия,ванда,ванесса,варвара,василина,василиса,венера,"
        + "вера,вероника,веста,вета,викторина,виктория,вилена,виола,виолетта,вита,виталина,виталия,влада,владана,владислава,"
        + "власта,габриэлла,галина,галия,гаяна,гаянэ,генриетта,глафира,гоар,грета,гульзира,гульмира,гульназ,гульнара,"
        + "гульшат,гюзель,далида,дамира,дана,даниэла,дания,дара,дарина,дарья,даяна,джамиля,дженна,дженнифер,джессика,"
        + "джиневра,диана,дильназ,дильнара,диля,дилярам,дина,динара,долорес,доминика,домна,домника,ева,евангелина,евгения,"
        + "евдокия,евлампия,екатерина,елена,елизавета,есения,ефросиния,ефросинья,ея,жаклин,жанна,жансая,жасмин,жозефина,"
        + "жоржина,забава,заира,залина,замира,зара,зарема,зарина,земфира,зинаида,зиновия,зита,злата,златослава,зоряна,зоя,"
        + "зульфия,зухра,иветта,ивонна,изабелла,изольда,илина,иллирика,илона,ильзира,илюза,инга,индира,инесса,инна,иоанна,"
        + "ира,ирада,ираида,ирина,ирма,искра,ия,камила,камилла,капитолина,кара,каре,карима,"
        + "карина,каролина,кира,клавдия,клара,клеопатра,кора,корнелия,кристина,ксения,лада,лана,лара,лариса,лаура,лейла,"
        + "леона,лера,леся,лета,лиана,лидия,лиза,лика,лили,лилиана,лилит,лилия,лина,линда,лиора,лира,лия,лола,лолита,лора,"
        + "луиза,лукерья,лукия,луна,любава,любовь,людмила,люсиль,люсьена,люция,люче,ляйсан,ляля,мавиле,мавлюда,магда,"
        + "магдалeна,мадина,мадлен,майя,макария,малика,мара,маргарита,марианна,мариетта,марика,марина,мария,мариям,марта,"
        + "марфа,марья,марьяна,матрена,матрона,матрёна,мелания,мелисса,мика,мила,милада,милана,милен,милена,милица,"
        + "милослава,мира,мирослава,мирра,михримах,мишель,мия,моника,муза,надежда,наиля,наима,нана,наоми,наргиза,настасия,"
        + "настасья,наталия,наталья,нелли,нея,ника,николь,нина,нинель,номина,нонна,нора,нурия,одетта,оксана,октябрина,олеся,"
        + "оливия,олимпиада,ольга,офелия,павлина,памела,патриция,паула,пейтон,пелагея,перизат,платонида,полина,прасковья,"
        + "равшана,рада,разина,раиля,раиса,ралина,рамина,раяна,ребекка,регина,резеда,рена,рената,риана,рианна,рикарда,римма,"
        + "рина,рита,рогнеда,роза,роксана,роксолана,рузалия,рузанна,русалина,руслана,руфина,руфь,сабина,сабрина,сажида,"
        + "саида,салима,саломея,сальма,самира,сандра,сания,сара,сарра,сати,сауле,сафия,сафура,светлана,севара,селена,сельма,"
        + "серафима,сильвия,симона,снежана,соня,софия,софья,стелла,степанида,стефания,сусанна,таисия,таисья,тамара,тамила,"
        + "тара,татьяна,тая,таяна,теона,тереза,тея,тина,тиффани,томирис,тора,тэмми,ульяна,урсула,устиния,устинья,фазиля,"
        + "фаина,фарида,фариза,фатима,федора,фекла,фелисити,фелиция,феодора,феруза,физалия,фируза,флора,флорентина,"
        + "флоренция,флориана,фредерика,фрида,фёкла,хаврония,хадия,хилари,хлоя,христина,хюррем,цагана,цветана,цецилия,циара,"
        + "челси,чеслава,чулпан,шакира,шарлотта,шахина,шейла,шелли,шерил,эвелина,эвита,эдита,элеонора,элиана,элиза,элина,"
        + "элла,эльвина,эльвира,эльмира,эльнара,эля,эмили,эмилия,эмма,энже,эрика,эрмина,эсмеральда,эсмира,эстер,этель,этери,"
        + "юдифь,юлиана,юлианна,юлия,юна,юния,юнона,ядвига,яна,янина,ярина,ярослава,ясмина,";
                 
    Для Каждого Стр Из МассивФИО Цикл
        Если СтрНайти(МужскиеИмена, "," + Стр + ",") > 0 Тогда
            Возврат Перечисления.ПолФизическогоЛица.Мужской;
        ИначеЕсли СтрНайти(ЖенскиеИмена, "," + Стр + ",") > 0 Тогда
            Возврат Перечисления.ПолФизическогоЛица.Женский;
        КонецЕсли;
    КонецЦикла;
     
    // ШАГ 2.
    // Проверка по отчеству (RU).
    Если МассивФИО.Количество() = 3 Тогда
         
        Отчество = МассивФИО[2];
         
        Если СтрНайти(Отчество, "ович") > 0
            ИЛИ СтрНайти(Отчество, "евич") > 0
            ИЛИ СтрНайти(Отчество, "ич") > 0 Тогда
            Возврат Перечисления.ПолФизическогоЛица.Мужской;
        ИначеЕсли СтрНайти(Отчество, "овна") > 0
            ИЛИ СтрНайти(Отчество, "евна") > 0
            ИЛИ СтрНайти(Отчество, "ична") > 0 Тогда
            Возврат Перечисления.ПолФизическогоЛица.Женский;
        КонецЕсли;
         
    КонецЕсли;
                
    Возврат Неопределено;
     
КонецФункции
</code>