我们在使用Oracle数据库编写存储过程时,经常会遇到判断一个字符串是否是数字串,若是,则把它转换成数值。oracle没有现成的函数来完成这个工作,我们只有自己编写函数来实现。我在下面的实例中没有编程函数来使用,直接在存储过程中实现。这段代码如下:
ls_firstchar:=substr(prm_jkz,1,1);
if ls_firstchar='-' then
ls_value:=substr(prm_jkz,2,length(prm_jkz) - 1);
else
ls_value:=prm_jkz;
end if;
if length(translate(ls_value,'.0123456789'||ls_value,'.0123456789'))=length(ls_value) then
if ls_firstchar='-' then
ls_value:='-'||ls_value;
end if;
ln_value:=round(to_number(ls_value),2);
ls_value:=to_char(ln_value);
insert into zb_rdata_history (jkzbh,gettime,value)
values(prm_jkzbh,sysdate,ls_value);
end if;
这段程序先判断变量 prm_jkz 的首字符是否为负号,若是,去掉负号。然后用translate(ls_value,'.0123456789'||ls_value,'.0123456789') 把字符串中的非数字去掉, 最后比较去掉非数字的字符串后的长度是否和原来一样,若一样,则表示全数字(可能含小数点)。接下来把字符串转换成数值保存到表zb_rdata_history 。