SQL - String To Split

 

문자열과 구분자를 받아서 Split 하는 Function

 

Split 이후 IN 조건으로 활용

-- 변수부터 진행

CREATE OR REPLACE TYPE ESHOP.T_VARCHAR2 AS TABLE OF VARCHAR2(32767);

 

-- FUNC 생성

CREATE OR REPLACE FUNCTION ESHOP.F_STRING_TO_SPLIT (

    P_STR   IN VARCHAR2,

    P_SEP   IN VARCHAR2    DEFAULT ',' )

    RETURN T_VARCHAR2

IS

    L_RESULT       T_VARCHAR2 := T_VARCHAR2();

    L_STR_LENGTH   PLS_INTEGER;

    L_SEP_LENGTH   PLS_INTEGER;

    L_SEP_TYPE     BOOLEAN;

    L_START        PLS_INTEGER NOT NULL := 1;

    L_FOUND        PLS_INTEGER;

    L_COUNT        PLS_INTEGER NOT NULL := 1;

    L_SEP          VARCHAR2(1);

BEGIN

   

    L_SEP := SUBSTR(P_SEP, 1, 1);

   

    IF P_STR IS NULL THEN RETURN L_RESULT; END IF;

    L_STR_LENGTH := LENGTH(P_STR);

    IF L_SEP IS NULL THEN

        FOR I IN 1 .. LEAST(L_STR_LENGTH, L_STR_LENGTH) LOOP

            L_RESULT.EXTEND;

            L_RESULT(L_RESULT.COUNT) := SUBSTR(P_STR, I, 1);

        END LOOP;

    ELSE

        L_SEP_LENGTH := LENGTH(L_SEP);

        L_SEP_TYPE := L_SEP_LENGTH > 1;

        LOOP

            IF  L_SEP_TYPE THEN

                L_FOUND      := REGEXP_INSTR(P_STR, L_SEP, L_START);

                L_SEP_LENGTH := NVL(LENGTH(REGEXP_SUBSTR(P_STR, L_SEP, L_START)), 0);

            ELSE

                L_FOUND := INSTR(P_STR, L_SEP, L_START);

            END IF;

            IF L_FOUND > 0 THEN

                L_RESULT.EXTEND;

                L_RESULT(L_COUNT) := SUBSTR(P_STR, L_START, L_FOUND-L_START);

                L_START := L_FOUND + L_SEP_LENGTH;

            ELSE

                L_RESULT.EXTEND;

                L_RESULT(L_COUNT) := SUBSTR(P_STR, L_START, L_STR_LENGTH-L_START+1);

                EXIT;

            END IF;

            L_COUNT := L_COUNT + 1;

        END LOOP;

    END IF;

    RETURN L_RESULT;

END F_STRING_TO_SPLIT;

/