* Oracle 创建 split 和 splitstr 函数 

*/

/* 创建一个表类型 */

create or replace type tabletype as table of VARCHAR2(32676)

/

/* 创建 split 函数 */

CREATE OR REPLACE FUNCTION split (p_list CLOB, p_sep VARCHAR2 := ',')

RETURN tabletype

PIPELINED

/************************************** 

* Name: split 

* Author: Sean Zhang. 

* Date: 2012-09-03. 

* Function: 返回字符串被指定字符分割后的表类型。 

* Parameters: p_list: 待分割的字符串。 

p_sep: 分隔符，默认逗号，也可以指定字符或字符串。 

* Example: SELECT * 

FROM users 

WHERE u_id IN (SELECT COLUMN_VALUE 

FROM table (split ('1,2'))) 

返回u_id为1和2的两行数据。 

**************************************/

IS

l_idx PLS_INTEGER;

v_list VARCHAR2 (32676) := p_list;

BEGIN

LOOP

l_idx := INSTR (v_list, p_sep);

IF l_idx > 0

THEN

PIPE ROW (SUBSTR (v_list, 1, l_idx - 1));

v_list := SUBSTR (v_list, l_idx + LENGTH (p_sep));

ELSE

PIPE ROW (v_list);

EXIT;

END IF;

END LOOP;

END;

/

/* 创建 splitstr 函数 */

CREATE OR REPLACE FUNCTION splitstr (str IN CLOB,

i IN NUMBER := 0,

sep IN VARCHAR2 := ','

)

RETURN VARCHAR2

/************************************** 

* Name: splitstr 

* Author: Sean Zhang. 

* Date: 2012-09-03. 

* Function: 返回字符串被指定字符分割后的指定节点字符串。 

* Parameters: str: 待分割的字符串。 

i: 返回第几个节点。当i为0返回str中的所有字符，当i 超过可被分割的个数时返回空。 

sep: 分隔符，默认逗号，也可以指定字符或字符串。当指定的分隔符不存在于str中时返回sep中的字符。 

* Example: select splitstr('abc,def', 1) as str from dual; 得到 abc 

select splitstr('abc,def', 3) as str from dual; 得到 空 

**************************************/

IS

t_i NUMBER;

t_count NUMBER;

t_str VARCHAR2 (4000);

BEGIN

IF i = 0

THEN

t_str := str;

ELSIF INSTR (str, sep) = 0

THEN

t_str := sep;

ELSE

SELECT COUNT ( * )

INTO t_count

FROM table (split (str, sep));

IF i <= t_count

THEN

SELECT str

INTO t_str

FROM (SELECT ROWNUM AS item, COLUMN_VALUE AS str

FROM table (split (str, sep)))

WHERE item = i;

END IF;

END IF;

RETURN t_str;

END;

/