Split a string by character

CREATE OR REPLACE PROCEDURE get_split (

V_string1 in VARCHAR2,--input string
V_start in number,--the position at which to start the Intercept
V_length in numbers,--number of characters intercepted
V_split in VARCHAR2--separator symbol

)

As

V_string2 VARCHAR2 (50); --Retain the truncated string

BEGIN

For I in V_start. LENGTH (V_STRING1) LOOP--from the first position of a string to the last position of the string
V_string2:=substr (v_string1,i,v_length); --Traversal string
If INSTR (V_string2, V_split) =0 and LENGTH (v_string2) > 2 Then--if the position of '. ' In the string is empty then no. character; length of string CHAR2 > 2
Dbms_output.    Put_Line (V_STRING2); --Output CHAR2
END IF;
END LOOP;

END Get_split;

Split a string by character