CREATE
TABLE
info(
users
varchar
(100)
);
INSERT
INTO
info
VALUES
(
'userA@userB@userC'
);
'userB@userC@userD'
);
'userC@userD@userE'
);
SELECT
to_char(strvalue)
as
,
FROM
info,
table
(fn_split(info.users,
'@'
))
GROUP
BY
to_char(strvalue)
ORDER
BY
1;
-------------------------
userA1
userB2
userC3
userD2
userE1
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
@H_731_301@
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
来实现一个split功能的处理。
--定义一个对象类型.
CREATE
OR
REPLACE
TYPEty_row_str_split
as
object(strValueVARCHAR2(4000));
/
--定义一个表/数组类型，内容是前面定义的那个对象.
TYPEty_tbl_str_split
IS
TABLE
OF
ty_row_str_split;
/
--------------------
--字符分割函数.
--参数1：被分割的源字符串
--参数2：用于拆分的字符串。
--------------------
REPLACE
FUNCTION
fn_split(
p_str
IN
VARCHAR2,
p_delimiter
VARCHAR2)
RETURN
ty_tbl_str_split
IS
j
INT
:=0;
i
:=1;
--被分割的源字符串的长度.
len
:=0;
--分隔字符串的长度
len1
:=0;
--暂存的中间每一个单元的文本信息.
strVARCHAR2(4000);
--预期返回结果.
str_splitty_tbl_str_split:=ty_tbl_str_split();
BEGIN
--被分割的源字符串的长度.
len:=LENGTH(p_str);
--分隔字符串的长度.
len1:=LENGTH(p_delimiter);
--遍历被分割的源字符串.
WHILEj<lenLOOP
--在被分割的源字符串中，查询分隔字符串.
j:=INSTR(p_str,p_delimiter,i);
IFj=0
THEN
--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);
IFi>=len
THEN
EXIT;
END
IF;
ELSE
--如果在被分割的源字符串中，找到了分隔字符串.
sql spaces" style="font-family:Monaco,i,j-i);
--然后设置索引，下一次再查找的时候，从指定的索引位置开始（不是从0开始找了）
i:=j+len1;
--结果追加一行.
str_split.EXTEND;
--设置结果内容.
):=ty_row_str_split(strValue=>str);
IF;
LOOP;
str_split;
fn_split;
/
VALUE
-------------------------------------------------------------------------------
aa
bb
cc
|
