LotusScript数组列表操作函数概要1.pptx

LotusScript字符串操作实例 Repeat Function Function StringToList (thisText As String, delim As String) As Variant ** convert a string to a list, separating at the specified delimiter. ** this is often easier to use than StringToArray, since you dont have ** to worry about dimensioning your return variable Dim templist List As String Dim tempstring As String Dim delimlength As Integer Dim pos As Integer Dim i As Integer Find the last substring in a string Function InstrLastEasy (startPos As Integer, fullString As String, _ searchString As String, caseSensitive As Integer) As Integer Dim pos As Integer, lastPos As Integer pos = Instr(startPos, fullString, searchString, caseSensitive) Do While (pos 0) lastPos = pos pos = Instr(lastPos + 1, fullString, searchString, caseSensitive) Loop InstrLastEasy = lastPos End Function LotusScript version of @Left Function StringLeft (text As String, searchTerm As String, caseSensitive As Integer) As String ** Example: StringLeft(, ., True) would return www ** If the searchTerm isnt found, nothing is returned Dim pos As Integer ** If there is no searchTerm, just exit If (searchTerm = ) Then StringLeft = text Exit Function End If ** try to find the searchTerm pos = Instr(1, text, searchTerm, caseSensitive) If (pos 0) Then StringLeft = Left$(text, pos - 1) Else StringLeft = End If End Function LotusScript version of @LeftBack Function StringLeftBack (text As String, searchTerm As String, caseSensitive As Integer) As String ** Example: StringLeftBack(, ., True) would ** return www.lotus ** If the searchTerm isnt found, nothing is returned Dim pos As Integer ** If there is no searchTerm, just exit If (searchTerm = ) Then StringLeftBack = text Exit Function End If ** try to find the searchTerm, using the custom ** InstrLast function pos = InstrLast(1, text, searchTerm, caseSensitive) If (pos 0) Then StringLeftBack = Left$(text, pos - 1) Else StringLeftBack = End If End Function LotusScript ver