• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Поиск документов во View по полям

P

PeNgViN213

Помогите написать скрипт, который ищет документы во View, где есть три буквы "ааа" введеные в поля
Я не прошу писать за меня полностью готовый, а показать мне, примерный синтаксис, как это должно выглядить.
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
а что не так со встроенной справкой?
 
G

Gigi95

You found here the consult the Can:
 

Gandliar

Lotus Team
16.02.2004
556
26
BIT
40
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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!