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;