Oracle反轉倒置函數

Oracle提供了一個反轉倒置函數reverse，但此函數不能分組倒置，本文提供了一個即可分組倒置的函數，如下所示：

CREATE OR REPLACE FUNCTION REVERSE_F(p_str VARCHAR2, p_delimiter VARCHAR2:=',')
  RETURN VARCHAR2 IS
  --=================================================================================
  -- author: houtingsong 730882 2014-11-07
  -- 字符串分隔分組反向倒置
  -- p_str:字符串
  -- p_delimiter:分隔符,默認爲","
  --=================================================================================
  v_return VARCHAR2(4000);
  vp_str   VARCHAR2(4000) := p_str;
  v_idx    number;
  vp_len   number := length(p_delimiter);
BEGIN
  if (p_delimiter is null) then
    select reverse(p_str) into v_return from dual;
  else
    loop
      v_idx := instr(vp_str, p_delimiter);
      if (v_idx = 0) then
        v_return := vp_str || v_return;
        exit;
      elsif (v_idx = 1) then
        v_return := substr(vp_str, 1, vp_len) || v_return;
        vp_str   := substr(vp_str, vp_len + 1);
      elsif (v_idx > 1) then
        v_return := substr(vp_str, 1, v_idx - 1) || v_return;
        vp_str   := substr(vp_str, v_idx);
      else
        exit;
      end if;
    end loop;
  end if;
  RETURN v_return;
END REVERSE_F;