Oracle split(分隔字符串函数)

一 Oracle版本: 10g PLSQL: 8.0 （http://liuzidong.iteye.com/blog/953559）

二 具体代码如下: 

1 类型 

Sql代码  

1. CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000)  

2 函数 

Sql代码  

1. CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)  
2.   RETURN ty_str_split  
3. IS  
4.   j INT := 0;  
5.   i INT := 1;  
6.   len INT := 0;  
7.   len1 INT := 0;  
8.   str VARCHAR2 (4000);  
9.   str_split ty_str_split := ty_str_split ();  
10. BEGIN  
11.   len := LENGTH (p_str);  
12.   len1 := LENGTH (p_delimiter);  
13.   
14.   WHILE j < len  
15.   LOOP  
16.     j := INSTR (p_str, p_delimiter, i);  
17.   
18.     IF j = 0  
19.     THEN  
20.         j := len;  
21.         str := SUBSTR (p_str, i);  
22.         str_split.EXTEND;  
23.         str_split (str_split.COUNT) := str;  
24.   
25.         IF i >= len  
26.         THEN  
27.           EXIT;  
28.         END IF;  
29.     ELSE  
30.         str := SUBSTR (p_str, i, j - i);  
31.         i := j + len1;  
32.         str_split.EXTEND;  
33.         str_split (str_split.COUNT) := str;  
34.     END IF;  
35.   END LOOP;  
36.   
37.   RETURN str_split;  
38. END fn_split;  

3 具体应用 

Sql代码  

1. CREATE OR REPLACE procedure testsplit(objids in varchar2,message out varchar2)  
2. as  
3. objid varchar2(32);  
4. begin  
5.  for x in (select  column_value as objid from (SELECT * FROM TABLE (CAST (fn_split (objids, ',') AS ty_str_split)))t) loop  
6.        objid := x.objid;  
7.        --执行删除或者有关与ID相关的操作  
8.        --delete t wher id=objid;  
9.        --commit;  
10.        message := message || ' ID:' || objid;      
11.  end loop;  
12. EXCEPTION  
13.   WHEN OTHERS THEN  
14.   message :='测试split函数失败...';  
15. end testsplit;  

其它运用如下： 

Sql代码  

1. select t.column_value,rownum row_ from    
2. table(    
3.     cast (    
4.         fn_split ('1,2,3,4,5,,7,,', ',') as ty_str_split    
5.     )    
6. ) t