Склонение фамилий и должностей в форме пользовательскими фукциями

@Stepashkavl · Регистрация: 08.09.2020

Студворк — интернет-сервис помощи студентам

Добрый день, форумчане

Помогите, пожалуйста, новичку с проблемой. В сети найден программный код, который бы склонял ФИО и должности сотрудников. Найдено здесь http://am.rusimport.ru/MSAccess/topic.aspx?ID=585.
В данном примере сделано через запрос, но мне это не совсем подходит. Хотелось бы, чтобы в форме при выборе значения в поле со списком, в другом поле появлялось значение просклоненного ФИО либо должности. Подскажите, пожалуйста, как эти функции приделать к полю в форме? Пример во вложении.

Спасибо.

@Eugene-LS · 21.09.2020, 11:03

Сообщение от Stepashkavl

Хотелось бы, чтобы в форме при выборе значения в поле со списком, в другом поле появлялось значение просклоненного ФИО либо должности.

Смотрите:

@Stepashkavl · 21.09.2020, 11:13 **[ТС]**

Eugene-LS - вы волшебник! Спасибо вам огромное!

@UUMprimor · 22.09.2020, 12:36

Посмотрите в самом конце обсуждения темы на том форуме.
Там последняя версия кода склонения ФИО и должностей
по всем падежам с формой проверки.

@ibrahimveg · 24.09.2020, 07:54

а можно ссылку на этот конец обсуждения на том форуме? Чет не воткнул где искать

Добавлено через 2 часа 9 минут
помогите подправить код, чтобы в словах с ФИО содержащем "-" не было такого косяка:
вановой Марине -Бред-Ивановне (отсечение первой буквы и вставка лишнего "-" перед отчеством)
ванову Ивану -Бреду-Ивановичу (отсечение первой буквы, вставка лишнего "-" перед отчеством и склонение обоих слов отчества)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'Склонение ФИО и должностей
Function SklonFIO(ByVal Slovo As String, ByVal Rod As String, ByVal Padej As String) As String
Dim i As Integer, FIO() As String, Tire() As String, j As Integer, tmp As String
    FIO = Split(Slovo, " ")
    For i = 0 To UBound(FIO)
        'Если в слове есть тире, то склоняем то что до тире и то что после
        '(Инженер-технолог, слесарь-электрик, штукатур-маляр,
        'Сухово-Кобылин, Козьма-Прудков, Козо-Полянский)
        If InStr(1, FIO(i), "-") > 0 Then
            Tire = Split(FIO(i), "-")
            For j = 0 To UBound(Tire)
                Select Case Padej
                    Case "Rod" 'Родительный (кого, чего)
                        tmp = Iskluchenie(Tire(j), Padej) 'Проверка на слова-исключения
                        If tmp = "" Then
                            SklonFIO = SklonFIO & "-" & SklonenieRod(Tire(j), Rod)
                          Else
                            SklonFIO = SklonFIO & "-" & tmp
                        End If
                    Case "Dat" 'Дательный (кому, чему)
                        tmp = Iskluchenie(Tire(j), Padej) 'Проверка на слова-исключения
                        If tmp = "" Then
                            SklonFIO = SklonFIO & "-" & SklonenieDat(Tire(j), Rod)
                          Else
                            SklonFIO = SklonFIO & "-" & tmp
                        End If
                End Select
            Next j
            SklonFIO = Mid(SklonFIO, 2)
          Else
            Select Case Padej
                Case "Rod" 'Родительный (кого, чего)
                    tmp = Iskluchenie(FIO(i), Padej) 'Проверка на слова-исключения
                    If tmp = "" Then
                        SklonFIO = SklonFIO & SklonenieRod(FIO(i), Rod) & " "
                      Else
                        SklonFIO = SklonFIO & tmp & " "
                    End If
                Case "Dat" 'Дательный (кому, чему)
                    tmp = Iskluchenie(FIO(i), Padej) 'Проверка на слова-исключения
                    If tmp = "" Then
                        SklonFIO = SklonFIO & SklonenieDat(FIO(i), Rod) & " "
                      Else
                        SklonFIO = SklonFIO & tmp & " "
                    End If
            End Select
        End If
    Next i
    SklonFIO = RTrim(SklonFIO)
End Function

Пример_Склонение_v003.zip

@Eugene-LS · 24.09.2020, 08:52

Сообщение от ibrahimveg

помогите подправить код, чтобы в словах с ФИО содержащем "-" не было такого косяка

Попробуйте:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Function SklonFIO(ByVal Slovo As String, ByVal Rod As String, ByVal Padej As String) As String
'Склонение ФИО и должностей v002 - 24.09.2020
Dim i As Integer, FIO() As String, Tire() As String, j As Integer, tmp As String
    FIO = Split(Slovo, " ")
    For i = 0 To UBound(FIO)
        'Если в слове есть тире, то склоняем то что до тире и то что после
        '(Инженер-технолог, слесарь-электрик, штукатур-маляр,
        'Сухово-Кобылин, Козьма-Прудков, Козо-Полянский)
        If InStr(1, FIO(i), "-") > 0 Then
            Tire = Split(FIO(i), "-")
            For j = 0 To UBound(Tire)
                Select Case Padej
                    
                    Case "Rod" 'Родительный (кого, чего)
                        tmp = Iskluchenie(Tire(j), Padej) 'Проверка на слова-исключения
                        If tmp = "" Then
                            SklonFIO = SklonFIO & "-" & SklonenieRod(Tire(j), Rod)
                        Else
                            SklonFIO = SklonFIO & "-" & tmp
                        End If
                    Case "Dat" 'Дательный (кому, чему)
                        tmp = Iskluchenie(Tire(j), Padej) 'Проверка на слова-исключения
                        If tmp = "" Then
                            If j > 0 Then 'Если вторая часть двойной фамилии:
                                SklonFIO = SklonFIO & "-" & SklonenieDat(Tire(j), Rod)
                            Else
                                SklonFIO = SklonFIO & SklonenieDat(Tire(j), Rod)
                            End If
                        Else
                            SklonFIO = SklonFIO & "-" & tmp
                        End If
                End Select
            Next j
          Else
            Select Case Padej
                Case "Rod" 'Родительный (кого, чего)
                    tmp = Iskluchenie(FIO(i), Padej) 'Проверка на слова-исключения
                    If tmp = "" Then
                        SklonFIO = SklonFIO & SklonenieRod(FIO(i), Rod) & " "
                      Else
                        SklonFIO = SklonFIO & tmp & " "
                    End If
                Case "Dat" 'Дательный (кому, чему)
                    tmp = Iskluchenie(FIO(i), Padej) 'Проверка на слова-исключения
                    If tmp = "" Then
                        SklonFIO = SklonFIO & SklonenieDat(FIO(i), Rod) & " "
                      Else
                        SklonFIO = SklonFIO & tmp & " "
                    End If
            End Select
        End If
    Next i
    SklonFIO = RTrim(SklonFIO)
End Function

@ibrahimveg · 24.09.2020, 09:02

в женском поле все

а вот с мужским склоняет оба слова с "-" / например: Бреду-Ивановичу

Добавлено через 2 минуты
Если есть возможность обратите внимание на Пример_Склонение_v003.zip из предыдущего сообщения.
и если это не совсем наглеж, творительный падеж добавить можете?

@Eugene-LS · 24.09.2020, 09:08

Сообщение от ibrahimveg

творительный падеж добавить можете?

А времени часов пять вы мне подарите?
...
Не мучайтесь - Найдите более отлаженный вариант - этот далёк отидеала и точно не единственный - быстрее будет.

@UUMprimor · 24.09.2020, 09:29

вот эту строчку:

Visual Basic
1
SklonFIO = Mid(SklonFIO, 2)

поменяйте на эту:

Visual Basic
1
SklonFIO = Replace(IIf(SklonFIO Like "-*", Mid(SklonFIO, 2) & " ", SklonFIO & " "), " -", " ")

В самом первом посте Stepashkavl указал ссылку на тему форума, в конце обсуждения которой выложен последний вариант склонения по всем падежам, а не этот первоначальный и только по двум падежам, далекий от совершенства. Но в настоящее время вероятно владелец сайта, как периодически бывает, не заплатил мзду и форум пока закрыт, а может что улучшает. Через некоторое время форум появится, почти уверен.

@ibrahimveg · 24.09.2020, 10:17

спасибо. буду контролить ап сайта, потому что не разбираясь в том что ищешь искать очень тяжко.

@Eugene-LS · 24.09.2020, 10:32

Сообщение от ibrahimveg

искать очень тяжко

Я бы тут посмотрел ...

@Eugene-LS · 24.09.2020, 11:03

ibrahimveg, вот нашлось НЕЧТО ...
Посмотрите - может сгодится.

@UUMprimor · 24.09.2020, 12:17

По сравнению с другими Родительный падеж больших трудностей не представляет.
Но и для этого падежа в представленном примеры есть проблемы:

Цой Павел Абрахам оглы
Ревва Александр Владимирович
Соловей Илья Кузьмич
Шкворень Евгений Иванович
Куций Фридрих Семенович
Червона Лев Батькович
Берия Лаврентий Павлович
Орджоникидзе Серго
Врубель Михаил Александрович
Мамедов Полад Бюль-бюль оглы
Чаплин Чарльз Спенсер
Хемингуей Эрнест
Де Фюнес Луи
Ким Чен Ир

Лебяжья Махарам Сигизмунд кызы
Сырокомля Лия Маровна
Складовская-Кюри Мария,

которые в указанном примере на am.rusimport.ru, а также другие, учтены.

@Eugene-LS · 24.09.2020, 18:16

Сообщение от UUMprimor

Но и для этого падежа в представленном примеры есть проблемы:

Тогда возможно вам сюда :
Склонение фамилий, имен и отчеств по падежам Библиотека функций. ( + пополняемый словарь исключений)
Я не тестировал, но похоже сделано толково.

@VinniPuh · 24.09.2020, 21:12

Eugene-LS, а не проще ли будет правила и всякие склонения изменить во всем мире, чем программный код писать?

@Eugene-LS · 24.09.2020, 21:32

Сообщение от VinniPuh

а не проще ли будет правила и всякие склонения изменить во всем мире, чем программный код писать?

Не знаю - не пробовал.
... И всё равно, возьмёт и найдётся непредусмотренное исключение, каких только фамилий не бывает.

@ibrahimveg · 25.09.2020, 04:40

согласен. мне именно и нужно чтобы основную массу склонения упрощать. А исключения оператор подкорректирует ручками.

Добавлено через 2 минуты
честно скажу ... там мне даже читать страшно)
нужно ченить попроще, и нужны 2 падежа:
- дательный (он в принципе уже есть, еще попробую посл. версию от Вас) и
- творительный (вот этого пока не нашел.)

в случае с творительным если бы продублировать к примеру Дательный, то Фамилию в принципе вроде он бы как нужно склонял на Творительном (в женском роде с "ой" и откорректировав на "ым" в мужском). но остается проблема с Имя и Отчество, как в прочем и процесс дублирования кода "Dat" на "Tvo"

Добавлено через 23 минуты
смотрел щас базу и там убрана ссылка на "ПОЛ".
' Определяем, мужские ФИО или женские
fMan = (Right(strName3, 1) = "ч")
у меня в таблице есть поле "Пол", которое выставляется вручную. Как бы сделать чтоб оно принимало значения без ручного ввода?

Модуль склонения v004-1.zip

@Eugene-LS · 25.09.2020, 05:49

Сообщение от ibrahimveg

Как бы сделать чтоб оно принимало значения без ручного ввода?

Попробуйте такой функцией:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function GenderByName(vFullName) As Variant
'Автоматическое определение пола по отчеству для большенства случаев
'Возвращает букву обозначения пола "М" или "Ж" (или ничего - если сомнения)
'es 24.09.2020 v001
'----------------------------------------------------------------
Dim sRPart$
On Error GoTo GenderByName_Err
    sRPart = Right(vFullName, 2)
    Select Case sRPart
        Case "ич": GenderByName = "М"
        Case "на": GenderByName = "Ж"
        
        Case "лы": GenderByName = "М" '-оглы = сын, -кызы – дочь
        Case "зы": GenderByName = "Ж"
    End Select
 
GenderByName_End:
    Exit Function
 
GenderByName_Err:
    Err.Clear
    Resume GenderByName_End
End Function

@UUMprimor · 25.09.2020, 09:52

Сообщение от Eugene-LS

Тогда возможно вам сюда :
Склонение фамилий, имен и отчеств по падежам Библиотека функций. ( + пополняемый словарь исключений)
Я не тестировал, но похоже сделано толково.

Нет, там мне делать уже не чего - в той библиотеке учтено меньше нюансов. А возможность ведения словаря исключений учтена в отдельной функции кода даже в примере, указанном в первом посте темы.

Добавлено через 13 минут

Сообщение от Eugene-LS

Visual Basic
1
2
3
Public Function GenderByName(vFullName) As Variant
'Автоматическое определение пола по отчеству для большенства случаев
'Возвращает букву обозначения пола "М" или "Ж" (или ничего - если сомнения)

А если пол=ничего как будет склонять ФИО?
А вот добавьте MsgBox или InputBox, которые в зависимости от ответа пользователя
определят к какому роду ФИО относится и будет ibrahimveg_у радость.

Добавлено через 13 минут

Сообщение от VinniPuh

Eugene-LS, а не проще ли будет правила и всякие склонения изменить во всем мире, чем программный код писать?

Компьютер с его прожками и нужен для того, чтобы даже безграмотный человек печатал грамотно. А если бы даже язык на всей Земле был один, реализация Вашего предложения было бы маловероятной: как, например, склонять ФИО европейских и американских гомосеков, которые выбрали себе не мужской, женский или средний род, а неопределенный 4-й род?

@Eugene-LS · 25.09.2020, 10:39

Сообщение от ibrahimveg

творительный (вот этого пока не нашел.)

Тема показалась мне интересной, вот собрал примерчик из найденного на просторах ...
Работают Дательный, Родительный и Творительный + есть обработка исключений.
Критика и советы приветствуются.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Склонение фамилий и должностей в форме пользовательскими фукциями

Решение

Решение

@Stepashkavl 0 / 0 / 0 Регистрация: 08.09.2020 Сообщений: 16
	21.09.2020, 11:13 [ТС]
	Eugene-LS - вы волшебник! Спасибо вам огромное! 0

@UUMprimor 784 / 63 / 4 Регистрация: 28.05.2015 Сообщений: 99
	22.09.2020, 12:36
	Посмотрите в самом конце обсуждения темы на том форуме. Там последняя версия кода склонения ФИО и должностей по всем падежам с формой проверки. 1

@ibrahimveg 2 / 1 / 2 Регистрация: 26.08.2015 Сообщений: 96
	24.09.2020, 09:02
	в женском поле все а вот с мужским склоняет оба слова с "-" / например: Бреду-Ивановичу Добавлено через 2 минуты Если есть возможность обратите внимание на Пример_Склонение_v003.zip из предыдущего сообщения. и если это не совсем наглеж, творительный падеж добавить можете? 0

@ibrahimveg 2 / 1 / 2 Регистрация: 26.08.2015 Сообщений: 96
	24.09.2020, 10:17
	спасибо. буду контролить ап сайта, потому что не разбираясь в том что ищешь искать очень тяжко. 0

@UUMprimor 784 / 63 / 4 Регистрация: 28.05.2015 Сообщений: 99
	24.09.2020, 12:17
	Сообщение было отмечено mobile как решение Решение По сравнению с другими Родительный падеж больших трудностей не представляет. Но и для этого падежа в представленном примеры есть проблемы: Цой Павел Абрахам оглы Ревва Александр Владимирович Соловей Илья Кузьмич Шкворень Евгений Иванович Куций Фридрих Семенович Червона Лев Батькович Берия Лаврентий Павлович Орджоникидзе Серго Врубель Михаил Александрович Мамедов Полад Бюль-бюль оглы Чаплин Чарльз Спенсер Хемингуей Эрнест Де Фюнес Луи Ким Чен Ир Лебяжья Махарам Сигизмунд кызы Сырокомля Лия Маровна Складовская-Кюри Мария, которые в указанном примере на am.rusimport.ru, а также другие, учтены. 1

@VinniPuh 9118 / 6107 / 591 Регистрация: 27.03.2013 Сообщений: 19,919
	24.09.2020, 21:12
	Eugene-LS, а не проще ли будет правила и всякие склонения изменить во всем мире, чем программный код писать? 0

@ibrahimveg 2 / 1 / 2 Регистрация: 26.08.2015 Сообщений: 96
	25.09.2020, 04:40
	согласен. мне именно и нужно чтобы основную массу склонения упрощать. А исключения оператор подкорректирует ручками. Добавлено через 2 минуты честно скажу ... там мне даже читать страшно) нужно ченить попроще, и нужны 2 падежа: - дательный (он в принципе уже есть, еще попробую посл. версию от Вас) и - творительный (вот этого пока не нашел.) в случае с творительным если бы продублировать к примеру Дательный, то Фамилию в принципе вроде он бы как нужно склонял на Творительном (в женском роде с "ой" и откорректировав на "ым" в мужском). но остается проблема с Имя и Отчество, как в прочем и процесс дублирования кода "Dat" на "Tvo" Добавлено через 23 минуты смотрел щас базу и там убрана ссылка на "ПОЛ". ' Определяем, мужские ФИО или женские fMan = (Right(strName3, 1) = "ч") у меня в таблице есть поле "Пол", которое выставляется вручную. Как бы сделать чтоб оно принимало значения без ручного ввода? Модуль склонения v004-1.zip 0