分享
 
 
 

Sql server如何创建语言辅助函数

王朝mssql·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

在现在这样一个全球化环境中,因为在不同的语言中有很多不同的语法规则,所以以前很多简单的任务现在都变得很困难。你可以将一门特定的语言分成一组语法规则和针对这些规则的异常(以及一个基本词语),从而将这些任务一般化。在一些编程语言(比如 Perl 和 Java)中,有一些公共域(domain)模块可以用来对文本完成语言转换。

下面给出一个稍微简单一点儿的例子,假设我们要将一个数字转换成其拼写版本(例如需要填写支票和法律合同)。这个诀窍在 Oracle 出现的早期已经有了,一般都以如下方式使用:

selectto_char(to_date(12345,'J'),'Jsp') from dual;

Twelve Thousand Three Hundred Forty-Five

TO_DATE 函数使用 Julian 日期格式将数字转换成一个日期。然后,TO_CHAR 接受一个日期参数并再次将其格式化为一个表示 Julian 日期的拼写数字版本的字符串。但是这个决窍有一些限制。

首先,在 Oracle 中 Julian 日期的最大有效值是9999年,所以日期的最大值只能取到5373484,而最小值是1或4712BC。而且,因为没有第“零”年,所以如果不额外使用一个 DECODE 或 CASE 语句就不可能生成文本“零”。第三个大的限制是它会忽略掉你的 NLS 设置。不管你使用的是哪种语言,数字总是以美国英语拼写出。一些简单的操作也存在这样的问题,比如拼写出天。例如,尝试生成西班牙语短语“Cinco de Mayo”:

alter session set nls_language = 'SPANISH';

select to_char(to_date('0505','MMDD'),'Ddspth Month') from dual;

Fifth Mayo

在为大多数语言生成数字时涉及的语法实际上相当简单。主体工作包括收集所有不同的语法规则并建立起足够的规则来生成正确的语法模式。(现在我将回避涉及到匹配数字和性别的问题。)

首先,我将创建两个表:第一个表保存基本的单词和异常,第二个表保存用于生成文本的一些简单的模板模式。如果在第一个表中有数字,那么我的语言函数就返回那个文本。对于其它每个数字,我将试图在一系列模式中匹配它,并应用一个模板来生成正确的文本。

create table numwords

(

langvarchar2(2),

num integer,

wordvarchar2(30),

constraint numwords_pk primary key (lang,num)

);

create table numrules

(

langvarchar2(2),

seq integer,

p1integer,

p2integer,

temp0 varchar2(30),

tempvarchar2(30),

constraint numrules_pk primary key (lang,seq)

);

下面是生成一个数字拼写版本所需的代码。这里我将按照基数来(比如1、2和3);而事实上,这些函数可以通过为每种语言列出更多异常和模式来生成序数(第1、第2、第三)和复数版本。

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_wordnumwords.word%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_wordnumwords.word%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 row.seq = 0 then

if n < 20 then

return replace(row.temp0,'~2',cardinal(v));

end if;

else

if v = 0 then

return replace(row.temp0,'~1',cardinal(n/p));

else

return replace(replace(nvl(row.temp,'~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;

最后,这里是我为英语和德语收集的一些数据。我还将数据从美国英语拷贝到英国英语中并使用术语“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_wordnumwords.word%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_wordnumwords.word%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 row.seq = 0 then

if n < 20 then

return replace(row.temp0,'~2',cardinal(v));

end if;

else

if v = 0 then

return replace(row.temp0,'~1',cardinal(n/p));

else

return replace(replace(nvl(row.temp,'~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 genword.cardinal(123456789) from dual;

one hundred twenty-three million four hundred fifty-six thousand seven hundred

eighty-nine

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有