LOTUSSCRIPT /COM/OLE のクラス
例:IsFTIndexed プロパティ
1 次のスクリプトは現在のデータベースに全文索引があるかどうかを調べてから FTSearch メソッドを呼び出します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
If db.IsFTIndexed Then
Set collection = db.FTSearch( "Clay tablets", 0 )
End If
2 次のスクリプトは IsFTIndexed を使ってニュースレターの作成と保存に使うメソッドを決定します。ニュースレターには、データベース sales.nsf の「press」に関係する 10 個の文書へのリンクが含まれます。データベースに全文索引があるとき、スクリプトは FTSearch を使ってデータベースを検索します。全文索引がないときは、スクリプトは Search を使って [Body] フィールドに「press」を含む文書を選択します。ニュースレターはフォーム [Search Summary] でデータベースに保存されます。
Dim db As New NotesDatabase( "", "sales.nsf" )
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Dim dateTime As NotesDateTime
Dim maxDocs As Integer
maxDocs = 10
If db.IsFTIndexed Then
Set collection = db.FTSearch( "press", maxDocs )
Else
Set dateTime = New NotesDateTime( "" )
Set collection = db.Search _
( "@Contains( Body; ""press"" )", dateTime, maxDocs )
End If
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatMsgWithDoclinks( db )
doc.Form = "Search Summary"
Call doc.Save( True, True )
関連項目
IsFTIndexed プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集