給Oracle添加split和splitstr函數的方法？

oracle的split函數截取如何返回成一行數據

CREATEORREPLACETYPEty_str_splitISTABLEOFVARCHAR2(4000);

CREATEORREPLACEFUNCTIONsplit(p_strINVARCHAR2,p_delimiterINVARCHAR2)

RETURNty_str_split

IS

jINT:=0;

iINT:=1;

lenINT:=0;

len1INT:=0;

strVARCHAR2(4000);

str_splitty_str_split:=ty_str_split();

BEGIN

len:=LENGTH(p_str);

len1:=LENGTH(p_delimiter);

WHILEj