Lotus Domino Designer 7 ヘルプ - 例:Count プロパティ

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

関連項目

用語集

用語集