有没有一个函数在PL / SQL中拆分string？
我需要编写一个过程来标准化一个logging，这个logging有多个由一个字符连接的令牌。 我需要获得这些令牌拆分string，并插入每个作为一个新的logging在表中。 Oracle是否有类似“分裂”function的东西？
你必须推出自己的。 例如，
/* from :http://www.builderau.com.au/architect/database/soa/Create-functions-to-join-and-split-strings-in-Oracle/0,339024547,339129882,00.htm select split('foo,bar,zoo') from dual; select * from table(split('foo,bar,zoo')); pipelined function is SQL only (no PL/SQL !) */ create or replace type split_tbl as table of varchar2(32767); / show errors create or replace function split ( p_list varchar2, p_del varchar2 := ',' ) return split_tbl pipelined is l_idx pls_integer; l_list varchar2(32767) := p_list; l_value varchar2(32767); begin loop l_idx := instr(l_list,p_del); if l_idx > 0 then pipe row(substr(l_list,1,l_idx-1)); l_list := substr(l_list,l_idx+length(p_del)); else pipe row(l_list); exit; end if; end loop; return; end split; / show errors; /* An own implementation. */ create or replace function split2( list in varchar2, delimiter in varchar2 default ',' ) return split_tbl as splitted split_tbl := split_tbl(); i pls_integer := 0; list_ varchar2(32767) := list; begin loop i := instr(list_, delimiter); if i > 0 then splitted.extend(1); splitted(splitted.last) := substr(list_, 1, i - 1); list_ := substr(list_, i + length(delimiter)); else splitted.extend(1); splitted(splitted.last) := list_; return splitted; end if; end loop; end; / show errors declare got split_tbl; procedure print(tbl in split_tbl) as begin for i in tbl.first .. tbl.last loop dbms_output.put_line(i || ' = ' || tbl(i)); end loop; end; begin got := split2('foo,bar,zoo'); print(got); print(split2('1 2 3 4 5', ' ')); end; / 有apex_util.string_to_table – 请参阅我对这个问题的回答 。
此外，在上述function的存在之前，我曾经在我的博客上发布过一个解决scheme。
更新
在更高版本的APEX中， 不推荐使用 apex_util.string_to_table ，并且首选apex_string.split类似的函数。
这只适用于Oracle 10G及更高版本。
基本上，你使用regex_substr做一个拆分string。
如果APEX_UTIL不可用，则使用REGEXP_SUBSTR()有一个解决scheme。
受启发http://nuijten.blogspot.fr/2009/07/splitting-comma-delimited-string-regexp.html ：
DECLARE I INTEGER; TYPE T_ARRAY_OF_VARCHAR IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER; MY_ARRAY T_ARRAY_OF_VARCHAR; MY_STRING VARCHAR2(2000) := '123,456,abc,def'; BEGIN FOR CURRENT_ROW IN ( with test as (select MY_STRING from dual) select regexp_substr(MY_STRING, '[^,]+', 1, rownum) SPLIT from test connect by level <= length (regexp_replace(MY_STRING, '[^,]+')) + 1) LOOP DBMS_OUTPUT.PUT_LINE(CURRENT_ROW.SPLIT); MY_ARRAY(MY_ARRAY.COUNT) := CURRENT_ROW.SPLIT; END LOOP; END; /
您可以使用SUBSTR和INSTR的组合，如下所示：
示例string： field = 'DE124028#@$1048708#@$000#@$536967136#@$'
分隔符是＃@ $。
以“1048708”为例：
如果字段的长度是固定的（这里是7）：
substr(field,instr(field,'#@$',1,1)+3,7)
如果字段长度可变：
substr(field,instr(field,'#@$',1,1)+3,instr(field,'#@$',1,2) - (instr(field,'#@$',1,1)+3))
您可能应该考虑SUBSTR和INSTR函数以获得更大的灵活性。
请找一个你可能会觉得有用的例子
–1个子string
select substr('alfa#bravo#charlie#delta', 1, instr('alfa#bravo#charlie#delta', '#', 1, 1)-1) from dual;
– 第二个子string
select substr('alfa#bravo#charlie#delta', instr('alfa#bravo#charlie#delta', '#', 1, 1)+1, instr('alfa#bravo#charlie#delta', '#', 1, 2) - instr('alfa#bravo#charlie#delta', '#', 1, 1) -1) from dual;
– 第3子string
select substr('alfa#bravo#charlie#delta', instr('alfa#bravo#charlie#delta', '#', 1, 2)+1, instr('alfa#bravo#charlie#delta', '#', 1, 3) - instr('alfa#bravo#charlie#delta', '#', 1, 2) -1) from dual;
– 第4个子string
select substr('alfa#bravo#charlie#delta', instr('alfa#bravo#charlie#delta', '#', 1, 3)+1) from dual;
最好的祝福
埃马努埃莱
function numinstr(p_source in varchar2,p_token in varchar2) return pls_integer is v_occurrence pls_integer := 1; v_start pls_integer := 1; v_loc pls_integer; begin v_loc:=instr(p_source, p_token, 1, 1); while v_loc > 0 loop v_occurrence := v_occurrence+1; v_start:=v_loc+1; v_loc:=instr(p_source, p_token, v_start, 1); end loop; return v_occurrence-1; end numinstr; -- -- -- -- function get_split_field(p_source in varchar2,p_delim in varchar2,nth pls_integer) return varchar2 is v_num_delims pls_integer; first_pos pls_integer; final_pos pls_integer; len_delim pls_integer := length(p_delim); ret_len pls_integer; begin v_num_delims := numinstr(p_source,p_delim); if nth < 1 or nth > v_num_delims+1 then return null; else if nth = 1 then first_pos := 1; else first_pos := instr(p_source, p_delim, 1, nth-1) + len_delim; end if; if nth > v_num_delims then final_pos := length(p_source); else final_pos := instr(p_source, p_delim, 1, nth) - 1; end if; ret_len := (final_pos - first_pos) + 1; return substr(p_source, first_pos, ret_len); end if; end get_split_field;
我喜欢这个顶点实用程序的外观。 但是，您也可以使用以下标准的oracle函数：subStr和inStr http://download.oracle.com/docs/cd/B19306_01/server.102/b14200/functions001.htm
有一个简单的方法乡亲。 使用REPLACEfunction。 这是一个逗号分隔string准备传递给IN子句的例子。
在PL / SQL中：
StatusString := REPLACE('Active,Completed', ',', ''',''');
在SQL Plus中：
Select REPLACE('Active,Completed', ',', ''',''') from dual;
