LotusScript下的 @Explode 函数(把字符串分隔成数组的函数)

LotusScript的函数如下:

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

aOutput(Ubound(aOutput)) = Left(sOutput, nPos - 1)

sOutput = Right(sOutput, Len(sOutput) - Len(sDelimiter) - nPos + 1)

nPos = Instr(sOutput, sDelimiter)

Redim Preserve aOutput(Ubound(aOutput) + 1)

Wend

aOutput(Ubound(aOutput)) = sOutput

Explode = aOutput

End Function

使用范例

vList = Explode("Item 1,Item 2,Item 3", ",")

Forall vItem In vList

Msgbox vItem

End Forall

如有问题可到http://www.oaunion.com/bbs中提出或讨论.