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

Тема в разделе "Lotus - Программирование", создана пользователем astana2030, 2 сен 2011.

  1. astana2030

    astana2030 Active Member

    Регистрация:
    26 авг 2011
    Сообщения:
    34
    Симпатии:
    0
    Мне необходимо реализовать агент с параметром 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

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

    Добавлено:
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Невнимательно читал. FT_FUZZY - 4-й параметр, а не 3-й.
     
  3. astana2030

    astana2030 Active Member

    Регистрация:
    26 авг 2011
    Сообщения:
    34
    Симпатии:
    0
    Спасибо за совет!
     
Загрузка...

Поделиться этой страницей