根据公式拆分字符串对应

原创[@more@]

CREATE OR REPLACE PROCEDURE SP_BAS_COMPUT(V_BVALID IN Varchar2, --基础值ID
V_PRCCODE IN Varchar2, --过程值代码字符串，字符串间隔附'||'
V_PRCVAL IN Varchar2, --过程值值字符串，字符串间隔附'||'
V_BACVAL OUT NUMBER) IS
--计算的基础值结果
v_ComptRule Varchar2(200);
v_ComptRule_ini v_ComptRule%type;
--过程值变量
V_PRCVAl_ini Varchar2(200) := V_PRCVAL;
V_PRCCODE_ini Varchar2(200) := V_PRCCODE;
--定义复合类型--索引表
type type_index is table of varchar2(200) index by binary_integer;
type_index_PRCVAL type_index;
type_index_computer type_index;
type_index_PRCCODE type_index;
v_pos pls_integer := 1;
i int := 1;
/**************************************
'功能名称：拆分公式
'作者:姚荣辉
'创建日期:20090927--20090927
'变更人:*** 变更日期:yyyy-mm-dd 变更内容：(1.1)***;(1.2)$$$
'变更人:*** 变更日期:yyyy-mm-dd 变更内容：(2.1)***;(2.2)$$$
'**************************************/
BEGIN
--解析过程值 代码 字符串存放在索引表变量中type_index_PRCCODE
while true loop
if instr(V_PRCCODE_ini, '||') = 0 then
type_index_PRCCODE(i) := V_PRCCODE_ini;
exit;
end if;
v_pos := instr(V_PRCCODE_ini, '||', 1, 1);
type_index_PRCCODE(i) := substr(V_PRCCODE_ini, 1, v_pos - 1);
V_PRCVAl_ini := substr(V_PRCCODE_ini, v_pos + length('||'));
i := i + 1;
end loop;
--初始化参数
i := 1;
--解析过程值 值 字符串存放在索引表变量中type_index_PRCVAL
while true loop
if instr(V_PRCVAl_ini, '||') = 0 then
type_index_PRCVAL(i) := V_PRCVAl_ini;
exit;
end if;
v_pos := instr(V_PRCVAl_ini, '||', 1, 1);
type_index_PRCVAL(i) := substr(V_PRCVAl_ini, 1, v_pos - 1);
V_PRCVAl_ini := substr(V_PRCVAl_ini, v_pos + length('||'));
i := i + 1;
end loop;
--初始化参数
/* i := 1;
--解析公式字符串 + - () /,的操作数存放在type_index_computer，操作符事先约定以'[print]'隔开
--获取表达式
select compt_rule, compt_rule
into v_ComptRule, v_ComptRule_ini
from conf_kpi_val
where bval_id = V_BVALID;
while true loop
--当不存在符号的时候数值存放索引表最后的元素中
if regexp_instr(v_ComptRule, '''[[:print:]]{1}''', 1, 1, 0) = 0 then
type_index_computer(i) := v_ComptRule;
exit;
end if;
--最初的位置
v_pos := regexp_instr(v_ComptRule, '''[[:print:]]{1}''', 1, 1, 0);
--截取的字符串
if substr(v_ComptRule, 1, v_pos - 1) is not null then
type_index_computer(i) := substr(v_ComptRule, 1, v_pos - 1);
i := i + 1;
else
i := i;
end if;
v_ComptRule := substr(v_ComptRule, v_pos + length('''1'''));
end loop;*/
--使用type_index_PRCVAL替换type_index_computer；一个变量存在多个运算数
for i in 1 .. type_index_PRCVAL.count loop
v_ComptRule_ini := regexp_replace(v_ComptRule_ini,
type_index_PRCCODE(i),
type_index_PRCVAL(i));
end loop;
--获取返回值
v_ComptRule_ini := 'select ' || regexp_replace(v_ComptRule_ini, '''', '') ||
' from dual';
execute immediate v_ComptRule_ini
into V_BACVAL;

EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
-- Consider logging the error and then re-raise
RAISE;
END SP_BAS_COMPUT;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/450962/viewspace-1028223/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/450962/viewspace-1028223/