Может у кого есть скрипт склонения по падежам?

@komdtyor · Регистрация: 16.11.2008

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

Если не жалко, может поделитесь?

@oshmyomsky · 08.01.2017, 15:02

когда-то давно пробовал работать с этой библиотекой. windows only, т.к. dll.
в приложенной бд см. библиотеку lib.Padeg.

@tmyky · 08.01.2017, 15:22

https://habrahabr.ru/post/161335/
https://bintray.com/jbaruch/jbaruch-maven/download_file?file_path=padeg/lib/padeg/3.3.0.24/padeg-3.3.0.24.jar
сам не тестил
т.к. java - нет ограничений по платформе!

@sovt · 08.01.2017, 16:03

Я пробовал код с форума:
Там последний комментарий самый верный: вбивать руками.
Должности еще прокатят, но если Вам необходимо это для ФИО - лучше все поля вбивать руками, ибо доля ошибки есть...
Заполнять по умолчанию можно, но нежелательно, так как пользователи будут просто лениться вносить исправления.
Мы в кадровой системе сделали поля и HR вводил сам информацию от сотрудника, никакого автомата.
Затем везде брались эти данные для рассылок, информации, документов и тд

@komdtyor · 08.01.2017, 18:54

Спасибо всем кто откликнулся. Ваяю программу для настройки контекстной рекламы, вот и понадобились падежи для слов и минус-слов.

И да, принцип записал слово в именительном падеже, получил единственное и множественное число во всех падежах, глазками проверил и сохранил в базе.

@Kmyt · 09.01.2017, 10:44

я бы еще посмотрел словари c http://opencorpora.org/ и проекты которые используют их (https://pymorphy2.readthedocs.io/en/latest/ и тд)

@MoxP · 07.03.2017, 13:01

Есть библиотека, склоняющая в род. падеж. Иногда выдает неверный результат. Если подправите, и выложите, буду благодарен.

Code
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
%REM
Library Declination
Created Nov 3, 2014
Description: Comments for Library
%END REM
Option Public
 
 
Option Compare Text     эта строка нужна обязательно! (сравнение без учёта регистра)
Sub Terminate
 
End Sub
 
 
Function GetGenitiveException(ByVal txt$) As String     склонение имён-исключений
Select Case txt$
Case "Павел": GetGenitiveException = "Павла"
Case "Лев": GetGenitiveException = "Льва"
Case "Пётр": GetGenitiveException = "Петра"
Case "Любовь": GetGenitiveException = "Любови"
Case "Первый": GetGenitiveException = "Первого"
 
без изменения (не склоняются) - перечисляем через запятую
Case "Али", "Бали": GetGenitiveException = txt$
End Select
End Function
 
Function GenitiveCase(sSurname,sName,sPatronymic) As String
Функция формирует родительный падеж из ФИО
Параметры: sSurname - фамилия, sName - имя, sPatronymic - отчество
© 2013 EducatedFool
 
sSurname = Replace(sSurname, " - ", "-"): sSurname = Replace(Replace(sSurname, " -", "-"), "- ", "-")
 
On Error Resume Next
If sName = "" And sPatronymic = "" Then
arr = sSurname
sSurname = arr(0): sName = arr(1): sPatronymic = Replace(arr(2), ".", "")
End If
 
пол теперь определяется иначе:   что заканчивается на "вна" или "кызы" - то женщины, остальные - мужчины.
Dim bMaleSex As Boolean:     bMaleSex = (Right(sPatronymic, 1) = "ч" Or Right(sPatronymic, 4) = "оглы")
bMaleSex = Not (Right(sPatronymic, 2) = "на" Or Right(sPatronymic, 4) = "кызы")
 
If Len(sSurname) > 0 Then       Фамилия
arrSurname = Split(sSurname, "-")
For i = LBound(arrSurname) To UBound(arrSurname)     перебираем все части фамилий, содержащих дефис
sRes = "": sSurnamePart = arrSurname(i)
 
If bMaleSex Then     мужские фамилии
Select Case Right(sSurnamePart, 1)
Case "о", "и", "ы", "у", "э", "е", "ю": sRes = sSurnamePart
Case "й": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "ого"
Case "ь": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "я"
Case "я": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "и"
Case "а": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "ы"
If UBound(arrSurname) > 0 And i = 0 Then sRes = sSurnamePart
Case Else: sRes = sSurnamePart & "а"
End Select
 
Select Case Right(sSurnamePart, 2)     добавлено, для редких фамилий
Case "ец":  sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "ца"
If LCase(sSurnamePart) Like "*[уеыаоэяиюё]ец" Then sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "ца"
If LCase(sSurnamePart) Like "*[!уеыаоэяиюё][!уеыаоэяиюё]ец" Then sRes = sSurnamePart & "а"
Case "зе", "их", "ых": sRes = sSurnamePart
Case "ий", "ой": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "ого"
If Len(sSurnamePart) <= 4 Then sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "я"
If Right(sSurnamePart, 3) = "чий" Then sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "его"
Case "уй": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "уя"
End Select
 
Else     женские фамилии
Select Case Right(sSurnamePart, 1)
Case "о", "е", "э", "и", "ы", "у", "ю", "б", "в", "г", "д", "ж", "з", "к", "л", "м", "н", "п", _
"р", "с", "т", "ф", "х", "ц", "ч", "ш", "щ", "ь", "й": sRes = sSurnamePart
Case "а": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "ой"
Case "я": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "ю"
Case Else: sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 1) & "у"
End Select
 
Select Case Right(sSurnamePart, 2)     добавлено, для редких фамилий
Case "ха": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "хи"
Case "ла": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "лы"
Case "ая": sRes = Mid(sSurnamePart, 1, Len(sSurnamePart) - 2) & "ой"
End Select
 
End If
 
не склоняются мужские и женские фамилии, оканчивающиеся на -о, -е, -э, -и, -ы, -у, -ю,
а также на -а с предшествующей гласной
If LCase(sSurnamePart) Like "*[уеыаоэяиюё]а" Then sRes = sSurnamePart
 
arrSurname(i) = sRes
Next
GenitiveCase = Join(arrSurname, "-") & " "     соединяем части склоняемой фамилии обратно в одну строку
End If
 
If Len(sName) > 0 Then       Имя
NameException = GetGenitiveException(sName)
If Len(NameException) Then     для имен-исключений
GenitiveCase = GenitiveCase & NameException
Else     имя не найдено в списке исключений
If bMaleSex Then
Select Case Right(sName, 1)
Case "й", "ь": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "я"
Case "а": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "ы"
Case "я": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "и"
Case "о": GenitiveCase = GenitiveCase & sName
Case Else: GenitiveCase = GenitiveCase & sName & "а"
End Select
Else
Select Case Right(sName, 1)
Case "а": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "ы"
Case "я": GenitiveCase = GenitiveCase & Mid(sName, 1, Len(sName) - 1) & "и"
Case Else: GenitiveCase = GenitiveCase & sName
End Select
End If
End If
GenitiveCase = GenitiveCase & " "
End If
 
If Len(sPatronymic) > 0 Then       Отчество
If Right(sPatronymic, 4) = "оглы" Or Right(sPatronymic, 4) = "кызы" Then
GenitiveCase = GenitiveCase & sPatronymic
Else
If bMaleSex Then
GenitiveCase = GenitiveCase & sPatronymic & "а"
Else
GenitiveCase = GenitiveCase & Mid(sPatronymic, 1, Len(sPatronymic) - 1) & "ы"
End If
End If
End If
GenitiveCase = Replace(GenitiveCase, "-", "- ")
GenitiveCase = StrConv(GenitiveCase, vbProperCase)
GenitiveCase = Replace(GenitiveCase, "- ", "-")
GenitiveCase = FullTrim(GenitiveCase)
End Function

Новые блоги и статьи Все статьи Все блоги /
Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {	PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .

@komdtyor 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 308

	Может у кого есть скрипт склонения по падежам? 08.01.2017, 14:50. Показов 8086. Ответов 6 Метки нет (Все метки) Если не жалко, может поделитесь? 0

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848
	08.01.2017, 15:02
	когда-то давно пробовал работать с этой библиотекой. windows only, т.к. dll. в приложенной бд см. библиотеку lib.Padeg. 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	08.01.2017, 15:22
	https://habrahabr.ru/post/161335/ https://bintray.com/jbaruch/jbaruch-maven/download_file?file_path=padeg/lib/padeg/3.3.0.24/padeg-3.3.0.24.jar сам не тестил т.к. java - нет ограничений по платформе! 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	08.01.2017, 16:03
	Я пробовал код с форума: Там последний комментарий самый верный: вбивать руками. Должности еще прокатят, но если Вам необходимо это для ФИО - лучше все поля вбивать руками, ибо доля ошибки есть... Заполнять по умолчанию можно, но нежелательно, так как пользователи будут просто лениться вносить исправления. Мы в кадровой системе сделали поля и HR вводил сам информацию от сотрудника, никакого автомата. Затем везде брались эти данные для рассылок, информации, документов и тд 0

@komdtyor 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 308
	08.01.2017, 18:54
	Спасибо всем кто откликнулся. Ваяю программу для настройки контекстной рекламы, вот и понадобились падежи для слов и минус-слов. И да, принцип записал слово в именительном падеже, получил единственное и множественное число во всех падежах, глазками проверил и сохранил в базе. 0

@Kmyt 0 / 0 / 0 Регистрация: 17.10.2007 Сообщений: 30
	09.01.2017, 10:44
	я бы еще посмотрел словари c http://opencorpora.org/ и проекты которые используют их (https://pymorphy2.readthedocs.io/en/latest/ и тд) 0

Опции темы