PLSQL 实现split

PLSQL 实现split：

FUNCTION Get_Field_Value

(

in_str IN VARCHAR2,

findstr IN VARCHAR2,

field IN INTEGER

) RETURN VARCHAR2 AS

tmp_msg VARCHAR2(20);

-- 取字段 值 ，field start from 0

startidx INTEGER;

endidx INTEGER;

BEGIN

startidx := 1;

endidx := 1;

FOR i IN 1 .. field

LOOP

--INSTR(in_string,'|',tmp_pos);

--substr(in_string,tmp_pos,tmp_pos1-tmp_pos);

IF i > 1 THEN

startidx := INSTR(in_str, findstr, startidx);

IF startidx = 0 THEN

RETURN NULL;

END IF;

startidx := startidx + length(findstr);

END IF;

END LOOP;

endidx := INSTR(in_str, findstr, startidx);

IF endidx = 0 THEN

endidx := length(in_str) + 1;

END IF;

RETURN substr(in_str, startidx, endidx - startidx);

EXCEPTION

WHEN OTHERS THEN

RETURN NULL;

END;

例二

TYPE ARRAY IS TABLE OF VARCHAR2(255);

FUNCTION SPLIT(P_STR IN VARCHAR2, P_DELIMITER IN VARCHAR2) RETURN ARRAY IS

J INT := 0;

I INT := 1;

LEN INT := 0;

LEN1 INT := 0;

STR VARCHAR2(4000);

STR_SPLIT ARRAY := ARRAY();

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);

STR_SPLIT.EXTEND;

STR_SPLIT(STR_SPLIT.COUNT) := STR;

IF I >= LEN THEN

EXIT;

END IF;

ELSE

STR := SUBSTR(P_STR, I, J - I);

I := J + LEN1;

STR_SPLIT.EXTEND;

STR_SPLIT(STR_SPLIT.COUNT) := STR;

END IF;

END LOOP;

RETURN STR_SPLIT;

END SPLIT;

调用：

STR_SPLIT := SPLIT('A,B,C,D,E,F', ',');

FOR I IN 1 .. STR_SPLIT.COUNT LOOP

DBMS_OUTPUT.PUT_LINE(I);

END LOOP;