Склонение ФИО, должностей и подразделений по падежам

 Из этого:

следует, что у вас как раз коммерческое использование.

В любом случае, при публикации было бы справедливым указать авторов продукта: Склонение фамилий, имен и отчеств по падежам Библиотека функций.

В приложенном архиве pd_Library.zip в файле License.txt указано:

Настоящие лицензионное соглашение распространяется только на библиотеку версии 3.X и выше.
Лицензия на библиотеку версии ниже 3.0 не изменяется.

Когда я использовал эту библиотеку, она была еще свободно распространяемой. К сожалению сейчас она действительно для коммерческого использования стала платной. Но судя по ценам взятым из прайса:

- Лицнзия для коммерческого использования Программы - 500 руб РФ
- Корпоративная лицензия для коммерческого использования Программы - 1000 руб РФ
 - Исходные тексты *) - 1000 руб РФ

я вполне могу позволить купить её себе и использовать в своих разработках. Для сравнения тот же морфер стоит 7500 руб.

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

З.Ы. Ссылку на авторов продукта в материал добавлю

Что-то ссылка не работает :(

Как её в материал добавить правильно?

Ссылка, вроде, правильная. Это Delphi Kingdom отвечать перестал. Починят...

А может есть более простые и бесплатные варианты решения данной задачи? Просто на тот момент мне в голову ничего другого не пришло :(

Кстати у данного решения есть существенный минус, библиотеку придеться регать на всех рабочих местах, где потребуется её использование, правда при наличии АД данная задача решается просто.

В Диасофте (www.diasoft.ru) используется собственная функция для этих целей, вот её написание на diasoftscript (delphi)

function GenitiveCase(aSurname, aName, aPatronymic: string): string;
var
  bMaleSex: Boolean;
  sSurname, sName, sPatronymic: string;
begin
  Result := '';
  try
    sSurname := AnsiUpperCase(Trim(aSurname));
    sName := AnsiUpperCase(Trim(aName));
    sPatronymic := AnsiUpperCase(Trim(aPatronymic));

    if sPatronymic <> '' then
      bMaleSex := sPatronymic[Length(sPatronymic)] = 'Ч'
    else
      bMaleSex := true;

  //   Фамилия
    if Length(sSurname) > 0 then
    begin
      if bMaleSex then
        Case sSurname[Length(sSurname)] of
          'О', 'И', 'Я', 'А': Result := sSurname;
          'Й': Result := LeftStr(sSurname, Length(sSurname) - 2) + 'ОГО';
          else Result := sSurname + 'А';
        end
      else
        case sSurname[Length(sSurname)] of
          'О', 'И', 'Б', 'В', 'Г', 'Д', 'Ж', 'З',
          'К', 'Л', 'М', 'Н', 'П', 'Р', 'С', 'Т',
          'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ь': Result := sSurname;
          'Я': Result := LeftStr(sSurname, Length(sSurname) - 2) + 'ОЙ';
          else Result := LeftStr(sSurname, Length(sSurname) - 1) + 'ОЙ';
        end;
      Result := Result + ' ';
    end;

  //   Имя
    if Length(sName) > 0 then
    begin
      if bMaleSex then
        case sName[Length(sName)] of
          'Й', 'Ь': Result := Result + LeftStr(sName, Length(sName) - 1) + 'Я';
          else Result := Result + sName + 'А';
        end
      else
        case sName[Length(sName)] of
          'А': case sName[Length(sName) - 1] of
                 'И', 'Г': Result := Result + LeftStr(sName, Length(sName) - 1) + 'И';
                 else Result := Result + LeftStr(sName, Length(sName) - 1) + 'Ы';
               end;
          'Я': if sName[Length(sName) - 1] = 'И' then
                 Result := Result + LeftStr(sName, Length(sName) - 1) + 'И'
               else
                 Result := Result + LeftStr(sName, Length(sName) - 1) + 'И';
          'Ь': Result := Result + LeftStr(sName, Length(sName) - 1) + 'И';
          else Result := Result + sName;
        end; //of case
      Result := Result + ' ';
    end;

  //   Отчество
    if Length(sPatronymic) > 0 then
      if bMaleSex then Result := Result + sPatronymic + 'А'
      else             Result := Result + LeftStr(sPatronymic, Length(sPatronymic) - 1) + 'Ы';
  except
  end;
  Result := NameCase(Result);
end;

function NameCase(aString: string): string;
var
  iPos: integer;
  s, sTemp: string;
begin
  Result := '';
  sTemp := AnsiLowerCase(Trim(aString));
  while Length(sTemp) > 0 do
  begin
    s := ChooseWord(sTemp,1);
    Result := Result + ' ' + AnsiUpperCase(LeftStr(s,1)) + RightStr(s, Length(s)-1);
    sTemp := Trim(RightStr(sTemp, Length(sTemp) - Length(s)));
  end;
  Result := Result;
end;

Склонение ФИО - как раз не проблема! И решается функцией DIRECTUM без дополнительных средств.

Уважаемый автор, как будет корректное склонение наименований должностей и подразделений, в которых может быть более 10 слов?

Например, прослконяется ли с помощью Вашего решения следущее наименование:

заведующий сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение".

Заранее благодарю за ответ.

Уважаемый Дмитрий! Название подразделений - не ошибка. Как правило на данном предприятии используются сокращенные названия подразделений. Например, "Сектор разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение".

Но в официальных документах наименование пишется полностью. И вот здесь правила склонения применить без человеческого участия практически невозможно. Что скажете?

Если вы сходите по ссылке, ведущей к авторам продукта, то в пункте 10: "Правила склонения ФИО, реализованные в библиотеке" вы увидите правила, по которым данная библиотека склоняет ФИО. Написание данного функционала с нуля, с учетом всех этих нюансов и правил склонения, в директум своими силами потребует значительных трудозатрат. Я всего лишь предложил уже готовое решение. Впрочем, если вы все тоже самое реализуете средствами директум, то это будет отличное техническое решение :)

Не совсем понял что имелось ввиду.

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

Вот код, которым я тестировал склонение вышеприведенных должности и наименования подразделения:

MsgTemplate = "%2:s%1:s%3:s%1:s%4:s%1:s%5:s%0:s"
LogFileName = GetTempFolder()&"\DIRECTUM_Padeg.log"
FIO = "Иванов Иван Иванович"
// Создадим объект Padeg
FreeException()
ExceptionsOff()
Decl = CreateObject("Padeg.Declension")
ExceptionsOn()
// Проверим результат создания объекта Padeg
if ExceptionExists()
Error = GetLastException()
// Ошибка при создании объекта Padeg. Подробнее:
ФайлЗаписать(LogFileName; 'Д'; Format(MsgTemplate;
ArrayOf(CR; TAB; Today(); Time(); 'Padeg';
"Ошибка при создании объекта Padeg. Подробнее: "&Error.Message)))
FreeException()
Прервать()
endif

Dolg = 'заведующий сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"'
Rez1 = Decl.GetAppointmentPadeg(Dolg; 1)
Rez2 = Decl.GetAppointmentPadeg(Dolg; 2)
Rez3 = Decl.GetAppointmentPadeg(Dolg; 3)
Rez4 = Decl.GetAppointmentPadeg(Dolg; 4)
Rez5 = Decl.GetAppointmentPadeg(Dolg; 5)
Rez6 = Decl.GetAppointmentPadeg(Dolg; 6)

Podr = 'Сектор разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"'
Rez11 = Decl.GetOfficePadeg(Podr; 1)
Rez12 = Decl.GetOfficePadeg(Podr; 2)
Rez13 = Decl.GetOfficePadeg(Podr; 3)
Rez14 = Decl.GetOfficePadeg(Podr; 4)
Rez15 = Decl.GetOfficePadeg(Podr; 5)
Rez16 = Decl.GetOfficePadeg(Podr; 6)
EditText("Именительный: "&Rez1&CR&
"Родительный: "&Rez2&CR&
"Дательный: "&Rez3&CR&
"Винительный: "&Rez4&CR&
"Творительный: "&Rez5&CR&
"Предложный: "&Rez6&CR&CR&
"Именительный: "&Rez11&CR&
"Родительный: "&Rez12&CR&
"Дательный: "&Rez13&CR&
"Винительный: "&Rez14&CR&
"Творительный: "&Rez15&CR&
"Предложный: "&Rez16)
Decl = nil

Результат работы тестового примера: 

Именительный: заведующий сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"
Родительный: заведующего сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"
Дательный: заведующему сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"
Винительный: заведующего сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"
Творительный: заведующим сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"
Предложный: заведующем сектором разработки и внедрения корпоративных проектов Отдела корпоративных информационных систем управления управления автоматизированных систем управления департамента информационных технологий ЗАО "Газпромнефтьбурение"

Именительный: Сектор разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"
Родительный: Сектора разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"
Дательный: Сектору разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"
Винительный: Сектор разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"
Творительный: Сектором разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"
Предложный: Секторе разработки и внедрения корпоративных проектов ОКИСУ управления АСУ департамента ИТ ЗАО "Газпромнефтьбурение"

Как видно из тестового примера, количество слов в наименовании должности и подразделения на результат склонения не влияет.

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

GetAppointmentPadeg

Функция предназначена для склонения наименования должностей, записанных одной строкой. Начиная с версии библиотеки 3.3.0.21 стала возможной обработка составных должностей. Разделителем в этом случае должна быть цепочка символов: пробел, дефис, пробел (' - '). При этом, каждая из должностей в в своем составе может содержать дефис (инженер-конструктор).

GetFullAppointmentPadeg

Функция позволяет получить полное наименование должности и выполнить его преобразование в заданный падеж. При объединении удаляются повторяющиеся слова при их наличии. Например: должность — Начальник цеха; подразделение — Цех нестандартного оборудования; результат — Начальник цеха нестандартного оборудования. Все, сказанное выше в отношении составных должностей, справедливо и для данной функции.

GetOfficePadeg

Функция предназначена для склонения наименования подразделений, записанных одной строкой. Кроме подразделений функция также может выполнять склонение и наименований предприятий.

коммерческая реализация библиотеки функций склонения:

http://club.directum.ru/post/Biblioteka-funkcijj-sklonenija.aspx

новость на directum.ru:

http://www.directum.ru/4142646.aspx

Алексей, спасибо! Добавил ссылку в материал.

Дмитрий, спасибо! Отличное решение. 

Дмитрий, Вы не в курсе, можно ли прикрутить данную библиотеку для работы на x64?

Имеется server 2008 r2, x64. При попытке зарегистрировать библиотеку выходит ошибка: "Возможно, модуль "Padeg.dll" не совместим с версией Windows...". Может есть какие то варианты?

Я не проверял данную библиотеку на 64-разрядных ОС. Судя по всему, данный продукт прекратил свое развитие еще в 2007 году и я не уверен, что найдется готовое решение под x64, разве что создание дополнительной "обвертки" для функций этой dll, чтобы они запускалась в 64-разрядных системах. Возможно google подскажет еще какие-нибудь способы.

В качестве альтернативы, я уже указал в материале ссылку на техрешение Библиотека функций склонения от Систем-Консалт. 

Если кто-то знает, как использовать Java-файлы из DIRECTUM, то на хабре выкладывали jar файл этой библиотеки - http://habrahabr.ru/post/161335/ - мне кажется он должен работать на x64

К сожалению, не использовал Java-файлы, и данный функционал не настолько критичен чтобы покупать ТР за те деньги (да и вообще покупать), которые продает вышеуказанная компания

Добрый день!

Инна Циликина писала "Склонение ФИО - как раз не проблема! И решается функцией DIRECTUM без дополнительных средств." - не смог найти функцию в Directum, которая это выполняет. Может кто знает, что именно имелось в виду? 

Дмитрий, это решение устанавливается на клиентскую машину или на сервер?

Скорее всего она имела в виду функцию ММФиоСклПадеж. Функция находится в группе устаревших функций и ожидать от нее высокой точности склонения не стоит. Решение, которое описано тут, устанавливается и используется на клиентской машине. Серверный вариант есть тут: Библиотека функций склонения.