oracle 实现 split 函数 (返回数组）

首先，这是最近在公司执行一个任务的时候遇到的情况，分享一下，代码来源于互联网，非原创。
 如果你的存储过程的参数个数不定，比如你要处理A条件、B条件2种情况，或者A条件、C条件、F条件的情况，
 每次的条件的个数和条件都是变动的，这样你的存储过程参数就不好做。这种情况下，你可以只输入一个参数，
 多个条件用特殊字符如逗号分隔，然后对这个条件截断拆分之后循环处理，类似于jquery的split方法。然而，oracle

并没有这样的函数，你需要自己编写，以下是收录的一个有用的将oracle字符串截断成数组(oracle复合数据类型)的function。

CREATE OR REPLACE PACKAGE StatisPackage
AS
    TYPE StatisList IS REF CURSOR;
    TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);  

    PROCEDURE Statis_Planning(PlanningId IN nvarchar2,SolutionID IN nvarchar2,indextypeid in NUMBER,cversionid IN nvarchar2,Indicators in nvarchar2,p_cur out StatisList);
    
    FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2) return ty_str_split;  
END StatisPackage;

CREATE OR REPLACE PACKAGE BODY StatisPackage AS
 
  /*****************************************************************************************************
  Description:实现 split 函数 (返回数组） 
  Param:uni_array:=f_split_string('aa,bb,cc,dd',',')
  Creator: 　             DATE:2015-12-13
  *****************************************************************************************************/
 FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)  
  RETURN ty_str_split  
IS  
  j INT := 0;  
  i INT := 1;  
  len INT := 0;  
  len1 INT := 0;  
  str VARCHAR2 (4000);  
  str_split ty_str_split := ty_str_split ();  
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 fn_split;  
end StatisPackage;

测试：

DECLARE
  CURSOR c
  IS
    SELECT *
      FROM TABLE (CAST (fn_split ('1;;12;;123;;1234;;12345', ';;') AS ty_str_split
                  )
              );

  r c%ROWTYPE;
BEGIN
  OPEN c;

  LOOP
    FETCH c INTO r;

    EXIT WHEN c%NOTFOUND;
    DBMS_OUTPUT.put_line (r.column_value);
  END LOOP;

  CLOSE c;
END;
/ 
　

结果：
1
12
123
1234
12345

方法二;

create or replace function f_split_string (var_str varchar2,var_split varchar2)
 return t_ret_table

is
 var_out t_ret_table; --定义变量
var_tmp varchar2(100);
 var_element varchar2(100);

begin
 var_tmp := var_str;
 var_out := t_ret_table();
--如果存在匹配的分割符
while instr(var_tmp,var_split)>0 loop
var_element:=substr(var_tmp,1,instr(var_tmp,var_split)-1);
 var_tmp := substr(var_tmp,instr(var_tmp,var_split)+length(var_split),length(var_tmp));
 var_out.extend(1);
 var_out(var_out.count) := var_element;
 end loop;
 var_out.extend(1);
 var_out(var_out.count) := var_tmp;
 return var_out;
 end f_split_string;

在代码里，uni_array是一个table of varchar2的数组，就可以uni_array:=f_split_string('aa,bb,cc,dd',',')
将aa、bb、cc、dd四个元素装入uni_array，然后循环处理。