自定义Split函数代码,PLSQL代码库,德仔网

代码语言

代码分类

【PLSQL】自定义Split函数

作者:mousekitty / 发布于2014/3/11/ 655

自定义Split函数


--环境：Oracle11g。请注意，在Oracle10g中不支持Continue关键字，需要用if else代替。

--函数代码

create OR REPLACE type Split_Type as object
(
s_id integer,
s_value varchar2(1000)
);

CREATE OR REPLACE TYPE Split_Table IS TABLE OF Split_Type ;


CREATE OR REPLACE FUNCTION Split (
p_strIN VARCHAR2,

p_delimiter IN VARCHAR2 default(',') --分隔符，默认逗号
)
RETURN Split_Table
IS
j INT := 0;
i INT := 1;
len INT := 0;
len1 INT := 0;
str VARCHAR2 (4000);
return_split Split_Table := Split_Table();
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);
return_split.EXTEND;
return_split (return_split.COUNT) := Split_Type(return_split.Count, str);
IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (p_str, i, j - i);
i := j + len1;
return_split.EXTEND;
return_split (return_split.COUNT) := Split_Type(return_split.Count, str);
END IF;
END LOOP;
RETURN return_split;
END Split;

--调用

select * from table (Split('张三,李四,,王武,马六', ','));

--结果

试试其它关键字

　Split　

同语言下

可能有用的

mousekitty贡献的其它代码(13)