1 CREATE OR REPLACE FUNCTION isnumeric (str IN VARCHAR2)
2     RETURN NUMBER
3 IS
4     v_str VARCHAR2 (1000);
5 BEGIN
6     IF str IS NULL
7     THEN
8        RETURN 0;
9     ELSE
10        v_str := translate(str， '.0123456789'， '.');
11
12        IF v_str = '.' OR v_str = '+.' OR v_str = '-.' OR v_str IS NULL
13        THEN
14           RETURN str;
15        ELSE
16           RETURN 0;
17        END IF;
18     END IF;
19 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