[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [文書の全文検索をスクリプトで行う2通りのサンプルコード]




文書の全文検索をスクリプトで行う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に拡張した言語です。)




本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)

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