以下函數(shù)是在編寫Oracle數(shù)據(jù)庫(kù)存儲(chǔ)過(guò)程時(shí)寫的函數(shù),相信下文中的內(nèi)容對(duì)大家會(huì)非常有幫助，重要的是該函數(shù)通用性比較強(qiáng)，故拿出來(lái)與大家分享，供大家參考，希望對(duì)大家能夠有所幫助。

這個(gè)函數(shù)的功能主要是用于去除給定字符串中重復(fù)的字符串.在使用中需要指定字符串的分隔符.示例:

str := MyReplace('13,14,13,444', ',');

輸出:

13,14,444

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;

取最后一個(gè)字符串:

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

去掉重復(fù)出現(xiàn)的字符串:

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

數(shù)組置空:

arr(i) := '';

end if;

end loop;

去掉前面的標(biāo)識(shí)符:

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

return(Result);

end MyReplace;

到這里，關(guān)于Oracle存儲(chǔ)過(guò)程中去掉重復(fù)字符串函數(shù)的講解就全部講完了，希望大家都能夠通過(guò)上文中的學(xué)習(xí)有所收獲。