本文内容
- 演示字符串分割
- 数据结构——字符数组
- 字符串分割函数 PL/SQL 包
- 结果
演示字符串分割
本文字符串分割函数能达到如下效果，这是用 SELECT 语句查看结果，在“结论”小节，将用过程查看分割的结果：
select strutil.concat(strutil.splitstr('a,1,b,2,ccdd;ef;')) as split1,
strutil.concat(strutil.splitstrbyseparators('a,1,b,2,ccdd;ef;', ',')) as split2,
strutil.concat(strutil.splitstrbyseparators('a,1,b,2,ccdd;ef;', ',;')) as split3,
strutil.concat(strutil.splitstrbyseparators('a,1,b,2,;|\;ef;', ',;|\')) as split4
from dual
结果：
a,1,b,2,ccdd;ef; a1b2ccdd;ef; a1b2ccddef a1b2ef
数据结构——字符数组
CREATE OR REPLACE TYPE chrs_tbl IS TABLE of VARCHAR2(100)
/
该字符数组用于保存分割后的字符。根据这个定义，如果分割单个字符，那没什么限制；但是如果按你指定的分隔符来分割，那就有限制了。限制是分割后的单个字符不能超过 100 个。其实，这样的限制也没什么关系，为自己系统定制一个分割函数就可以。
字符串分割函数 PL/SQL 包
包规范定义
create or replace package strutil is
-- Author : ADMINISTRATOR
-- Created : 2012/11/10 17:15:14
-- Purpose : 字符串分割
--
v_desc_chrs_tbl chrs_tbl;
--
v_length NUMBER;
v_step NUMBER;
FUNCTION splitstr(v_str IN VARCHAR2) RETURN chrs_tbl;
FUNCTION splitstrbyseparators(v_str in VARCHAR2,
v_separators in VARCHAR2) RETURN chrs_tbl;
FUNCTION concat(chrs in chrs_tbl) RETURN VARCHAR2;
PROCEDURE output(chrs in chrs_tbl);
end strutil;
包体定义
- splitstr 函数 - 按单个字符分割。利用 substr 函数，起始位置在变化（该函数第二个参数），而“步长”（该函数第三个参数）永远为 1。
- splitstrbyseparators - 按指定的字符串分割。原理同 splitstr 函数一样。利用 regexp_instr 函数匹配，将分隔符变成正则表达式，到原串匹配，以确定截取子字符串的起始位置和步长。若原串中没有指定的分割符，则按原串，否则分割。
- concat - 将分割的字符串数组连接成字符串。
- output - 输出分割的字符串数组。
create or replace package body strutil is
/* 单个字符串
v_str : 任意字符串
*/
FUNCTION splitstr(v_str in VARCHAR2) RETURN chrs_tbl IS
i NUMBER;
BEGIN
v_desc_chrs_tbl := chrs_tbl();
i := 1;
v_length := LENGTH(v_str);
v_step := 1;
WHILE i <= v_length LOOP
v_desc_chrs_tbl.extend;
v_desc_chrs_tbl(v_desc_chrs_tbl.count) := substr(v_str, i, 1);
i := i + 1;
END LOOP;
RETURN v_desc_chrs_tbl;
END splitstr;
/* 按分割符分割字符串
v_str : 任意不超过 1000 个字符的字符串
v_separators : 分割符，如 ',' ',;' ',;|'
*/
FUNCTION splitstrbyseparators(v_str in VARCHAR2,
v_separators in VARCHAR2) RETURN chrs_tbl IS
i NUMBER;
j NUMBER;
BEGIN
v_desc_chrs_tbl := chrs_tbl();
v_length := LENGTH(v_str);
j := 1;
i := REGEXP_INSTR(v_str, '[' || v_separators || ']', j);
v_step := i - j;
IF i <= 0 THEN
v_desc_chrs_tbl.extend;
v_desc_chrs_tbl(v_desc_chrs_tbl.count) := v_str;
ELSE
WHILE i > 0 AND i <= v_length LOOP
v_desc_chrs_tbl.extend;
v_desc_chrs_tbl(v_desc_chrs_tbl.count) := SUBSTR(v_str, j, v_step);
j := j + v_step + 1;
i := REGEXP_INSTR(v_str, '[' || v_separators || ']', j);
v_step := i - j;
END LOOP;
IF j <= v_length THEN
v_desc_chrs_tbl.extend;
v_desc_chrs_tbl(v_desc_chrs_tbl.count) := SUBSTR(v_str, j);
END IF;
END IF;
RETURN v_desc_chrs_tbl;
END splitstrbyseparators;
FUNCTION concat(chrs in chrs_tbl) RETURN VARCHAR2 IS
v_str VARCHAR2(1000);
BEGIN
IF chrs.count > 0 THEN
FOR i IN 1 .. chrs.count LOOP
v_str := v_str || chrs(i);
END LOOP;
ELSE
v_str := '';
END IF;
RETURN v_str;
END;
PROCEDURE output(chrs in chrs_tbl) IS
BEGIN
IF chrs.count > 0 THEN
FOR i IN 1 .. chrs.count LOOP
dbms_output.put_line(chrs(i));
END LOOP;
dbms_output.put_line('--success.');
ELSE
dbms_output.put_line('--failure.');
END IF;
END;
end strutil;
当自定义分隔符分割时，限制是分割后的字符不能超过 100 个，总体长度不能 1000 个。实际中，根据你系统的情况定制一个就行。个人觉得，没必要写通用的。
结果
字符串单个分割：
SQL> exec strutil.output(strutil.splitstr('a,1,b,2,ccdd;ef;'));
a
,
1
,
b
,
2
,
c
c
d
d
;
e
f
;
--success.
PL/SQL procedure successfully completed
SQL>
分割符为 "," 的分割结果：
SQL> exec strutil.output(strutil.splitstrbyseparators('a,1,b,2,ccdd;ef;', ','));
a
1
b
2
ccdd;ef;
--success.
PL/SQL procedure successfully completed
SQL>
分割符为 ",;" 的分割结果：
SQL> exec strutil.output(strutil.splitstrbyseparators('a,1,b,2,ccdd;ef;', ',;'));
a
1
b
2
ccdd
ef
--success.
PL/SQL procedure successfully completed
SQL>
分割符为 ",;|\" 的分割结果：
SQL> exec strutil.output(strutil.splitstrbyseparators('a,1,b,2,;|\;ef;', ',;|\'));
a
1
b
2
ef
--success.
PL/SQL procedure successfully completed
SQL>
