VBScript: склонение ФИО с помощью Padeg.dll

2008-10-01T09:03:00Z

Пример использования библиотеки Padeg.dll для склонения ф.и.о. и т.д.:

fio="Иванов Иван Иванович"
Dim SomeStr, Somest, Somes
Set Decl = CreateObject("Padeg.Declension")
Somes = Decl.GetFIOPadegFS(fio,"", 3)
SomeStr = Decl.GetFIOPadegFS(fio,"", 1)
Somest = Decl.GetFIOPadegFS(fio,"", 5)
msgbox ("Справка" & vbCrLf & vbCrLf  & "Дана настоящая " & Somes & " в том, что "_
& SomeStr & " является " & Somest & ".")
Set Decl = Nothing

Скачать библиотеку можно здесь: http://www.delphikingdom.com/zip/pd_Library.zip.
Описание использования: http://www.delphikingdom.com/zip/pd_Docs.zip.
Файл исключений: http://www.delphikingdom.com/zip/Except.zip.
Подключение файла исключений описано в документации.
Автор примера - Alexbootch.

Серый форум — VBScript: склонение ФИО с помощью Padeg.dll

VBScript: склонение ФИО с помощью Padeg.dll