以下函數(shù)是本人在編寫Oracle數(shù)據(jù)庫(kù)存儲(chǔ)過(guò)程時(shí)寫的函數(shù),覺(jué)得該函數(shù)通用性較強(qiáng),因此發(fā)表出來(lái)供需要的人參考。 這個(gè)函數(shù)的功能主要是用于去除給定字符串中重復(fù)的字符串.在使用中需要指定字符串的分隔符.示例: str := MyReplace('13,14,13,444', ','); 輸出: 13,14,444create 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;