以下函數是本人在編寫oracle數據庫存儲過程時寫的函數,覺得該函數通用性較強,因此發表出來供需要的人參考。
這個函數的功能主要是用于去除給定字符串中重復的字符串.在使用中需要指定字符串的分隔符.示例:
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;取最后一個字符串:
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;新聞熱點
疑難解答
