The function of LotusScript is as follows:
Function Explode (Byval sInput As String, ByVal sDelimiter As String) As Variant Dim sOutput As String Dim aOutput () As String Dim nPos As Integer Dim nNextPos As Integer sOutput = sInput Redim aOutput (0) nPos = Instr (sOutput, sDelimiter) While NPOS <> 0) = left (Soutput, Npos - 1) SOUTPUT = Right (Soutput, Len (Soutput) - LEN (SDELIMITER) - NPOS 1) NPOS = Instr (Soutput, SDELIMITER) Redim Preserve AOUTPUT 1) Wend aoutput (Ubound (aoutput) = SOUTPUT Explode = aoutput end function
Use example
Vlist = exPlode ("Item 1, Item 2, Item 3", ") FORALL VION VLIST MSGBOX VIND FORALL
