oracle生成重复字符串,Oracle去掉重复字符串

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

str := RemoveSameStr('zhang,Zhang,bao,Bao,bao,zhang', ',');

输出: zhang,Zhang,bao,Bao

-->SQL

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

return varchar2 is

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

** Copyright (c) 2008,亚科技术开发中心

** All rights reserved.

**

** 函数名称：RemoveSameStr

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

**           oldStr           varchar2       要处理的字符串

**           sign             varchar2       字符串分隔符

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

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

**

** 当前版本：1.0

**

** 作    者：zhangbq

** 完成日期：2008年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;

注：该函数是区分字符串大小写，也可以再改进一下传个参数，忽略大小写。待续……

来源：http://zhangbq168.blog.163.com/blog/static/237353052008396136597/