文書の全文検索をスクリプトで行う2通りのサンプルコード| ノーツドミノ

文書の全文検索をロータススクリプトで実行するサンプルコードの紹介です。
以下のようなスクリプトを使用します。全文検索あり、なしを IsFTindexed プロパティで確認し場合分けをして検索してます。
ただし全文検索が作成されていないば場合には、検索に時間がかかる点に注意してください。

以下の例では "field1" フィールドに "1" という値が入っている文書を検索しています。見つかった文書それぞれに関して、メッセージボックスで「subject」フィールドの値を表示します。

Dim collection As NotesDocumentCollection

Dim session As New NotesSession

Set db = session.CurrentDatabase



If db.IsFTindexed Then

'全文索引が作成されている場合

      query = "FIELD field1=1"

      Set collection = db.FTSearch(query, 0)

Else

'全文索引がない場合

      query = "field1=1"

      Set dateTime = New NotesDateTime( "" )

      Set collection = db.Search(query, dateTime, 0)

End If



rem 検索で見つかった文書のコレクションを順番に表示する

For i = 1 To collection.Count

     Set doc = collection.GetNthDocument(i)

     Messagebox doc.Subject(0)

Next

(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)

[ホーム] - [ノーツドミノ プログラミングサンプル一覧]