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;