create or replace procedure StringTrunc(arrayin varchar2) is --arrayin输入字符串 i number; k number; type arr is array(100) of varchar2; arr1 arr:=arr(); --arr1存储逗号分割数字的数组 begin loop len=length(arrayin); k=instrb(arrayin,1,','); if k=0 then arr1(i):=substrb(arrayin,1,len-k); exit; else arr1(i):=substrb(arrayin,1,k-1) arrayin=substrb(arrayin,k+1,len-k) i:=i+1; end if; end loop; end;
i number;
k number;
type arr is array(100) of varchar2;
arr1 arr:=arr(); --arr1存储逗号分割数字的数组
begin
loop
len=length(arrayin);
k=instrb(arrayin,1,',');
if k=0 then
arr1(i):=substrb(arrayin,1,len-k);
exit;
else
arr1(i):=substrb(arrayin,1,k-1)
arrayin=substrb(arrayin,k+1,len-k)
i:=i+1;
end if;
end loop;
end;