oracle 字符串切分包函数

create or replace package StringSplit is
type Col_MaskIndexChar is Record(
MaskIndexOfString int);
type v_table is table of Col_MaskIndexChar index by binary_integer;
My_table v_table;
Col_COUNT INT;

FUNCTION COLCOUNT(PVAR_S VARCHAR2, PVAR_MASK VARCHAR2) RETURN INT;
FUNCTION GETCOL(PVAR_S VARCHAR2, PVAR_INDEX INT, PVAR_MASK VARCHAR2) RETURN VARCHAR2;
FUNCTION COLINDEX(PVAR_S VARCHAR2,PVAR_SUBSTR VARCHAR2,PVAR_MASK VARCHAR2) RETURN INT;
end StringSplit;
/
create or replace package body StringSplit is

--获取第PVAR_INDEX列的值
FUNCTION GETCOL(PVAR_S VARCHAR2, PVAR_INDEX INT, PVAR_MASK VARCHAR2)
RETURN VARCHAR2 IS
PVAR_I INT;
I_INDEX int;
PVAR_RESULT VARCHAR2(4096);
BEGIN
PVAR_I := 0;
i_index := PVAR_INDEX;
if Col_COUNT = 0 then
Col_COUNT := COLCOUNT(PVAR_S, PVAR_MASK);
IF i_index >= Col_COUNT THEN
RETURN ' ';
END IF;
if i_index < 0 then
i_index := Col_COUNT + i_index ;
if i_index < 0 then
RETURN ' ';
end if;
end if;
else
IF i_index >= Col_COUNT THEN
RETURN ' ';
END IF;
if i_index < 0 then
i_index := Col_COUNT + i_index ;
if i_index < 0 then
RETURN ' ';
end if;
end if;
end if;
PVAR_RESULT := PVAR_MASK || PVAR_S;
PVAR_RESULT := SUBSTR(PVAR_RESULT,
my_table (i_index).MaskIndexOfString,
my_table (i_index + 1).MaskIndexOfString - my_table(i_index)
.MaskIndexOfString - 1);
RETURN PVAR_RESULT;
END GETCOL;

--获取被分隔符分割的列数
FUNCTION COLCOUNT(PVAR_S VARCHAR2, PVAR_MASK VARCHAR2) RETURN INT IS
PVAR_I INT;
PVAR_LEN INT;
PVAR_COUNT INT;
PVAR_INST INT;
PVAR_RESULT varchar2(4096);
BEGIN
PVAR_I := 0;
PVAR_LEN := LENGTH(PVAR_S);
PVAR_COUNT := 0;

IF PVAR_LEN = 0 THEN
RETURN PVAR_COUNT;
END IF;
PVAR_RESULT := PVAR_MASK || PVAR_S || PVAR_MASK;
WHILE PVAR_I < PVAR_LEN + 2 LOOP
PVAR_I := PVAR_I + 1;
PVAR_INST := INSTR(PVAR_RESULT, PVAR_MASK, PVAR_I);
IF PVAR_INST > 0 THEN
PVAR_I := PVAR_INST;
PVAR_COUNT := PVAR_COUNT + 1;
my_table(PVAR_COUNT - 1).MaskIndexOfString := PVAR_INST + 1;
END IF;
END LOOP;
Col_COUNT := PVAR_COUNT - 1;
RETURN PVAR_COUNT - 1;
END COLCOUNT;

FUNCTION COLINDEX(PVAR_S VARCHAR2,
PVAR_SUBSTR VARCHAR2,
PVAR_MASK VARCHAR2) RETURN INT IS
PVAR_I INT;
PVAR_COUNT INT;
PVAR_RESULT INT;
BEGIN
PVAR_I := 0;
PVAR_RESULT := -1;
PVAR_COUNT := COLCOUNT(PVAR_S, PVAR_MASK);

WHILE PVAR_I < PVAR_COUNT LOOP
IF GETCOL(PVAR_S, PVAR_I, PVAR_MASK) = PVAR_SUBSTR THEN
PVAR_RESULT := PVAR_I;
EXIT;
END IF;

PVAR_I := PVAR_I + 1;
END LOOP;

RETURN PVAR_RESULT;
END COLINDEX;

begin
-- Initialization
Col_COUNT := 0;
null;
end StringSplit;