快捷導(dǎo)航

給Oracle添加split和splitstr函數(shù)的方法

更新時(shí)間：2012年11月12日 15:07:39 作者：

最近項(xiàng)目中有很多需要做批量操作的需求，客戶端把一組逗號(hào)分隔的ID字符串傳給數(shù)據(jù)庫(kù)，存儲(chǔ)過(guò)程就需要把它們分割，然后逐個(gè)處理

最近項(xiàng)目中有很多需要做批量操作的需求，客戶端把一組逗號(hào)分隔的ID字符串傳給數(shù)據(jù)庫(kù)，存儲(chǔ)過(guò)程就需要把它們分割，然后逐個(gè)處理。
以往的處理方式有如下幾種：

1、在存儲(chǔ)過(guò)程內(nèi)寫(xiě)循環(huán)，逐個(gè)分析字符串中的ID，然后逐個(gè)處理。缺點(diǎn)：循環(huán)一次處理一個(gè)，如果每次判斷都很多，效率將很受影響。適合每次處理要做單獨(dú)判斷的情況。

2、使用臨時(shí)表，先調(diào)用一個(gè)存儲(chǔ)過(guò)程將ID拆分并插入到臨時(shí)表中，然后結(jié)合臨時(shí)表可以寫(xiě)SQL一次處理多筆。缺點(diǎn)：需要插臨時(shí)表，效率不高，數(shù)據(jù)量越大影響越嚴(yán)重。

以前的項(xiàng)目用的最多的還是第2中方式，畢竟方便，且效率比第1種好。
現(xiàn)在項(xiàng)目中用到了很多很多的批量操作，很多的重復(fù)代碼讓我不厭其煩。忽然想到，.Net和JS中都有split類似的函數(shù)，拆分字符串很方便，oracle中要是也有這樣的功能該多好呀。

多方查找資料發(fā)現(xiàn)，給oracle添加split函數(shù)是完全可以實(shí)現(xiàn)的，避免了插入臨時(shí)表，所以效率比上面的第2中方法效率高很多。

后來(lái)我還添加了splitstr函數(shù)，可以很方便獲取字符串中的指定節(jié)點(diǎn)。
有了這兩個(gè)函數(shù)，處理批量操作，真是如虎添翼，效率倍增，嘿嘿……
好了，閑話少說(shuō)，上代碼！如有不妥之處，請(qǐng)各位前輩博友斧正。

復(fù)制代碼代碼如下:

 
/* 
* Oracle 創(chuàng)建 split 和 splitstr 函數(shù) 
*/ 
/* 創(chuàng)建一個(gè)表類型 */ 
create or replace type tabletype as table of VARCHAR2(32676) 
/ 
/* 創(chuàng)建 split 函數(shù) */ 
CREATE OR REPLACE FUNCTION split (p_list CLOB, p_sep VARCHAR2 := ',') 
RETURN tabletype 
PIPELINED 
/************************************** 
* Name: split 
* Author: Sean Zhang. 
* Date: 2012-09-03. 
* Function: 返回字符串被指定字符分割后的表類型。 
* Parameters: p_list: 待分割的字符串。 
p_sep: 分隔符，默認(rèn)逗號(hào)，也可以指定字符或字符串。 
* Example: SELECT * 
FROM users 
WHERE u_id IN (SELECT COLUMN_VALUE 
FROM table (split ('1,2'))) 
返回u_id為1和2的兩行數(shù)據(jù)。 
**************************************/ 
IS 
l_idx PLS_INTEGER; 
v_list VARCHAR2 (32676) := p_list; 
BEGIN 
LOOP 
l_idx := INSTR (v_list, p_sep); 
IF l_idx > 0 
THEN 
PIPE ROW (SUBSTR (v_list, 1, l_idx - 1)); 
v_list := SUBSTR (v_list, l_idx + LENGTH (p_sep)); 
ELSE 
PIPE ROW (v_list); 
EXIT; 
END IF; 
END LOOP; 
END; 
/ 
/* 創(chuàng)建 splitstr 函數(shù) */ 
CREATE OR REPLACE FUNCTION splitstr (str IN CLOB, 
i IN NUMBER := 0, 
sep IN VARCHAR2 := ',' 
) 
RETURN VARCHAR2 
/************************************** 
* Name: splitstr 
* Author: Sean Zhang. 
* Date: 2012-09-03. 
* Function: 返回字符串被指定字符分割后的指定節(jié)點(diǎn)字符串。 
* Parameters: str: 待分割的字符串。 
i: 返回第幾個(gè)節(jié)點(diǎn)。當(dāng)i為0返回str中的所有字符，當(dāng)i 超過(guò)可被分割的個(gè)數(shù)時(shí)返回空。 
sep: 分隔符，默認(rèn)逗號(hào)，也可以指定字符或字符串。當(dāng)指定的分隔符不存在于str中時(shí)返回sep中的字符。 
* Example: select splitstr('abc,def', 1) as str from dual; 得到 abc 
select splitstr('abc,def', 3) as str from dual; 得到 空 
**************************************/ 
IS 
t_i NUMBER; 
t_count NUMBER; 
t_str VARCHAR2 (4000); 
BEGIN 
IF i = 0 
THEN 
t_str := str; 
ELSIF INSTR (str, sep) = 0 
THEN 
t_str := sep; 
ELSE 
SELECT COUNT ( * ) 
INTO t_count 
FROM table (split (str, sep)); 
IF i <= t_count 
THEN 
SELECT str 
INTO t_str 
FROM (SELECT ROWNUM AS item, COLUMN_VALUE AS str 
FROM table (split (str, sep))) 
WHERE item = i; 
END IF; 
END IF; 
RETURN t_str; 
END; 
/ 