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;
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;
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;
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;
本文详细介绍了SQL中自定义字符串替换函数的实现过程,包括初始化变量、遍历字符串、处理特殊边界条件以及最终结果的整合。通过实例演示了如何在实际场景中灵活运用此函数,提高代码效率。
694

被折叠的 条评论
为什么被折叠?



