The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"IVR app_debitcard.2.0.0.tcl"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы Маршрутизаторы CISCO и др. оборудование. (Public)
Изначальное сообщение [Проследить за развитием треда]

"IVR app_debitcard.2.0.0.tcl" 
Сообщение от iros Найти другие сообщения данного автораПоместить сообщение в закладки. См. нижнее поле навигации.(ok) on 08-Дек-04, 22:46  (MSK)
Прикрутил к 1760 app_debitcard.2.0.0.tcl.
Все работает но только по английски.

А хочется чтоб сообщала счет в долларах но по русски.
Кто поделится опытом и файлами ?

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "IVR app_debitcard.2.0.0.tcl" 
Сообщение от ili4 emailНайти другие сообщения данного автораПоместить сообщение в закладки. См. нижнее поле навигации.(ok) on 09-Дек-04, 11:29  (MSK)
>Прикрутил к 1760 app_debitcard.2.0.0.tcl.
>Все работает но только по английски.
>
>А хочется чтоб сообщала счет в долларах но по русски.
>Кто поделится опытом и файлами ?

Попробуй в глобальном конфиге:

call application voice app tftp://10.0.0.1/app_debitcard.2.0.0.tcl
call application voice app language 0 ru
call application voice app set-location ru 0 tftp://10.0.0.1/ru/
!
где app, соответственно, название твоего приложения.
Ну и конечно в tftp://10.0.0.1/ru/ должны лежать *.au файлы на русском :)


  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "IVR app_debitcard.2.0.0.tcl" 
Сообщение от iros Найти другие сообщения данного автораПоместить сообщение в закладки. См. нижнее поле навигации.(??) on 09-Дек-04, 15:40  (MSK)
>>Прикрутил к 1760 app_debitcard.2.0.0.tcl.
>>Все работает но только по английски.
>>
>>А хочется чтоб сообщала счет в долларах но по русски.
>>Кто поделится опытом и файлами ?
>
>Попробуй в глобальном конфиге:
>
>call application voice app tftp://10.0.0.1/app_debitcard.2.0.0.tcl
>call application voice app language 0 ru
>call application voice app set-location ru 0 tftp://10.0.0.1/ru/
>!
>где app, соответственно, название твоего приложения.
>Ну и конечно в tftp://10.0.0.1/ru/ должны лежать *.au файлы на русском :)
>

Эт я знаю. А как быть со склонениями ?
В английском только доллар и доллары. А в русском.... Доллар,доллара,долларов.... И т.д.

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "IVR app_debitcard.2.0.0.tcl" 
Сообщение от ili4 emailНайти другие сообщения данного автораПоместить сообщение в закладки. См. нижнее поле навигации.(ok) on 09-Дек-04, 16:01  (MSK)
>
>Эт я знаю. А как быть со склонениями ?
>В английском только доллар и доллары. А в русском.... Доллар,доллара,долларов.... И т.д.
>

Вот тебе процедуры из моей тисиэльки:

proc get_part { part what sex} {
global prefix
set dcl(single) "1"
set dcl(some) "2-4"
set dcl(multi) "5-20"
set cur_dcl ""
set pt ""

if { $part == 0 } { return "" }

set part [expr $part % 1000]
set num(t) [expr $part % 100]
set num(h) [expr $part / 100]

if { $num(h) > 0 } {
lappend pt [set prefix]_[set num(h)]00.au
set cur_dcl $dcl(multi)
}

if {$num(t) == 0} {
set pt
} elseif {$num(t) >= 10 && $num(t) <= 19} {
lappend pt [set prefix]_[set num(t)].au
set cur_dcl $dcl(multi)
} else {
set tmp [expr $num(t) / 10]
if {$tmp} {
lappend pt [set prefix]_[set tmp]0.au
}

set tmp [expr $num(t) % 10]
if {$tmp} {
if {$tmp == 1 || $tmp == 2} {
lappend pt [set prefix]_[set tmp]_[set sex].au
} else {
lappend pt [set prefix]_[set tmp].au
}
}

switch -regexp -- $num(t) {
{^1$} -
{^[0-9]1$} { set cur_dcl $dcl(single) }
{^[2-4]$} -
{^[0-9][2-4]$} { set cur_dcl $dcl(some) }
{default} { set cur_dcl $dcl(multi) }
}
}

set suffix "s"
if {$what == "thousand"} { set suffix "" }

if {$cur_dcl == 1} {
lappend pt [set prefix]_[set what].au
} else {
lappend pt [set prefix]_[set cur_dcl]_[set what][set suffix].au
}

return $pt
}


proc get_ct_prompt { total } {
global prefix

set pt ""
if { [regexp {^[0-9]*$} $total ] == 0 } { return $pt}

set hours [expr $total / 3600]
set minutes [expr $total % 3600 / 60]
set seconds [expr $total % 60]
debug "get_ct_prompt(): ct=$total h/m/s=$hours/$minutes/$seconds"

switch $prefix {
{en} -
{sp} -
{ch} {
append pt " %t$total"
}
{default} {
append pt [get_part $hours hour m]

set tmp [get_part $minutes minute f]
if {$tmp != ""} {
if {$seconds == 0 && $hours !=0} {
append pt " [set prefix]_and.au $tmp"
} else {
append pt " $tmp"
}
}

set tmp [get_part $seconds second f]
if {$tmp != ""} {
if {$minutes != 0 || $hours != 0} {
append pt " [set prefix]_and.au $tmp"
} else {
append pt " $tmp"
}
}
}
}
debug "get_ct_prompt(): prompt=$pt"
return $pt
}


proc get_ca_prompt { total } {
global prefix
global CF

set pt ""
if { [regexp {^[0-9]*$} $total ] == 0 } { return $pt}

set thousands [expr $total / 100000]
set dollars [expr $total % 100000 / 100]
set cents [expr $total % 100]
debug "get_ca_prompt(): ct=$total t/d/c=$thousands/$dollars/$cents"

switch $prefix {
{en} -
{sp} -
{ch} {
append pt %a$total
}
{default} {
append pt [get_part $thousands thousand f]

set tmp [get_part $dollars dollar m]
if {$tmp != ""} {
append pt " $tmp"
} elseif { $thousands != 0 } {
append pt " [set prefix]_5-20_dollars.au"
}

switch $CF(Currency) {
{RUR} {
set tmp [get_part $cents cent f]
}
{default} {
set tmp [get_part $cents cent m]
}
}

if {$tmp != ""} {
if {$thousands != 0 || $dollars != 0} {
append pt " [set prefix]_and.au $tmp"
} else {
append pt " $tmp"
}
}

}
}
debug "get_ca_prompt(): prompt=$pt"
return $pt
}

чтоб это озвучить вызываешь что-нибудь вроде
  set spool "[set prefix]_you_have.au [get_ca_prompt $amt]"

файлы выглядят так:
ru_you_have.au
ru_0.au ноль
ru_1.au один
ru_1_a.au одна
ru_1_f.au одна
ru_1_m.au один
ru_5-20_cents.au копеек
ru_5-20_dollars.au рублей
ru_5-20_hours.au часов
ru_5-20_minutes.au минут
ru_5-20_seconds.au
ru_5-20_thousand.au
...
ru_2-4_cents.au копейки
ru_2-4_dollars.au рубля
ru_2-4_hours.au ...
ru_2-4_minutes.au ...
ru_2-4_seconds.au ...
....
.....
ну и т.д...

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру