1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

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

Пример использования библиотеки 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.

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