提取字符串的存储过程

 /*    
   
    参数说明：  
    输入：  
        srcStr；待分割字串;     例子：1;2;3;45;46;  
        splitStr:分隔符  
         
    功能说明：输出分隔符前字串   
      
     */  
  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);  
      mysubstr:=substr(srcStr,sposition1,sposition2-sposition1);  
      sposition1:=sposition2+1;  
      starttimes:=starttimes+1;  
      dbms_output.put_line(mysubstr);  
      exit   when   sposition2=0;  
  end   loop;    
  dbms_output.put_line('end');      
  end   ;