pl/sql 编程实现类似于Java中String的split函数功能
只是类似,功能没有Java中String的split函数功能强大,只是满足简单有应用,即把字符串按指定的分隔符号截取,并返回数组。
下面是代码:
--定义T_CHAR类型
create type ty_str_split as table of varchar2(100);
/**
* 函数名:str_split
* 参 数:p_str 待截取的字符串(目标字符串:以某种特定的字符分隔的字符串)
* p_delim 分隔字符串
* 返回值:为T_CHAR类型,类似一维数组
* 功能:实现类似于JS中split函数功能
*/
function str_split (p_str in varchar2
,p_delim in varchar2 default ',')
return T_CHAR as
v_str varchar2(32767);
v_fields pls_integer;
v_substr varchar2(32767);
v_return T_CHAR;
begin
v_str := p_delim||trim(p_delim from p_str)||p_delim;
v_fields := length(v_str) - length(replace(v_str,p_delim,'')) - 1;
for i in 1..v_fields loop
v_substr := substr(v_str
,instr(v_str,p_delim,1,i)+1
,instr(v_str,p_delim,1,i+1) - instr(v_str,p_delim,1,i) -1);
v_return(i) := v_substr;
end loop;
return v_return;
end;
create or replace procedure test1 as v_array T_CHAR; begin v_array:=str_split('1a,2b,3c,4d',','); for i in 1..v_array.count loop dbms_output.put_line('v_array('||i||')='||v_array(i)); end loop; end test1;