LOTUSSCRIPT /COM/OLE のクラス
例:Count プロパティ
1. 次のスクリプトは単語「Business」を含む、コレクションの文書の合計数を示します。
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
findString = "Business"
Set db = session.CurrentDatabase
Set collection = db.FTSearch (findString,10)
If collection.Count = 0 Then
Messagebox "Not found", , _
"Search for " & findString
Else
Messagebox collection.Count & " documents found", , _
"Search for " & findString
End If
End Sub
2. 次のスクリプトは Count と GetNextDocument を使用して、コレクションの各文書をフォルダ [Cellar] に入れます。コレクションは語句「red wine」を含む文書で構成されます。
Sub Click(Source As Button)
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 ( "red wine", 0 )
Set doc = collection.GetFirstDocument ()
While Not doc Is Nothing
Call doc.PutInFolder ( "Cellar", True )
Set doc = collection.GetNextDocument ( doc )
Wend
Messagebox collection.Count, , "Documents moved"
End Sub
関連項目
Count プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集