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 |
发表于 @ 2005年03月30日 15:30:00|评论(loading...)|编辑