oracle中去除重复函数,Oracle 去除字符传中重复的记录 自定义函数

create or replace function RemoveSameStr(oldStr varchar2, sign varchar2)

return varchar2 is

/****************************************************

**

** 函数名称：RemoveSameStr

** 参 数：【名称】 【类型 】 【说明】

** oldStr varchar2 要处理的字符串

** sign varchar2 字符串分隔符

** 返 回 值：Result varchar2 不包含重复子串的记录

** 摘 要：去除字符传中重复的记录

**

** 当前版本：1.0

**

** 作 者：HeavenBen

** 完成日期：2015年04月09日

** 备 注：

****************************************************/

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;

--字符串太长

if length(oldStr) > 1000 then

return(oldStr);

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;

--取最后一个字符串:

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

--去掉重复出现的字符串:

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);

--数组置空:

arr(i) := '';

end if;

end loop;

--去掉前面的标识符:

Result := substr(str, 2, length(str));

return(Result);

end RemoveSameStr;