字符串分割函数

--本文摘自klyuan

2. Parameters:   
3.    pi_string 要处理的字符   
4.   pi_separator 分隔符   
5.   pi_count 第n个分隔符   
6. function get_part_char(pi_string in varchar2, pi_separator in varchar2, pi_count number) return varchar2 is  
7.   pos number;   
8.   c_pos number;   
9. begin  
10.   if pi_string is null or pi_separator is null then  
11.      return '';   
12.  end if;   
13.     
14.   if pi_count < 1 then  
15.      return '';   
16.   end if;   
17.  if pi_count = 1 then  
18.     pos := instr(pi_string, pi_separator);   
19.     if pos = 0 then  
20.         return pi_string;   
21.     else  
22.       return substr(pi_string,0,pos-1);   
23.     end if;   
24.   else  
25.      pos := instr(pi_string, pi_separator,1,pi_count -1);   
26.      c_pos := instr(pi_string, pi_separator, 1, pi_count)   
27.      if pos = 0 then  
28.         return '';   
29.      end if;   
30.      if c_pos = 0 then  
31.          return substr(pi_string, pos+1, length(pi_string) - pos);   
32.      else  
33.         return substr(pi_string, pos+1, c_pos - pos -1);   
34.      end if;   
35.   end if;   
36. end get_part_char;