去除给定字符串中重复的字符串

最新推荐文章于 2024-07-21 15:46:07 发布

原创最新推荐文章于 2024-07-21 15:46:07 发布 · 793 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#null #function #table

数据库学习专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个PL/SQL函数MyReplace，该函数用于从输入字符串中移除重复的子串，并通过指定分隔符实现这一功能。作者吴文吉详细解释了函数的工作原理及其实现过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

/*
这个函数的功能主要是用于去除给定字符串中重复的字符串.在使用中需要指定字符串的分隔符.
示例: str := MyReplace('13,14,13,444', ',');
输出: 13,14,444
撰写人: 吴文吉
撰写日期: 2009-06-03 15:53
*/

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

Result varchar2(4000);
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;

--取最后一个字符串
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 MyReplace;