create or replace function f_split

       (
       
       var_source_string in varchar2,--要分割的字符串
       var_separator     in varchar2,--分隔符
       var_number        in number:=0   --输分割的第几个值，如果为0则表示全部输出
       ) 
  return TABLETYPE_VARCHAR2 is
  v_source_string varchar2(2000);
  v_separator_position integer;--分割符位置
  v_source_length integer;--要分割的字符串的长度
  v_separator_length integer;--分割符的长度
  v_result TABLETYPE_VARCHAR2:=TABLETYPE_VARCHAR2();
  v_subset varchar2(2000);
  v_count integer:=0;
begin
    if trim(var_separator) is null then
      raise_application_error(-20001,'必须输入分割符！');
    end if;
    v_source_string:=trim(var_source_string);
    --判断分割符的位置
    v_separator_position:=instr(v_source_string,var_separator);
    --分隔符的长度
    v_separator_length:=length(var_separator);
    --源分割字符串的长度
    v_source_length:=length(var_source_string);
    --源字符串最后必须有分隔符
    if substr(v_source_string,v_source_length-v_separator_length+1,v_separator_length)<>var_separator then
      raise_application_error(-20002,''''||v_source_string||'''字符串最后必须有分隔符！');
    end if;  
    while v_separator_position>0 loop
      --截取分割后的字符串
      v_subset:=substr(v_source_string,1,v_separator_position-1);
      if trim(v_subset) is not null then
        v_result.extend;--数组添加一个空下标
        v_result(v_result.last):=v_subset;--为数组最后一位赋值
      end if;
      v_source_string:=substr(v_source_string,v_separator_position+v_separator_length);
      v_separator_position:=instr(v_source_string,var_separator,1);
      v_count:=v_count+1;
      if var_number=v_count then
        v_result.delete;
        v_result.extend;--数组添加一个空下标
        v_result(v_result.last):=v_subset;--为数组最后一位赋值
        return(v_result);
      end if;
    end loop;  
  return(v_result);
end f_split;

/