在软件开发过程中程序员经常会遇到字符串的拼接和拆分工作。
以java开发为例：
前台传入字符串拼接形式的一个JSON数据，如："1001,1002,1003"，这可能代表了一组序号。
程序员需要将序号转名称后按照相同的格式输出，如：“张三、李四、王五”。
Java程序员通用的做法是在service层将接收的"1001,1002,1003"拆分（使用java split函数），然后封装List，将List传递给DAO，
再传递给ORM持久层的xml调用sql执行，sql的返回结果用List接收，并在service层遍历List和拼接字符串，
将拼接后的字符串封装在实体类(BO/VO)中，再按JSON格式返回给前台。
这种做法功能是实现了，但是多调用了一次数据库连接，多写了一个DAO方法，多写了一个ORM持久层方法。
把问题交给pl/sql程序员怎么样呢？
pl/sql程序员好像也没有更好的方法，单句sql不好实现，为每个这个的功能分别写存储过程代价也很大。
本文要做的就是单句SQL实现该功能。
先分析一下,该业务有两个关键点。
一是字符串拼接，oracle（11.2）提供了listagg函数已经实现了该功能，我们直接使用就可以。
二是字符串拆分，oracle没有实现该功能，但是java提供了split函数实现了字符串拆分功能。
我们可以参考java的split函数写一个oracle版split函数。
split函数的功能是将字符串按照特定字符分隔为多个小字符串，返回结果以List或数组类型保存。
先创建一个type类型，代码如下：
create or replace type type_str is table of varchar2(100);
再创建split函数，代码如下：
create or replace function split(p_str varchar2,p_delimiter varchar2 default ‘,‘) return type_str
is
rs type_str:=type_str();
l_str varchar2(4000):=‘‘;
l_len number:=0;
begin
l_str:=p_str;
l_len:=length(p_delimiter);
while length(l_str)>0 loop
if instr(l_str,p_delimiter)>0 then
rs.extend;
rs(rs.count):=substr(l_str,1,instr(l_str,p_delimiter)-1);
l_str:=substr(l_str,instr(l_str,p_delimiter)+l_len);
else
rs.extend;
rs(rs.count):=l_str;
exit;
end if;
end loop;
return rs;
end;
/
show err;
测试：
1.基本功能
SQL> select column_value from table(split(‘1001,1002,1003‘,‘,‘));
COLUMN_VALUE
--------------------------------------------------------------------------------
1001
1002
1003
2.字符转数字+默认分隔符
SQL> select to_number(column_value) from table(split(‘1001,1002,1003‘));
TO_NUMBER(COLUMN_VALUE)
-----------------------
1001
1002
1003
3.支持多分隔符
SQL> select column_value from table(split(‘[email protected]#[email protected]#1003‘,‘@#‘));
COLUMN_VALUE
--------------------------------------------------------------------------------
1001
1002
1003
单个split函数测试成功了，和listagg函数联合使用，需要构建两张表。
为了方便理解，我们构建一下业务场景。
构建业务场景（本业务场景纯属虚构，如有雷同纯属巧合）：
有一张作者表，记录作者的个人信息（如：姓名、年龄等），主键是序列号生成的。
有一张书籍表，记录书籍的信息（如：书名、出版社、作者等），主键是序列号生成的。
一个作者可能写过多本书，一个书可能由多个作者联合编著。
对于多对多的情况，一般的设计原则是增加多对多关系表，用于记录书籍表主键和作者表主键。
由于种种原因吧，我们现在要说的不是一般的设计，
而是直接在书籍表怎么作者属性，取值为作者表主键，但存在多个作者时用‘,‘分隔。
好的。业务场景描述清楚了，现在开始建表和初始化数据。
create table author
(
a_id number(8) not null,
a_name varchar2(100),
a_age number(3)
);
create table book
(
b_id number(8) not null,
b_name varchar2(100),
a_id varchar2(100)
);
insert into author values (1001,‘zhangsan‘,40);
insert into author values (1002,‘lisi‘,30);
insert into author values (1003,‘wangwu‘,50);
commit;
insert into book values (2001,‘Think in pl/sql‘,‘1001,1002,1003‘);
commit;
与listagg函数联合查询：
select b_id,b_name,a_id,
(select listagg(a_name,‘,‘) within group (order by a_id) from author
where a_id in (select to_number(column_value) from table(split(b.a_id,‘,‘)))) a_name
from book b；
注意：listagg是oracle 11.2版本的新功能。