Lotus notes 如何在LotusNotes脚本中标记字符串

我需要将一个字符串拆分为几个令牌，就像下面的java代码一样：

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

您可以使用该函数，其中第一个参数是字符串，第二个参数是标记分隔符

以下是解决方案：

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

---

以下是我从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

函数isTokenInStr（tokenStr作为字符串，strToSearch作为字符串）作为布尔值
isTokenInStr=真
Dim tokenArr作为变体
tokenArr=Split（tokenStr，“”）
作为整数的Dim IDXtokenar
对于IDXtokenar=LBound（tokenArr）到UBound（tokenArr）
Dim tokenElementStr作为字符串
tokenElementStr=tokenArr（idxtokenar）
如果InStr（strtokensearch，tokenElementStr）将index=lbound（myTokens）的dim index设置为整数，则将ubound（myTokens）打印为