模板
教程
環境
性能
功能
管理
給Oracle添加split和splitstr函數
最近項目中有很多需要做批量操作的需求，客戶端把一組逗號分隔的ID字符串傳給數據庫，存儲過程就需要把它們分割，然后逐個處理。
以往的處理方式有如下幾種：
1、在存儲過程內寫循環，逐個分析字符串中的ID，然后逐個處理。缺點：循環一次處理一個，如果每次判斷都很多，效率將很受影響。適合每次處理要做單獨判斷的情況。
2、使用臨時表，先調用一個存儲過程將ID拆分并插入到臨時表中，然后結合臨時表可以寫SQL一次處理多筆。缺點：需要插臨時表，效率不高，數據量越大影響越嚴重。
以前的項目用的最多的還是第2中方式，畢竟方便，且效率比第1種好。
現在項目中用到了很多很多的批量操作，很多的重復代碼讓我不厭其煩。忽然想到，.Net和JS中都有split類似的函數，拆分字符串很方便，oracle中要是也有這樣的功能該多好呀。
多方查找資料發現，給oracle添加split函數是完全可以實現的，避免了插入臨時表，所以效率比上面的第2中方法效率高很多。
后來我還添加了splitstr函數，可以很方便獲取字符串中的指定節點。
有了這兩個函數，處理批量操作，真是如虎添翼，效率倍增，嘿嘿……
好了，閑話少說，上代碼!如有不妥之處，請各位前輩博友斧正。
1 /*
2 * Oracle 創建 split 和 splitstr 函數
3 */
4
5 /* 創建一個表類型 */
6 create or replace type tabletype as table of VARCHAR2(32676)
7 /
8
9 /* 創建 split 函數 */
10 CREATE OR REPLACE FUNCTION split (p_list CLOB, p_sep VARCHAR2 := ',')
11 RETURN tabletype
12 PIPELINED
13 /**************************************
14 * Name: split
15 * Author: Sean Zhang.
16 * Date: 2012-09-03.
17 * Function: 返回字符串被指定字符分割后的表類型。
18 * Parameters: p_list: 待分割的字符串。
19 p_sep: 分隔符，默認逗號，也可以指定字符或字符串。
20 * Example: SELECT *
21 FROM users
22 WHERE u_id IN (SELECT COLUMN_VALUE
23 FROM table (split ('1,2')))
24 返回u_id為1和2的兩行數據。
25 **************************************/
26 IS
27 l_idx PLS_INTEGER;
28 v_list VARCHAR2 (32676) := p_list;
29 BEGIN
30 LOOP
31 l_idx := INSTR (v_list, p_sep);
32
33 IF l_idx > 0
34 THEN
35 PIPE ROW (SUBSTR (v_list, 1, l_idx - 1));
36 v_list := SUBSTR (v_list, l_idx + LENGTH (p_sep));
37 ELSE
38 PIPE ROW (v_list);
39 EXIT;
40 END IF;
41 END LOOP;
42 END;
43 /
44
45 /* 創建 splitstr 函數 */
46 CREATE OR REPLACE FUNCTION splitstr (str IN CLOB,
47 i IN NUMBER := 0,
48 sep IN VARCHAR2 := ','
49 )
50 RETURN VARCHAR2
51 /**************************************
52 * Name: splitstr
53 * Author: Sean Zhang.
54 * Date: 2012-09-03.
55 * Function: 返回字符串被指定字符分割后的指定節點字符串。
56 * Parameters: str: 待分割的字符串。
57 i: 返回第幾個節點。當i為0返回str中的所有字符，當i 超過可被分割的個數時返回空。
58 sep: 分隔符，默認逗號，也可以指定字符或字符串。當指定的分隔符不存在于str中時返回sep中的字符。
59 * Example: select splitstr('abc,def', 1) as str from dual; 得到 abc
60 select splitstr('abc,def', 3) as str from dual; 得到 空
61 **************************************/
62 IS
63 t_i NUMBER;
64 t_count NUMBER;
65 t_str VARCHAR2 (4000);
66 BEGIN
67 IF i = 0
68 THEN
69 t_str := str;
70 ELSIF INSTR (str, sep) = 0
71 THEN
72 t_str := sep;
73 ELSE
74 SELECT COUNT ( * )
75 INTO t_count
76 FROM table (split (str, sep));
77
78 IF i <= t_count
79 THEN
80 SELECT str
81 INTO t_str
82 FROM (SELECT ROWNUM AS item, COLUMN_VALUE AS str
83 FROM table (split (str, sep)))
84 WHERE item = i;
85 END IF;
86 END IF;
87
88 RETURN t_str;
89 END;
90 /
