• 创建TYPE

CREATE OR REPLACE TYPE TYPE_SPLIT AS TABLE OF VARCHAR2 (4000);

• 创建函数

CREATE OR REPLACE FUNCTION SPLIT(P_STRING VARCHAR2, P_SEP VARCHAR2 := ',')RETURN TYPE_SPLITPIPELINED ISIDX  PLS_INTEGER;V_STRING VARCHAR2(4000) := P_STRING;
BEGINLOOPIDX := INSTR(V_STRING, P_SEP);IF IDX > 0 THENPIPE ROW(SUBSTR(V_STRING, 1, IDX - 1));V_STRING := SUBSTR(V_STRING, IDX + LENGTH(P_SEP));ELSEPIPE ROW(V_STRING);EXIT;END IF;END LOOP;
END;

• 使用