如何创建语言辅助函数的
最后，这里是我为英语和德语收集的一些数据。我还将数据从美国英语拷贝到英国英语中并使用术语“thousand million”和“million million”代替“billion”和“trillion”（美国用法），在美国之外这两个短语通常是混淆的来源。这些数据对生成-999,999,999,999到999,999,999,999之间所有整数（包括零）的拼写版本已经足够了。
REM -- create a table of base words and exceptions
create or replace package genword
as
function get_word(n number) return varchar2;
function cardinal(n number) return varchar2;
end genword;
/
show errors;
create or replace package body genword
as
function get_word(n number) return varchar2
is
l_rd%type;
begin
select word into l_word from numwords
where lang = sys_context(\'userenv\',\'lang\') and num = n;
return l_word;
exception
when no_data_found then
return null;
end;
--
function cardinal(n number) return varchar2
is
p number; -- power
t varchar2(30); -- template
v number; -- lower portion
l_word rd%type;
begin
if n 0 then
做省钱环保达人。 l_word := get_word(-1);
if l_word is null then
return null;
end if;
return l_word||\' \'||cardinal(-n);
end if;
l_word := get_word(n);
if l_word is not null then
return l_word;
end if;
for row in
(
select * from numrules
where lang = sys_context(\'userenv\',\'lang\')
order by seq
)
loop
if length(n) = row.p1 + row.p2 then
p := power(10,row.p2);
v := mod(n,p);
if q = 0 then
if n 20 then
return replace(mp0,\'~2\',cardinal(v));
end if;
else
if v = 0 then
return replace(mp0,\'~1\',cardinal(n/p));
else
return replace(replace(nvl(mp,\'~1 ~2\'),
\'~1\',cardinal(n-v)),
\'~2\',cardinal(v));
end if;
end if;
end if;
end loop;
return \'NUMBER TOO LARGE\';
end cardinal;
end genword;
/
show errors;
下面是一些简单的 SQL 语句，这些语句使用了前面提供到函数和数据。你可以试一下将语言设成‘GERMAN’，或‘ENGLISH’来测试其它两组数据： SQL alter session set nls_language = \'AMERICAN\'; SQL select rdinal() from dual; one hundred twenty-three million four hundred fifty-six thousand seven hundred eighty-nine
石家庄妇科医院排名郑州白癜风医院
长春男科医院
- 上一篇：如何创建语言辅助函数呢
- 下一篇：如何删除群集实例