.
HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1
212-599-2048
Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development
Chat now
.
EN - English
CN - 中文
JP - 日本語
DE - Deutsch
FR - Français
BR - Português
RU - Pу́сский
IT - Italiano
IN - हिन्दी
ES - Español
KR - 한국어
ID - Indonesia
NL - Dutch
TR - Türkçe
SA - العربية
SE - Svenska
NO - Norsk
PL - Polski
TH - ไทย
DK - Dansk
MY - Malay
PH - Filipino
GR - Ελληνικά
FI - Suomi
IL - עברית
IE - Gaeilge
CZ - Čeština
UA - Українська
RO - Română
VN - Tiếng Việt
BD - বাংলা
HU - Magyar
Need a Domino Consultant? Call NotesMail +1 212-599-2048
-
HCLSoftware Business Partner
LOTUSSCRIPT/COM/OLE CLASSES
Examples: FTSearch method
1. This script performs a full-text search for the word "benchmark" in a view in WALNUT.NSF. The variable j contains the number of documents that contain "benchmark"; for example, 22.
Dim db As New NotesDatabase( "Montreal", "walnut.nsf" )
Dim view As NotesView
Dim j As Long
Set view = db.GetView( "By Date\Ascending By Main Topic" )
j = view.FTSearch( "benchmark", 0 )
2. This script opens the same view as the example above and performs a full-text search for "benchmark*." Using a wildcard lets you search for word variants (such as "benchmarks," "benchmarked," and "benchmarking"), even though the FTSearch method does not automatically search for variants.
Dim db As New NotesDatabase( "Montreal", "walnut.nsf" )
Dim view As NotesView
Dim doc As NotesDocument
Dim j As Long
Set view = db.GetView( "By Date\Ascending By Main Topic" )
j = view.FTSearch( "benchmark*", 0 )
3. This script finds all documents in a view that contain both "server" and "protocol" and places them into the For Review folder. If the folder does not exist, one will be created. When done, the script clears the search.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim j As Long
Set db = session.CurrentDatabase
Set view = db.GetView("All Documents")
j = view.FTSearch( "server AND protocol", 0 )
Set doc = view.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.PutInFolder( "For Review", True )
Set doc = view.GetNextDocument(doc)
Wend
Call view.Clear
See Also
FTSearch method
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Feedback on
Help
or
Usability
?
Help on Help
All Help Contents