例: FTSearchScore property (NotesDocument - LotusScript®)

次のスクリプトは、現在のデータベースの [By Category] ビューで全文検索を実行します。スクリプトはビューの最初の文書の検索結果数を取得して、変数 score に入れます。例えば、FTSearchScore は 80 を返します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim score As Integer    
Set db = session.CurrentDatabase
Set view = db.GetView( "By Category" )
Call view.FTSearch( "blue", 0 )
Set doc = view.GetFirstDocument
score = doc.FTSearchScore

次のスクリプトは現在のデータベースを全文検索して、検索結果数が 90 を超える文書をフォルダに配置します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.FTSearch( "blue", 0 )
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
  If ( doc.FTSearchScore > 90 ) Then
    Call doc.PutInFolder( "Blue documents" )
    Set doc = collection.GetNextDocument(doc)
  End If
Wend