--根据','拆分字符串: 返回一个数组
首先必须要在Type包下面创建create or replace type type_split as table of varchar2(4000); 因为下面要引用此类型

function split_str(var_str   in varchar2,var_split in varchar2)

  return type_split is

  var_out     type_split;
  var_tmp     varchar2(400);
  var_element varchar2(400);

begin
  var_tmp := var_str;
  var_out := type_split();
  --如果存在匹配的分割符
  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_out(var_out.count) := var_element; --向数组的末尾添加一个元素
  end loop;

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

  return var_out;
end split_str;

?