昨天工作中遇到这个问题：
有一个这样的字符串expression变量，里面可能存储的值类似于以下
[Index_CivilWork,0]*(1+[Y10814,1])/[Y10674,1]
[300,1]/[PROCOST,$0]
给定另外一个整数常量 step
现在想用正则表达式，把expression中的，所有紧接着逗号之后的数字加上step，例如
如果step等于1 那么第一个应该得出[Index_CivilWork,1]*(1+[Y10814,2])/[Y10674,2]，第二个应该得出
[300,2]/[PROCOST,$0]
我的解决方法：
create or replace function f_get_nebformula(expression in varchar2, step in pls_integer)
return varchar2 is
i_l_commas pls_integer; --表达式中的逗号个数
i_l_dollars pls_integer; --表达式中的货币符号个数
str_result varchar2(2000);
i_l_strpos pls_integer;
i_l_endpos pls_integer;
i_l_laststrpos pls_integer;
i_l_lastendpos pls_integer;
i_l_number pls_integer;
begin
i_l_commas := length(regexp_replace(REPLACE(expression, ',', '@'), '[^@]+',''));
i_l_dollars := (length(expression)-length(replace(expression,'$','')))/length('$');
str_result := '';
--解析表达式
for i in 1 .. i_l_commas-i_l_dollars loop
i_l_strpos := regexp_instr(expression, ',[[:digit:]]', 1, i)+1; --第i个数字起始下标的位置
i_l_endpos := i_l_strpos + length(regexp_substr(expression, ',[[:digit:]]+', 1, i))-2; --第i个数字结束下标
i_l_number := substr(expression, i_l_strpos, i_l_endpos-i_l_strpos+1)+ step;
if i = 1 then
i_l_laststrpos := 0;
i_l_lastendpos := 0;
else
i_l_laststrpos := regexp_instr(expression, ',[[:digit:]]', 1, i-1)+1; --查找前一次模式的数字起始下标
i_l_lastendpos := i_l_laststrpos + length(regexp_substr(expression, ',[[:digit:]]+', 1, i-1))-2; --查找前一次模式的数字结束下标
end if;
--组装字符串
str_result := str_result || substr(expression, i_l_lastendpos+1, i_l_strpos-i_l_lastendpos-1)||i_l_number;
end loop;
--组装最后一段字符串
str_result := str_result || substr(expression, i_l_endpos+1, length(expression));
return(str_result);
end f_get_nebformula;