两个存储过程程序例实.docVIP

第一个存储过程，属性串替换函数,常用于数据订正过程中(使用oracle提供的replace函数会有问题) create or replace function sp_replace_property_value(v_ch varchar2,v_from varchar2, v_to varchar2) return varchar2/*creator:danchencreate_time:2008-4-19function:replace taobao property name and property value id as groupv_ch 属性串;v_from 源属性; v_to 目标属性,目标属性可为空，则变成删除属性*/as--定义返回的返回的属性字符串result_v varchar2(200):=;--定义剩余属性字符串变量temp_v varchar2(200):=;--定义分号位置fenhao_address number;--定义临时属性对变量v_pv varchar2(20); beginif v_ch is null or v_from is null thenreturn error;end if;if instr(v_ch,:) = 0 or instr(v_from,:)= 0 thenreturn error;end if;temp_v := v_ch;loopfenhao_address := instr(temp_v,;);if fenhao_address=0 then--没有找到分号,则为最后一组属性名：属性值v_pv := temp_v;--检查属性是否是要替换的属性if v_pv != v_from thenresult_v := result_v||;||v_pv ;elseif v_to is not null thenresult_v := result_v||;||v_to;end if;end if;--跳出循环exit;else--取出属性对v_pv := substr(temp_v,1,instr(temp_v,;)-1);--检查属性是否是要替换的属性if v_pv != v_from thenresult_v := result_v||;||v_pv ;elseif v_to is not null thenresult_v := result_v||;||v_to;end if;end if;--得到剩余的属性对temp_v := substr(temp_v,instr(temp_v,;)+1);end if;???????? end loop;--对结果进行处理,去掉最左侧的分号if substr(result_v,1,1)=; thenresult_v := substr(result_v,2);end if;--返回结果return result_v;end sp_replace_property_value; ? 第一个存储过程使用示例： SQL select sp_replace_property_value(33392:118167;33393:107054;33391:118167,33393:107054,) from dual; SP_REPLACE_PROPERTY_VALUE(33392:118167;33393:107054;33391:118167,33393:107054 -------------------------------------------------------------------------------- 33392:118167;33391:118167 SQL select sp_replace_property_value(33392:118167;33393:107054;33391:118167,33393:107054,33393:100) from dual; SP_REPLACE_PROPERTY_VALUE(33392:118167;33393:107054;33391:118167,33393:107054 -------------------------------------------------------------------------------- 33392:118167;33393:100;33391:118167第二个存储过程，检查相关属性对在目标属性串是否存在，常用于select查询语句(使用oracle提供的like查询会不准确)