【笔记】判断输入值是否为数字（函数）

--1. 利用 to_number
CREATE OR REPLACE FUNCTION isnumeric(str IN VARCHAR2) RETURN NUMBER
IS
  v_str FLOAT;
BEGIN
     IF str IS NULL THEN
        RETURN 0;
     ELSE
        BEGIN
             SELECT TO_NUMBER(str) INTO v_str FROM dual;
        EXCEPTION
             WHEN invalid_number THEN
                  RETURN 0;
        END;        
        RETURN 1;
     END IF;
END isnumeric; 

--2. 利用 regexp_like
CREATE OR REPLACE FUNCTION isnumeric (str IN VARCHAR2) RETURN NUMBER IS
BEGIN
    IF str IS NULL  THEN
       RETURN 0;
    ELSE
       IF regexp_like (str, '^(-{0,1}+{0,1})[0-9]+(.{0,1}[0-9]+)$')  THEN
          RETURN 1;
       ELSE
          RETURN 0;
       END IF;
    END IF;
END isnumeric;

--3. 利用 TRANSLATE
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 1;
       ELSE
          RETURN 0;
       END IF;
    END IF;
END isnumeric;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/22786751/viewspace-621878/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/22786751/viewspace-621878/