自定义Oracle replace函数不区分大小写

在网上找的一函数，后来发现有点小问题，自己改了一下。

 

 

Function StrReplace(n_Str     IN varchar2,
                    n_Search  IN varchar2,
                    n_Replace IN varchar2) return varchar2 is
  v_Result varchar2(4000);
  v_Pos    number;
  v_Len    number;
  v_len_r  number;
begin
  v_Result := n_Str;
  v_Len    := length(n_Search);
  v_len_r  := length(n_Replace);

  v_Pos := instr(Upper(v_Result), Upper(n_Search));
  while v_Pos <> 0 loop
    v_Result := SubStr(v_Result, 1, v_Pos - 1) || n_Replace ||
                SubStr(v_Result, v_Pos + v_Len);
    v_Pos    := instr(Upper(v_Result), Upper(n_Search), v_Pos + v_Len_r);
  end loop;
  return(v_Result);
end;