ITPub博客

首页 > Linux操作系统 > Linux操作系统 > oracle 函数 去重字段中的重复值

oracle 函数 去重字段中的重复值

原创 Linux操作系统 作者:dppass2 时间:2011-02-24 15:02:21 0 删除 编辑

/* 示例

select myquchong('a/a/b/b/a/c') from dual;

MYQUCHONG('A/A/B/B/A/C')
a/b/c
*/

create or replace function myquchong(oldStr varchar2) return varchar2 is
  str     varchar2(1000); --存放原始字符串
  midstr   varchar2(1000); --存放单个关键字,两个斜杠之间的
  Result   varchar2(1000); --存放结果字符串
  startIndex number;
  endIndex  number;
  i number;
begin
--如果传入的字符串为空,则直接返回空
  if oldStr is null then
    return ('');
  end if;
  --初始化参数
 str :=  oldStr || chr(47);
 startIndex := 0;
 endIndex := 0;
 i :=0;
loop
  i :=i+1; --第一次执行时为1
  startIndex := endIndex;
  --获取斜杠第i次出现的位置
  endIndex := instr(str, chr(47), 1, i);
           if (endIndex = 0) then
            exit;
           end if;
  --截取整个关键字,放在一个变量中
   midstr :=trim(substr(str, startIndex + 1, endIndex - startIndex - 1));
 
     --第一次赋值前,结果集为空。
          if (Result is null)  then
          Result := midstr;
          end if;
          --第二次赋值前判断是否在结果集中已经存在,前后加斜杠确保是整个关键字匹配
          if instr(chr(47) || Result ||chr(47),chr(47) || midstr ||chr(47))=0   then
          Result :=Result || chr(47) || midstr;
          end if;
  
  end loop;
 
return(Result);

end myquchong;

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

请登录后发表评论 登录
全部评论

注册时间:2008-11-26

  • 博文量
    39
  • 访问量
    74577