【转载】oracle去重复字符串

最新推荐文章于 2022-12-02 16:11:57 发布

cikaoqin5248

最新推荐文章于 2022-12-02 16:11:57 发布

阅读量191

点赞数

这个函数的功能主要是用于去除给定字符串中重复的字符串.在使用中需要指定字符串的分隔符.示例:

str := MyReplace('13,14,13,444', ',');

输出:

DE>13,14,444

create or replace function MyReplace(oldStr varchar2, sign varchar2) return varchar2 is
  str varchar2(1000);
  currentIndex number; 
  startIndex number;
  endIndex number;

  type str_type is table of varchar2(30)
       index by binary_integer;
  arr str_type;

  Result varchar2(1000);
begin     
  if oldStr is null then
    return ('');
  end if;
  
  str := oldStr;
  
  currentIndex := 0;
  startIndex := 0;
  loop
    currentIndex := currentIndex + 1;
    endIndex := instr(str, sign, 1, currentIndex);
    if (endIndex <= 0) then
      exit;
  end if;
    
  arr(currentIndex) := trim(substr(str, startIndex + 1, endIndex - startIndex - 1));
  startIndex := endIndex;
  end loop;DE>

取最后一个字符串:

DE>arr(currentIndex) := substr(str, startIndex + 1, length(str));DE>

去掉重复出现的字符串:

DE>for i in 1.. currentIndex - 1 loop
  for j in i + 1..currentIndex loop
    if arr(i) = arr(j) then
      arr(j) := '';
    end if;
  end loop;
  end loop;

  str := '';
  for i in 1..currentIndex loop
  if arr(i) is not null then
    str := str || sign || arr(i);DE>

数组置空:

DE>arr(i) := '';
  end if;
  end loop;DE>

去掉前面的标识符:

DE>Result := substr(str, 2, length(str));
  return(Result);
end MyReplace;DE>

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

转载于:http://blog.itpub.net/22786751/viewspace-625788/