oracle分隔字符串的存储过程

/*     
    
    参数说明：   
    输入：   
        srcStr；待分割字串;     例子：1;2;3;45;46;   
        splitStr:分隔符   
          
    功能说明：输出分隔符前字串   
      
    演示：   
    sql>set   serveroutput   on;   
    sql>exec   splitStr('12;34;56;',';');   
            12   
            34   
            56   
       */ create or replace procedure splitStr(srcStr IN VARCHAR2,splitStr IN VARCHAR2) IS
 sposition1 INTEGER;
 
 sposition2 INTEGER;
 
 mysubstr VARCHAR2(10);
 
 starttimes INTEGER;
 
 begin
 
 starttimes:=1;
 
 sposition1:=1;
 
 loop
 
 sposition2:=instr(srcStr,splitStr,1,starttimes);
 
 exit when sposition2=0;
 
 mysubstr:=substr(srcStr,sposition1,sposition2-sposition1);
 
 sposition1:=sposition2+1;
 
 starttimes:=starttimes+1;
 
 dbms_output.put_line(mysubstr);
 

 end loop;
 
 dbms_output.put_line('end');
 
 end ;