例: FTSearch method (NotesView - LotusScript®)

次のスクリプトは WALNUT.NSF のビューで単語「benchmark」の全文検索を行います。変数 j には「benchmark」を含む文書の数が含まれます。例えば、「22」のように含まれます。
```
Dim db As New NotesDatabase( "Montreal", "walnut.nsf" )
Dim view As NotesView
Dim j As Long
Set view = db.GetView( "By Date¥Ascending By Main Topic" )
j = view.FTSearch( "benchmark", 0 )
```
次のスクリプトは上の例と同じビューを開いて「benchmark*」を検索条件にして全文検索を行います。FTSearch メソッドは自動的には語尾変化を検索しませんが、ワイルドカードを使用しているため、語尾が異なる「benchmarks」、「benchmarked」、「benchmarking」などを検索できます。
```
Dim db As New NotesDatabase( "Montreal", "walnut.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Dim j As Long
Set view = db.GetView( "By Date¥Ascending By Main Topic" )
j = view.FTSearch( "benchmark*", 0 )
```

次のスクリプトは「server」と「protocol」の両方を含むすべての文書をビューで検索して、見つけられた文書を [For Review] フォルダに入れます。フォルダがない場合は作成されます。それが完了すると、検索結果を消去します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim j As Long
Set db = session.CurrentDatabase
Set view = db.GetView("All Documents")
j = view.FTSearch( "server AND protocol", 0 )
Set doc = view.GetFirstDocument()
While Not(doc Is Nothing)
   Call doc.PutInFolder( "For Review", True )
   Set doc = view.GetNextDocument(doc)
Wend
Call view.Clear