Oracle 创建 split 和 splitstr 函数

发布时间：2020-12-12 14:11:21 所属栏目：百科来源：网络整理

导读：Sql语句最好依次执行创建 /************************************** * name: split * author: sean zhang. * date: 2012-09-03. * function: 返回字符串被指定字符分割后的表类型。 * parameters: p_list: 待分割的字符串。 p_sep: 分隔符，默认逗号，也可以

Sql语句最好依次执行创建

/**************************************
* name: split
* author: sean zhang.
* date: 2012-09-03.
* function: 返回字符串被指定字符分割后的表类型。
* parameters: p_list: 待分割的字符串。
p_sep: 分隔符，默认逗号，也可以指定字符或字符串。
* example: select * from users where u_id in (select column_value from table (split ('1,2')))
返回u_id为1和2的两行数据。
**************************************/
/* 创建一个表类型 */
create or replace type tabletype as table of varchar2(32676)

/* 创建 split 函数 */
create or replace function split (p_list clob,p_sep varchar2 := ',')
return tabletype
pipelined

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;

/**************************************
* name: splitstr
* author: sean zhang.
* date: 2012-09-03.
* function: 返回字符串被指定字符分割后的指定节点字符串。
* parameters: str: 待分割的字符串。
i: 返回第几个节点。当i为0返回str中的所有字符，当i 超过可被分割的个数时返回空。
sep: 分隔符，默认逗号，也可以指定字符或字符串。当指定的分隔符不存在于str中时返回sep中的字符。
* example: select splitstr('abc,def',1) as str from dual; 得到 abc
select splitstr('abc,3) as str from dual; 得到空
**************************************/
/* 创建 splitstr 函数 */
create or replace function splitstr(str in clob,
i in number := 0,
sep in varchar2 := ',') return varchar2 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;

示例：split(字符串,标识)

select split('a,b,c,e,d,f,g') arrData from dual;

默认使用逗号分割，可以自定义修改，如：select split('X-rapido & Lemon','&') arrData from dual;

点开集合

默认使用逗号分割，可以自定义修改，如：select split('X-rapido & Lemon','&') arrData from dual;

示例：splitstr(字符串,获取的节点下标,分隔符)

select splitstr('X-rapido&Lemon&Jennifer','&') word from dual; -- X-rapido
select splitstr('X-rapido&Lemon&Jennifer',2,'&') word from dual; -- Lemon
select splitstr('X-rapido&Lemon&Jennifer',3,'&') word from dual; -- Jennifer
select splitstr('X-rapido&Lemon&Jennifer',4,'&') word from dual;-- 空字符串

select * from table(split('1aa,bbb,ccc',','));

转自：https://www.cnblogs.com/soundcode/p/6145216.html

测试： 1、建立测试表： SQL> create table test(A_URS_ID varchar2(100));

Table created.

SQL> create table test1(URS_ID varchar2(100),SR_NAME VARCHAR2(100));

Table created.

SQL> INSERT INTO TEST VALUES('123,125');

1 row created.

SQL> INSERT INTO TEST VALUES('123,124,125');

1 row created.

SQL> INSERT INTO TEST1 VALUES('123','name1');

1 row created.

SQL> INSERT INTO TEST1 VALUES('124','name2');

1 row created.

SQL> INSERT INTO TEST1 VALUES('125','name3');

1 row created.

SQL> COMMIT;

Commit complete.

SQL> SELECT * FROM TEST;

A_URS_ID
--------------------------------------------------------------------------------
123,125
123,125

SQL> SELECT * FROM TEST1;

URS_ID
--------------------------------------------------------------------------------
SR_NAME
--------------------------------------------------------------------------------
123
name1

124
name2

125
name3

2、更改字段内容： set serveroutput on; 增加字段： SQL> alter table test add subjname varchar2(4000); declare subjname varchar2(4000) := ''; a_urs_id varchar2(4000) := ''; title varchar2(4000) := ''; v_count integer :=0; sqlstr varchar2(4000) := ''; begin for i in (select title,a_urs_id from test) loop subjname := ''; a_urs_id :=''; title := i.title; a_urs_id := i.a_urs_id; select wmsys.wm_concat(dict.sr_name) into subjname from table(split(a_urs_id,')) val,test1 dict where val.COLUMN_VALUE=dict.urs_id; dbms_output.put_line(subjname); v_count := v_count + 1; sqlstr :='update test set subjname =:1 where a_urs_id =:2'; execute immediate sqlstr using subjname,a_urs_id; if v_count mod 2 = 0 then commit; end if; end loop; commit; end; /

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!