CREATE OR REPLACE TYPE t_Table IS TABLE OF VARCHAR2(4000);
CREATE OR REPLACE FUNCTION FN_SplitStringByDelimiter(p_string IN VARCHAR2, p_delimiter IN VARCHAR2)
RETURN t_Table PIPELINED AS
v_delimiter_index INTEGER;
v_start_index INTEGER := 1;
v_table VARCHAR2(4000);
v_delimiter_length INTEGER := LENGTH(p_delimiter);
/*
功能:把某一个字符串按照指定的分隔符分隔,并以Table形式返回
*/
BEGIN
LOOP
— 查找当前分隔符的位置
v_delimiter_index := INSTR(p_string || p_delimiter, p_delimiter, v_start_index);
— 如果在字符串找不到字串则返回,退出循环
EXIT WHEN v_delimiter_index = 0;
— 得到分隔符前的值
v_table := SUBSTR(p_string, v_start_index, v_delimiter_index – v_start_index);
IF v_table IS NOT NULL THEN
— 返回该集合的单个元素
PIPE ROW(v_table);
END IF;
— 检索位置设置为当前分隔符的下一个
v_start_index := v_delimiter_index + v_delimiter_length;
END LOOP;
— 必须以一个空的RETURN 语句结束
RETURN;
END FN_SplitStringByDelimiter;
调用方法:SELECT column_value FROM TABLE(FN_SplitStringByDelimiter (‘a.b.c.d.e’, ‘.’));
SELECT column_value FROM TABLE(FN_SplitStringByDelimiter (‘123-;456-;789-;000’, ‘-;’));