oracle自定义判断数据是否为数值函数

CREATE OR REPLACE FUNCTION isnumeric (str IN VARCHAR2)
    RETURN NUMBER
IS
    v_str VARCHAR2 (1000);
BEGIN
    IF str IS NULL
    THEN
       RETURN 0;
    ELSE
       v_str := translate(str, '.0123456789', '.');

       IF v_str = '.' OR v_str = '+.' OR v_str = '-.' OR v_str IS NULL
       THEN
          RETURN str;
       ELSE
          RETURN 0;
       END IF;
    END IF;
END isnumeric;

一、语法： 
TRANSLATE(string,from_str,to_str) 
二、目的 
返回将（所有出现的）from_str中的每个字符替换为to_str中的相应字符以后的string。TRANSLATE 是 REPLACE 所提供的功能的一个超集。如果 from_str 比 to_str 长，那么在 from_str 中而不在 to_str 中的额外字符将从 string 中被删除，因为它们没有相应的替换字符。to_str 不能为空。Oracle 将空字符串解释为 NULL，并且如果TRANSLATE 中的任何参数为NULL，那么结果也是 NULL。 
三、示例 
Sql代码

1. SELECT TRANSLATE('abcdefghij','abcdef','123456') FROM dual; 
2. TRANSLATE ( 
3. -------------- 
4. 123456ghij 
5. 
6. SELECT TRANSLATE('abcdefghij','abcdefghij','123456') FROM dual; 
7. TRANSL 
8. ---------- 
9. 123456 

语法：TRANSLATE(expr,from,to)

expr: 代表一串字符，from 与 to 是从左到右一一对应的关系，如果不能对应，则视为空值。

举例：

select translate('abcbbaadef','ba','#@') from dual　（b将被＃替代，a将被＠替代）

select translate('abcbbaadef','bad','#@') from dual　（b将被＃替代，a将被＠替代，d对应的值是空值，将被移走）

因此：结果依次为：@#c##@@def 和@#c##@@ef