Chinaunix首页 | 论坛 | 博客
  • 博客访问: 681730
  • 博文数量: 845
  • 博客积分: 5000
  • 博客等级: 大校
  • 技术积分: 5015
  • 用 户 组: 普通用户
  • 注册时间: 2008-10-15 16:22
文章分类

全部博文(845)

文章存档

2011年(1)

2008年(844)

我的朋友

分类:

2008-10-15 16:27:55

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;
              --跳出循环
              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;


--------------------next---------------------

阅读(600) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~