How to tokenize a string in Lotus Notes Script

Question

I need to split a string into several tokens just like the java code below:

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

Answer 1

You can use the function Split(myString, " "), where the first parameter is your string and the second one the token delimiter.

Here's the solution:

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

Answer 2

Here's the code I implemented from the answers around for 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