http://atgc.itpub.net/post/22412/217030
create or replace type acc_type as object
(acc varchar2(50))
/
create or replace type acc_table as table of acc_type
/
create or replace function str2table (acc_str in varchar2) return acc_table pipelined
is
v_str varchar2(30000) := acc_str;
v_acc varchar2(30);
v_acc_end pls_integer;
begin
loop
v_acc_end := instrb(v_str,',');
exit when (v_acc_end=0 or v_str is null);
v_acc := substrb(v_str,1,v_acc_end-1);
v_str := ltrim(v_str,v_acc);
v_str := ltrim(v_str,',');
pipe row(acc_type(rtrim(v_acc,';')));
end loop;
return;
end;
/
SQL> select * from table(str2table('TEST1,TEST1,12,123,55,99MOON,'));
ACC
--------------------------------------------------
TEST1
TEST1
12
123
55
99MOON
6 rows selected.
SQL>
自己之前编写
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9240380/viewspace-749780/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/9240380/viewspace-749780/