--声明的长度要长点
create or replace type type_split as table of varchar2(250);
--创建函数
create or replace function split
(
p_list varchar2,
p_sep varchar2 := ','
) return type_split pipelined
is
l_idx pls_integer;
v_tmp varchar2(250):=null;
v_list varchar2(250) := p_list;
begin
loop
l_idx := instr(v_list,p_sep);
--dbms_output.put_line ('v_list:'||v_list);
--dbms_output.put_line ('l_idx:'||l_idx);
if l_idx > 0 then
v_tmp:=substr(v_list,1,l_idx-1);
--dbms_output.put_line ('v_tmp:'||v_tmp);
if (v_tmp is not null and length(v_tmp)>0 ) then
pipe row(v_tmp);
end if;
v_list := substr(v_list,l_idx+length(p_sep));
else
--dbms_output.put_line ('v_list:'||v_list);
if (v_list is not null and length(v_list)>0 ) then
pipe row(v_list);
end if;
exit;
end if;
end loop;
return;
end split;
测试:
select * from table(split(',northsnow,塞北的雪,',','));