Oracle²ð·Ö×Ö·û´®º¯Êý

--¶¨ÒåÀàÐÍ
CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2(4000);
--´´½¨º¯Êý
CREATE OR REPLACE FUNCTION f_stringsplit (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)
    RETURN ty_str_split PIPELINED
/*****
****×Ö·û´®²ð·Ö,Ï൱ÓÚjava.lang.StringÀàµÄsplit·½·¨
****×¢Òâ:ÐÂÔötypes:CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (100);
****´´½¨Õߣº
****ʱ¼ä£º
****ժȡÍøÂç×ÊÔ´
***/
IS
    j INT := 0;
    i INT := 1;
    len INT := 0;
    len1 INT := 0;
    str VARCHAR2 (100);
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);
            PIPE ROW (str);
            IF i >= len
            THEN
                EXIT;
            END IF;
        ELSE
            str := SUBSTR (p_str, i, j - i);
            i := j + len1;
            PIPE ROW (str);
        END IF;
    END LOOP;
    RETURN;
END f_stringsplit;
--µ÷ÓÃ
select¡¡*¡¡from¡¡t