如何在 Lotus Notes 脚本中标记字符串答案

【问题标题】：How to tokenize a string in Lotus Notes Script如何在 Lotus Notes 脚本中标记字符串
【发布时间】：2014-02-24 16:48:50
【问题描述】：

我需要将一个字符串拆分成几个标记，就像下面的 java 代码：

StringTokenizer st = new StringTokenizer(mystring);
while (st.hasMoreTokens()) {
    System.out.println(st.nextToken());
}

【问题讨论】：

标签： lotus-notes lotusscript

【解决方案1】：

您可以使用函数Split(myString, " ")，其中第一个参数是您的字符串，第二个参数是标记分隔符。

解决办法如下：

Dim myString = myDocument.myField(0)
Dim myTokens = Split(myString, " ")
Dim fisrtToken = myTokens(0)
Dim secondToken = myTokens(1)

【讨论】：

dim index as integer for index=lbound(myTokens) to ubound(myTokens) print myTokens(indeX) end for

【解决方案2】：

这是我根据 IBM Lotus Notes 7 的答案实现的代码：

Function isTokenInStr(tokenStr As String, strToSearch As String) As Boolean
    isTokenInStr = True

    Dim tokenArr As Variant
    tokenArr = Split(tokenStr, " ")
    Dim idxTokenArr As Integer 
    For idxTokenArr = LBound(tokenArr) To UBound(tokenArr) 
        Dim tokenElementStr As String
        tokenElementStr = tokenArr(idxTokenArr)
        If InStr(strToSearch, tokenElementStr) <= 0 Then
            isTokenInStr = False
            Exit For
        End If
    next
End Function

【讨论】：