LOTUSSCRIPT /COM/OLE のクラス
例:FTSearch メソッド
1. 次のスクリプトは 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 )
2. 次のスクリプトは上の例と同じビューを開いて「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 )
3. 次のスクリプトは「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
関連項目
FTSearch メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集