oracle 数据库用函数拆分字符串

首先在types那里定义T_VARRAY的表类型

CREATE OR REPLACE TYPE "T_VARRAY"

IS

TABLE OF VARCHAR2(200)

定义函数 STR_SPLIT，P_LIST为要拆分的字符串aa,bb,cc 。P_SEP 为拆分的字符，

CREATE OR REPLACE FUNCTION STR_SPLIT(

P_LIST IN VARCHAR2,P_SEP IN VARCHAR2

) RETURN T_VARRAY

IS

L_IDX number;

V_LIST VARCHAR2(250) := P_LIST;

RES VARCHAR2(250);

J NUMBER(4):=1;

CSTR T_VARRAY := T_VARRAY(); --声明集合

BEGIN

LOOP

L_IDX := INSTR(V_LIST, P_SEP);

IF L_IDX > 0 THEN

RES := SUBSTR(V_LIST, 1, L_IDX - 1);

CSTR.EXTEND(1);

CSTR(J) := RES;

V_LIST := SUBSTR(V_LIST, L_IDX + LENGTH(P_SEP));

ELSE

RES := V_LIST;

CSTR.EXTEND(1);

CSTR(J) := RES;

EXIT;

END IF;

J :=J+1;

END LOOP;

RETURN CSTR;

END STR_SPLIT;

测试

declare

-- Non-scalar parameters require additional processing

result T_VARRAY;

begin

-- Call the function

result := STR_SPLIT(P_LIST => :P_LIST,

P_SEP => :P_SEP);

for j in 1..result.count loop

dbms_output.put_line(j||'='||result(j));

end loop;

end;