LOTUSSCRIPT /COM/OLE のクラス
例:FTSearch メソッド
1. 次のエージェントは、現在のデータベース内の、ユーザーが指定した文字列を含む文書をすべて返します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
REM Update full-text index
Call db.UpdateFTIndex(True)
REM Get query and put in quotes
query$ = Inputbox("Enter string to search for", "Query")
If query$ = "" Then Exit Sub
query$ = """" & query$ & """"
REM Get the documents that match the query
Set dc = db.FTSearch( query$, 0, _
FT_SCORES, FT_STEMS)
REM Display Subject for documents matching query
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
message$ = message$ & doc.Subject(0) & Chr(10)
Set doc = dc.GetNextDocument(doc)
Wend
Messagebox message$,, _
"Search results " & 1 & " - " & dc.Count
End Sub
2. 次のエージェントは、データベース内のユーザーが指定した文字列を含む最初の 10 の文書のニュースレターを作成します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim news As NotesNewsletter
Set db = session.CurrentDatabase
REM Update full-text index
Call db.UpdateFTIndex(True)
REM Get query and put in quotes
query$ = Inputbox("Enter string to search for", "Query")
If query$ = "" Then Exit Sub
query$ = """" & query$ & """"
REM Get 10 most relevant documents that match the query
Set dc = db.FTSearch(query$, 10)
REM Send newsletter to yourself
If dc.Count > 0 Then
Set nc = New NotesNewsletter(dc)
Set doc = nc.FormatMsgWithDoclinks(db)
Call doc.AppendItemValue("Form", "Memo")
Call doc.AppendItemValue("Subject", "FT search for:" & query$)
Call doc.Send(False, session.UserName)
End If
End Sub
関連項目
FTSearch メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集