Oracle 拆分字符串函数

     在将图形系统的数据保存的DCOM方式转化为数据库底层直接操作的过程中，需要保留以前的批量的插入和删除功能，这其中就会涉及到将传入的字符串进行拆分然后利用ORA 的存储过程进行批量处理。在此记录下字符串拆分函数：

create or replace function split_str(var_str   in varchar2,
                                       var_split in varchar2)
/****************************************************
  注意 先执行下面语句 创建类型
  create or replace type t_ret_table is table of varchar2(100)

  ** 函数名称：split_str

  ** 参    数：【名称】         【类型 】      【说明】
  **           var_str          varchar2       要拆分的字符串
  **           var_split        varchar2       字符串分隔符
  ** 返 回 值：   t_ret_table       CURSOR  拆分后数据集合
  ** 摘    要：拆分字符串

  调用 举例：
  select * from table(split_str('A-B-C','-'))
  ****************************************************/

  return t_ret_table is

  var_out     t_ret_table;
  var_tmp     varchar2(4000);
  var_element varchar2(4000);

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.extend;

    --重新设置var_element值
    var_element:=substr(var_element,instr(var_element,'>',1)+1);
    var_out(var_out.count) := var_element;

    --打印
    --SET SERVEROUT ON;
    DBMS_OUTPUT.PUT_LINE(var_element);
    --打印

  end loop;

  --var_out.extend(1);
  var_out.extend;
  var_out(var_out.count) := var_tmp;

  return var_out;
end split_str;