学步园

转自：http://blog.csdn.net/zhiguo2010/article/details/5737455

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;