在现在这样一个全球化环境中，因为在不同的语言中有很多不同的语法规则，所以以前很多简单的任务现在都变得很困难。你可以将一门特定的语言分成一组语法规则和针对这些规则的异常（以及一个基本词语），从而将这些任务一般化。在一些编程语言（比如 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 sessi> select to_char(to_date(''0505'',''MMDD''),''Ddspth M> Fifth Mayo
在为大多数语言生成数字时涉及的语法实际上相当简单。主体工作包括收集所有不同的语法规则并建立起足够的规则来生成正确的语法模式。（现在我将回避涉及到匹配数字和性别的问题。）
首先，我将创建两个表：第一个表保存基本的单词和异常，第二个表保存用于生成文本的一些简单的模板模式。如果在第一个表中有数字，那么我的语言函数就返回那个文本。对于其它每个数字，我将试图在一系列模式中匹配它，并应用一个模板来生成正确的文本。
create table numwords
(
lang varchar2(2),
num integer,
word varchar2(30),
c> );
create table numrules
(
lang varchar2(2),
seq integer,
p1 integer,
p2 integer,
temp0 varchar2(30),
temp varchar2(30),
c> );
下面是生成一个数字拼写版本所需的代码。这里我将按照基数来（比如1、2和3）；而事实上，这些函数可以通过为每种语言列出更多异常和模式来生成序数（第1、第2、第三）和复数版本。
REM -- create a table of base words and excepti> create or replace package genword
as
functi> functi> end genword;
/
show errors;
create or replace package body genword
as
functi> is
l_wordnumwords.word%type;
begin
select word into l_word from numwords
where lang = sys_c> return l_word;
excepti> when no_data_found then
return null;
end;
--
functi> is
p number; -- power
t varchar2(30); -- template
v number; -- lower porti> l_word numwords.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_c> 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 milli>REM -- create a table of base words and excepti> create or replace package genword
as
functi> functi> end genword;
/
show errors;
create or replace package body genword
as
functi> is
l_wordnumwords.word%type;
begin
select word into l_word from numwords
where lang = sys_c> return l_word;
excepti> when no_data_found then
return null;
end;
--
functi> is
p number; -- power
t varchar2(30); -- template
v number; -- lower porti> l_word numwords.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_c> 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 sessi> SQL> select genword.cardinal(123456789) from dual;
> eighty-nine
无忧CMS，5ucms.org建站仿站首选！
| 上一篇：5ucms插件,手工卸载SQL Server 2000数据库 下一篇：5ucms教程,使用SQL Server 2005中的CLR集成 |
|
| 本站声明：本网站所载文章等内容，目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权及其它问题，请在30日内与本网联系（Email：3876307#qq.com），我们将在第一时间删除内容。若原创内容转载请注明出处。 5ucms仿站,使用SQL创建语言辅助函数的关键词: |
|
相关分类
本类最新
