為了解決日常工作中的問題，再加上好久沒有寫程序，利用這個周末的時間寫了如下的存儲過程或函數，公布于此處，希望能對大家寫這一類的程序有所啟發(fā)。大家對寫程序可能有一個誤區(qū)，有些人常說：你看我什么語言都會，比如說C,C++,VB,perl,shell,其實語言的本身并不重要，重要的還是在算法上，置于語法，用時去查一下就可以了。

第一個存儲過程，屬性串替換函數,常用于數據訂正過程中(使用oracle提供的replace函數會有問題)

create or replace function sp_replace_property_value(v_ch varchar2,v_from varchar2,

v_to varchar2) return varchar2

/*

creator:danchen

create_time:2008-4-19

function:replace taobao' property name and property value id as group

v_ch 屬性串;v_from 源屬性; v_to 目標屬性,目標屬性可為空，則變成刪除屬性

*/

as

--定義返回的返回的屬性字符串

result_v varchar2(200):='';

--定義剩余屬性字符串變量

temp_v varchar2(200):='';

--定義分號位置

fenhao_address number;

--定義臨時屬性對變量

v_pv varchar2(20);

begin

if v_ch is null or v_from is null then

return 'error';

end if;

if instr(v_ch,':') = 0 or instr(v_from,':')= 0 then

return 'error';

end if;

temp_v := v_ch;

loop

fenhao_address := instr(temp_v,';');

if fenhao_address=0 then

--沒有找到分號,則為最后一組屬性名：屬性值

v_pv := temp_v;

--檢查屬性是否是要替換的屬性

if v_pv != v_from then

result_v := result_v||';'||v_pv ;

else

if v_to is not null then

result_v := result_v||';'||v_to;

end if;

end if;

--跳出循環(huán)

exit;

else

--取出屬性對

v_pv := substr(temp_v,1,instr(temp_v,';')-1);

--檢查屬性是否是要替換的屬性

if v_pv != v_from then

result_v := result_v||';'||v_pv ;

else

if v_to is not null then

result_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)=';' then

result_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查詢會不準確)

create or replace function sp_exist_property(v_strpv varchar2,v_pv varchar2) return number

/*

creator:danchen

create_time:2008-4-20

function:檢查v_pv在屬性串v_strpv中是否全部存在

*/

as

type t_pvs is table of varchar2(50);

--保存分解后v_strpv

v_pvs t_pvs:=t_pvs();

--保存分解后v_pv

s_pvs t_pvs:=t_pvs();

--定義剩余屬性字符串變量

last_pvs varchar2(200):='';

--臨時屬性變量

temp_pv varchar2(50);

--定義分號位置

fenhao_address number;

--定義比較結果,0不存在；1存在

v_check number;

v_result number;

begin

if (v_strpv is null) or (v_pv is null) then

return -1;

end if;

if instr(v_strpv,':')=0 or instr(v_pv,':')=0 then

return -2;

end if;