Oracle拆分字符串函数

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       字符串分隔符
** 返 回 值：Result           t_ret_table    拆分后数组集合
** 摘    要：拆分字符串

调用 举例：
select * from table(split_str('2008-10-21','-'))
****************************************************/


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_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;