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;