Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / Function Procedure Packages

 

Removes all numeric digits from the string passed in

SQL>  CREATE OR REPLACE FUNCTION number_stripper(p_string VARCHAR2) RETURN VARCHAR2   2  IS   3     v_current_element NUMBER;   4     v_char_length NUMBER;   5     v_ret_val VARCHAR2 (2000);   6     v_current_char VARCHAR2 (1);   7  BEGIN   8     v_char_length := LENGTH (p_string);   9     v_current_element := 1;  10  11     LOOP  12        EXIT WHEN v_current_element > v_char_length;  13        v_current_char := SUBSTR (p_string, v_current_element, 1);  14  15        IF TRANSLATE (v_current_char, '1234567890', '**********') != '*'  16           OR v_current_char = '~'  17        THEN  18           v_ret_val := v_ret_val || v_current_char;  19        END IF;  20  21        v_current_element := v_current_element + 1;  22     END LOOP;  23  24     RETURN (v_ret_val);  25  END;  26  / Function created. SQL> select number_stripper('asdf123') from dual; NUMBER_STRIPPER('ASDF123') -------------------------------------------------------------------------------- asdf SQL>