Oracle使用split和splitstr函数批量分隔字符串

tabletype： createorreplace type tabletype astableofVARCHAR2(32676);

            CREATE
            OR
            REPLACE
            FUNCTION split (p_list CLOB, p_sep VARCHAR2 :=‘,‘)
RETURN tabletype
PIPELINED
IS/* 
* 2015-11-11 
* Function: 返回字符串被指定字符分割后的表类型。
* Parameters: p_list: 待分割的字符串。
p_sep: 分隔符，默认逗号，也可以指定字符或字符串。 

*/

l_idx PLS_INTEGER;
v_list VARCHAR2 (32676) := p_list;
BEGIN
LOOP
l_idx := INSTR (v_list, p_sep);

IF l_idx >0THENPIPE ROW (SUBSTR (v_list, 1, l_idx -1));
v_list := SUBSTR (v_list, l_idx + LENGTH (p_sep));
ELSEPIPE ROW (v_list);
EXIT;
ENDIF;
END LOOP;
END; 

            CREATE
            OR
            REPLACE
            FUNCTION splitstr (strIN CLOB,
i ININT,
sep VARCHAR2 :=‘,‘)
RETURNVARCHAR2/* 
* 2015-11-11
* Function: 返回字符串被指定字符分割后的指定节点字符串。
* Parameters: str: 待分割的字符串。
i: 返回第几个节点。当i为0返回str中的所有字符，当i 超过可被分割的个数时返回空。
sep: 分隔符，默认逗号，也可以指定字符或字符串。当指定的分隔符不存在于str中时返回sep中的字符。 
*/IS
t_i NUMBER;
t_count NUMBER;
t_str VARCHAR2 (400);
BEGINIF i =0THEN
t_str :=str;
ELSIF INSTR (str, sep) =0THEN
t_str := sep;
ELSESELECTCOUNT (*) INTO t_count FROMTABLE (split (str, sep));

IF i <= t_count
THENSELECTstrINTO t_str
FROM (SELECT ROWNUM AS item, COLUMN_VALUE ASstrFROMTABLE (split (str, sep)))
WHERE item = i;
ENDIF;
ENDIF;

RETURN t_str;
END;

            select split(‘1,2‘) from dual;

select splitstr(‘abc,def‘, 2) asstrfrom dual;

select*fromtable (split(‘1,2‘,‘,‘));