Oracle实现substring_index函数功能

遇到一个无语的需求，需要我在oracle实现一个substring_index函数。
看了网上的一些资料，发现他们写的语法还是按照mysql那样写，导致无法使用。

参数

substring_index(f_string, f_delimiter, f_position)

参数名	描述
f_string	原始字符串
f_delimiter	查找分隔符
f_position	搜索分隔符次数。若为正数，则从左侧开始查找，若为负数，则从右侧开始查找

函数源码

CREATE OR REPLACE function substring_index(f_string in varchar2, f_delimiter in varchar2, f_position in number) return varchar2 
as
o_string varchar2(4000);
v_direction int;
v_instr_pos int;
BEGIN 
IF f_position = 0 THEN
		RETURN '';
END IF;
IF f_position > 0 THEN
	v_direction := 1;
	select INSTR(f_string, f_delimiter,v_direction,f_position) into v_instr_pos from dual;
	select SUBSTR(f_string, 1,CASE WHEN v_instr_pos = 0 THEN LENGTH(f_string) ELSE v_instr_pos-1 END) INTO o_string from dual;
ELSE
	v_direction := 1;
	select INSTR(f_string, f_delimiter,v_direction,ABS(f_position)) into v_instr_pos from dual;
	select SUBSTR(f_string, v_instr_pos+1,LENGTH(f_string)) INTO o_string from dual;
END IF;
RETURN o_string;
END substring_index;