Имя: Пароль:
1C
1С v8
Склонение словосочетаний
0 Вик72
 
17.04.13
12:30
Приветствую!

Нужна функция или обработка для сколнений. Всюду лежат функции для склонения ФИО, а мне нужно склонение словосочетаний, например "морской порт" -> "морских портов".
1 ale-sarin
 
17.04.13
12:32
Морфер нормальная штука.
2 1Сергей
 
17.04.13
12:34
ОбщегоНазначения.ПреобразоватьФИОВДательныйПадеж(Новый Структура("Фамилия, Имя, Отчество", "морской","порт", "")) = Морскому Порту
3 1Сергей
 
17.04.13
12:35
ОбщегоНазначения.ПреобразоватьФИОВРодительныйПадеж(Новый Структура("Фамилия, Имя, Отчество", "морской","порт", "")) = Морского Порта
4 zak555
 
17.04.13
12:36
два реквизита
5 Wobland
 
17.04.13
12:36
(2) под рукой? затести "качественное мороженое", "дикая степь"
6 Wobland
 
17.04.13
12:37
слушайте, а как функции склонения фамилий склоняют "Гольдберг"? зависит от пола же
7 1Сергей
 
17.04.13
12:38
(5) Качественноеа Мороженоеа
Дикая  Степя

:)
8 Вик72
 
17.04.13
12:41
(0) сорри, в примере я, конечно, имел ввиду "морские порты" -> "морских портов"
9 1Сергей
 
17.04.13
12:44
10 mistеr
 
17.04.13
12:56
(1) Пользуетесь?
11 Filippov
 
17.04.13
12:58
(1) +
ОпределениеМорфер=Новый WSОпределения("http://morpher.ru/WebService.asmx?WSDL");

Морфер=Новый WSПрокси(ОпределениеМорфер,"http://morpher.ru/","WebService","WebServiceSoap");


испльзование вот так
Функция ПросклонятьПодразделениеДолжность(исхТекст, номерПадежа)
   
   попытка
       Результат=Морфер.GetXml(исхТекст);
       
       Если номерПадежа = 2 Тогда
           РезТекст = Результат.Р;
       ИначеЕсли номерПадежа = 3 Тогда
           РезТекст = Результат.Д;
       ИначеЕсли номерПадежа = 4 Тогда
           РезТекст = Результат.В;
       ИначеЕсли номерПадежа = 5 Тогда
           РезТекст = Результат.Т;
       Иначе    
           РезТекст = Результат.П;
       конецЕсли;
   Исключение
       РезТекст = исхТекст;    
   конецПопытки;
   
   возврат РезТекст;
   
конецФункции
12 Filippov
 
17.04.13
13:01
(10) Пользуюсь. За денежки можно пользоваться без WS
13 ale-sarin
 
17.04.13
13:02
(10) Да. Купил. ДЛЛ сунул в общий макет. И беды не знаю.
14 ale-sarin
 
17.04.13
13:03
+13 без интернета, как предлагают в (11)
15 mistеr
 
17.04.13
13:09
(12) (13) За сколько купили? Что-то он цены скрывает.
И какова схема лицензирования.
16 ale-sarin
 
17.04.13
13:46
(15) В прошлом году было 3т.р. Про лицензирование стесняюсь говорить, сами узнаете.
17 Wobland
 
17.04.13
13:53
а ещё коварные примеры: "красно солнышко", "гой еси добрый молодец" ;)
18 Godofsin
 
17.04.13
13:56
(17) ну таких кучу придумать можно =) "Сине бомжишко"...
Программист всегда исправляет последнюю ошибку.