Не получается сделать поиск с параметром Fuzzy

  • Автор темы astana2030
  • Дата начала
A

astana2030

#1
Мне необходимо реализовать агент с параметром FUZZY. Читал дизайнерский хелп, сделал тестовый агент, но он не работает, выдается сообщение что некорректный параметр.
Скрипт агента ниже:
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim message As String
Dim outnumber As String

Set db = session.CurrentDatabase
REM Update full-text index
Call db.UpdateFTIndex(True)
REM Get query and put in quotes
OutNumber$ = Inputbox("Введите номер документа", "OutNumber")
If OutNumber$ = "" Then Exit Sub
OutNumber$ = """" & OutNumber$ & """"
REM Get the documents that match the query
Set dc = db.FTSearch( OutNumber$, 0, FT_FUZZY)
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

Call dc.PutAllInFolder("SearchResult")
Call ws.ViewRefresh

Прошу помочь.

Добавлено:
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Невнимательно читал. FT_FUZZY - 4-й параметр, а не 3-й.