pl/sql 编程实现类似于Java中String的split函数功能

      pl/sql 编程实现类似于Java中String的split函数功能

      只是类似，功能没有Java中String的split函数功能强大，只是满足简单有应用，即把字符串按指定的分隔符号截取，并返回数组。

下面是代码：

--定义T_CHAR类型
create type ty_str_split as table of varchar2(100);
	  /**
       * 函数名：str_split
       * 参  数：p_str 待截取的字符串（目标字符串：以某种特定的字符分隔的字符串）
       *         p_delim 分隔字符串
       * 返回值：为T_CHAR类型，类似一维数组
       * 功能：实现类似于JS中split函数功能
       */
      function str_split  (p_str in varchar2
                                     ,p_delim in varchar2 default ',') 
        return T_CHAR as
        v_str      varchar2(32767);
        v_fields   pls_integer;
        v_substr   varchar2(32767);
        v_return   T_CHAR;
      begin
        v_str := p_delim||trim(p_delim from p_str)||p_delim;
        v_fields := length(v_str) - length(replace(v_str,p_delim,'')) - 1;

        for i in 1..v_fields loop
          v_substr := substr(v_str
                            ,instr(v_str,p_delim,1,i)+1
                            ,instr(v_str,p_delim,1,i+1) - instr(v_str,p_delim,1,i) -1);
          v_return(i) := v_substr;
        end loop;
        return v_return;
      end;

 

create or replace procedure test1 as
    v_array T_CHAR;
begin
    v_array:=str_split('1a,2b,3c,4d',',');
    for i in 1..v_array.count loop
         dbms_output.put_line('v_array('||i||')='||v_array(i));
    end loop;
end test1;