oracle倒置数字,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;