--根据','拆分字符串: 返回一个数组
首先必须要在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;