Oracle需要首先在数据库中,创建好类型与函数。来实现一个split功能的处理。
-- 定义一个对象类型.
CREATE OR REPLACE TYPE ty_row_str_splitas object (strValue VARCHAR2 (4000));
-- 定义一个 表/数组类型, 内容是前面定义的那个对象.
CREATE OR REPLACE TYPE ty_tbl_str_splitIS TABLE OF ty_row_str_split;
--------------------
-- 字符分割函数.
-- 参数1: 被分割的源字符串
-- 参数2: 用于拆分的字符串。
--------------------
CREATE OR REPLACE FUNCTION fn_split(
p_strIN VARCHAR2,
p_delimiterIN VARCHAR2)
RETURN ty_tbl_str_splitIS
jINT := 0;
iINT := 1;
-- 被分割的源字符串 的长度.
lenINT := 0;
-- 分隔字符串的长度
len1INT := 0;
-- 暂存的中间每一个单元的文本信息.
str VARCHAR2(4000);
-- 预期返回结果.
str_split ty_tbl_str_split := ty_tbl_str_split();
BEGIN
-- 被分割的源字符串 的长度.
len := LENGTH(p_str);
-- 分隔字符串的长度.
len1 := LENGTH(p_delimiter);
-- 遍历 被分割的源字符串.
WHILE j
-- 在被分割的源字符串中, 查询 分隔字符串.
j := INSTR(p_str, p_delimiter, i);
IF j = 0THEN
-- j=0 意味着没有找到.
-- 可以理解为是查询到最后一个单元了.
-- 设置 j := len, 让外部的循环处理可以结束了.
j := len;
-- 获取最后一个单元的内容.
str := SUBSTR(p_str, i);
-- 结果追加一行.
str_split.EXTEND;
-- 设置结果内容.
str_split(str_split.COUNT) := ty_row_str_split(strValue => str);
IF i >= lenTHEN
EXIT;
END IF;
ELSE
-- 如果在被分割的源字符串中,找到了 分隔字符串.
-- 首先,获取分割的内容.
str := SUBSTR(p_str, i, j - i);
-- 然后设置索引, 下一次再查找的时候,从指定的索引位置开始(不是从0开始找了)
i := j + len1;
-- 结果追加一行.
str_split.EXTEND;
-- 设置结果内容.
str_split(str_split.COUNT) := ty_row_str_split(strValue => str);
END IF;
END LOOP;
RETURN str_split;
END fn_split;
CREATE TABLE info (
usersvarchar(100)
);
INSERT INTO infoVALUES('userA@userB@userC');
INSERT INTO infoVALUES('userB@userC@userD');
INSERT INTO infoVALUES('userC@userD@userE');
COLUMN "用户" FORMAT A15
SELECT
to_char(strvalue)as "用户",
count(*)AS "用户数"
FROM
info,
table(fn_split( info.users,'@'))
GROUP BY
to_char(strvalue)
ORDER BY
用户数;
用户 用户数
--------------- ----------
userA 1
userE 1
userB 2
userD 2
userC 3