create or replace procedure p_split_tab(str in varchar2) as
type array_str is table of varchar2(100) index by binary_integer;
myarray array_str;
v_str varchar2(4000) default str;
begin
-- i in 0..单位总数（除去连接符）
for i in 0 .. length(str) - length(replace(str, ',', '')) + 1 loop
-- 第一个符号出现的位置
if instr(v_str, ',') = 0 then
myarray(i + 1) := v_str;
else
myarray(i + 1) := substr(v_str, 0, instr(v_str, ',') - 1);
end if;
v_str := substr(v_str, instr(v_str, ',') + 1);
end loop;
for i in 0 .. length(str) - length(replace(str, ',', '')) loop
--dbms_output.put_line(myarray(i + 1));
insert into t_tmp_group values (myarray(i + 1));
commit;
end loop;
end p_split_tab;
type array_str is table of varchar2(100) index by binary_integer;
myarray array_str;
v_str varchar2(4000) default str;
begin
-- i in 0..单位总数（除去连接符）
for i in 0 .. length(str) - length(replace(str, ',', '')) + 1 loop
-- 第一个符号出现的位置
if instr(v_str, ',') = 0 then
myarray(i + 1) := v_str;
else
myarray(i + 1) := substr(v_str, 0, instr(v_str, ',') - 1);
end if;
v_str := substr(v_str, instr(v_str, ',') + 1);
end loop;
for i in 0 .. length(str) - length(replace(str, ',', '')) loop
--dbms_output.put_line(myarray(i + 1));
insert into t_tmp_group values (myarray(i + 1));
commit;
end loop;
end p_split_tab;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12961536/viewspace-1061343/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
