Oracle splits strings into Arrays Using Stored Procedures

TypeTt_typeIs Table Of Varchar2(32)Index By Binary_integer;

 --Use","Converts the split string to an array and returns the number of arrays,

-- Lei E-mail: Landgis@126.com, yanleigis@21cn.com 2002.06.03 prepared

FunctionToarray (liststrIn Varchar2, V1OutTt_type)Return Integer Is

 

-- FieldnamesConvert to array
TmpstrVarchar2(32 );
StrVarchar2(4000 );
JInteger;
Begin
STR: = liststr;
J: = 0;
IfInstr (liststr, ',', 1, 1) = 0Then
V1 (j): = liststr;
J: = J + 1;
Else
WhileInstr (STR, ',', 1, 1)> 0Loop
Tmpstr: = substr (STR, 1, instr (STR, ',', 1, 1)-1 );

V1 (j): = tmpstr;
STR: = substr (STR, instr (STR, ',', 1, 1) + 1, length (STR ));
J: = J + 1;
End Loop;
If NotStrIs Null Then
--Save the last one
V1 (j): = STR;
J: = J + 1;
End If;
End If;
ReturnJ;
End;