[Oracle]分割字符串返回数组

[c-sharp]  view plain copy

1. CREATE OR REPLACE TYPE mytable AS TABLE OF varchar2(100)  
2. /  

 

[c-sharp]  view plain copy

1. CREATE OR REPLACE FUNCTION split  
2.    (src VARCHAR2, delimiter varchar2)  
3.   RETURN mytable IS  
4.   psrc VARCHAR2(500);  
5.   a mytable := mytable();  
6.   i NUMBER := 1;  --  
7.   j NUMBER := 1;  
8. BEGIN  
9.   psrc := RTrim(LTrim(src, delimiter), delimiter);  
10.   LOOP  
11.     i := InStr(psrc, delimiter, j);  
12.     --Dbms_Output.put_line(i);  
13.     IF i>0 THEN  
14.       a.extend;  
15.       a(a.Count) := Trim(SubStr(psrc, j, i-j));  
16.       j := i+1;  
17.       --Dbms_Output.put_line(a(a.Count-1));  
18.     END IF;  
19.     EXIT WHEN i=0;  
20.   END LOOP;  
21.   IF j < Length(psrc) THEN  
22.     a.extend;  
23.     a(a.Count) := Trim(SubStr(psrc, j, Length(psrc)+1-j));  
24.   END IF;  
25.   RETURN a;  
26. END;  
27. /