利用函数实现split功能

CREATE or replace TYPE result_split IS TABLE OF VARCHAR (4000); --定义一个数组 数组名称是result_split
create or replace function split_str_function(input_str in varchar,split_str in varchar)--传入需要分离的字符串与分隔符
return result_split --返回值的类型就是result_split数组
is

len number:=length(split_str);
loca number:=0;--定义一个number位置控制变量 找到当前对应的第一个满足切割字符的位置
str_split result_split:=result_split(); --定义个str_split 变量时result_split数组类型 后面的=result_split(); 相当于new了一下
var_str varchar(4000):=input_str;--定义一个临时字符串
begin
loop --循环
loca:=instr(var_str,split_str,1,1); --instr就是从第1个位置开始找var_str中的split_str变量的第一个满足的位置
if(loca>0) then --如果找到了loca就大于0
str_split.EXTEND; --数组拓展 拓展了才能往里面塞值
str_split(str_split.COUNT):=substr(var_str,1,loca+len-1);
var_str:=substr(var_str,(loca+len));
else
str_split.EXTEND;
str_split(str_split.COUNT):=var_str;
exit;
end if;
end loop;
return str_split;
end;

--测试函数是否正确
declare inputstr varchar(40):='lianminshitiancai';
splitstr varchar(40):='an';
resultstr result_split;
i number:=1;
begin
resultstr:=split_str_function(inputstr,splitstr);
loop
dbms_output.put_line(resultstr(i));
i:=i+1;
exit when i=resultstr.COUNT+1;

end loop;
end;