Oracle拆分字符串函数

--定义类型
CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2(4000);
--创建函数
CREATE OR REPLACE FUNCTION f_stringsplit (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)
    RETURN ty_str_split PIPELINED
/*****
****字符串拆分,相当于java.lang.String类的split方法
****注意:新增types:CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (100);
****创建者：
****时间：
****摘取网络资源
***/
IS
    j INT := 0;
    i INT := 1;
    len INT := 0;
    len1 INT := 0;
    str VARCHAR2 (100);
BEGIN
    len := LENGTH (p_str);
    len1 := LENGTH (p_delimiter);
    WHILE j < len
    LOOP
        j := INSTR (p_str, p_delimiter, i);
        IF j = 0
        THEN
            j := len;
            str := SUBSTR (p_str, i);
            PIPE ROW (str);
            IF i >= len
            THEN
                EXIT;
            END IF;
        ELSE
            str := SUBSTR (p_str, i, j - i);
            i := j + len1;
            PIPE ROW (str);
        END IF;
    END LOOP;
    RETURN;
END f_stringsplit;
--调用
select　*　from　t