简体中文数字转阿拉伯数字,分为两个存储过程,一个是处理小数位的,一个是处理整数位的,加入部分检错处理,没有穷举所有非法输入,支持数据大小为:number型支持到多少就支持到多少,这是个写得比较好的转换方法,不过当遇到如10000 0000 0000 0000 这么大的数字,我的习惯是称之为“一万万亿”,可能有人认为应该叫做“一亿亿”,那就一习惯问题,改起来也不难,有需要再改吧。
--将中文数字转为阿拉伯小数
function cnNum2AraDec(p_cnNum string) return number is
v_cnNum varchar2(255);
t_cnNum varchar(4);
v_dec varchar2(255);
v_num number;
begin
if p_cnNum is not null then
if instr(p_cnNum, '点') > 1 then
v_cnNum := substr(p_cnNum, instr(p_cnNum, '点') + 1);
for i in 1 .. length(v_cnNum) loop
t_cnNum := substr(v_cnNum, i, 1);
begin
v_dec := v_dec || case
when t_cnNum = '一' then
1
when t_cnNum = '二' then
2
when t_cnNum = '三' then
3
when t_cnNum = '四' then
4
when t_cnNum = '五' then
5
when t_cnNum = '六' then
6
when t_cnNum = '七' then
7
when t_cnNum = '八' then
8
when t_cnNum = '九' then
9
when t_cnNum = '〇' then
0
end; --出现这十个数字以外的将报错
exception
when others then
raise_application_error(-20999, '非法中文数字!');
end;
end loop;
v_num := to_number('0.' || v_dec);
if instr(p_cnNum, '负') = 1 then
v_num := -v_num;
end if;
return v_num;
else
return null;
end if;
else
return null;
end if;
end;
--将中文数字转为阿拉伯整数
function cnNum2AraInt(p_cnNum string) return number is
i pls_integer;
v_cnPNum varchar2(255); --整数部分
t_araNum number;
s_araNum number := 0;
t_cnNum varchar(4);
t2_cnNum varchar2(4);
len pls_integer;
dn pls_integer; --十的次数,为空时不用检错,为0时需要检查数字相连接的错误输入
wn pls_integer := 0; --万的次数
begin
if instr(p_cnNum, '点') > 0 then
v_cnPNum := substr(p_cnNum, 1, instr(p_cnNum, '点') - 1);
else
v_cnPNum := p_cnNum;
end if;
if instr(v_cnPNum, '负') = 1 then
v_cnPNum := substr(v_cnPNum, 2);
end if;
--如果以'十'开头,则在前面补'一'
if substr(v_cnPNum, 1, 1) = '十' then
v_cnPNum := '一' || v_cnPNum;
end if;
len := length(v_cnPNum);
i := len;
loop
exit when i <= 0;
t_cnNum := substr(v_cnPNum, i, 1);
if t_cnNum in ('十', '百', '千') and dn > 0 then
raise_application_error(-20999, '非法中文数字!'); --当出现"十百千"相连接时,为非法中文数字
end if;
case
when t_cnNum = '十' then
dn := 1;
i := i - 1;
when t_cnNum = '百' then
dn := 2;
i := i - 1;
when t_cnNum = '千' then
dn := 3;
i := i - 1;
when t_cnNum = '万' then
dn := null;
wn := nvl(wn, 0) + 1;
i := i - 1;
when t_cnNum = '亿' then
dn := null;
wn := 2;
i := i - 1;
else
if t_cnNum in
('一', '两', '二', '三', '四', '五', '六', '七', '八', '九') and dn = 0 then
raise_application_error(-20999, '非法中文数字!'); --当出现"一二三四..."相连接时,为非法中文数字
end if;
t_araNum := case
when t_cnNum = '一' then
1
when t_cnNum = '二' then
2
when t_cnNum = '两' then
2
when t_cnNum = '三' then
3
when t_cnNum = '四' then
4
when t_cnNum = '五' then
5
when t_cnNum = '六' then
6
when t_cnNum = '七' then
7
when t_cnNum = '八' then
8
when t_cnNum = '九' then
9
when t_cnNum = '〇' then
0
end;
if t_araNum is null then
--不在所有有效中文数字中,则报错
raise_application_error(-20999, '非法中文数字!');
elsif t_araNum is not null then
s_araNum := s_araNum + t_araNum * power(10, nvl(dn, 0)) *
power(10000, nvl(wn, 0));
i := i - 1;
dn := 0; --重置十的次数为0;
t_araNum := null;
end if;
end case;
end loop;
if instr(p_cnNum, '负') = 1 then
s_araNum := -s_araNum;
end if;
return s_araNum;
end;
--将中文数字转为阿拉伯数字
function cnNumtoAraNum(p_cnnum string) return number is
begin
return nvl(cnNum2AraInt(p_cnnum), 0) + nvl(cnNum2AraDec(p_cnnum), 0);
end;