使用帶日期字段的FTSearch

Question

我有代碼將搜索文檔中的特定字段以查找用戶選擇的值並將這些文檔放置在文件夾中。我有代碼工作，但我堅持如何繼續與日期字段做同樣的事情。我需要能夠在日期範圍內查找文檔。任何人都可以幫助我如何去做這件事？下面是我的代碼：

Sub Initialize 
    On Error GoTo ErrHandler 
    Dim ws As New NotesUIWorkspace 
    Dim session As New NotesSession 
    Dim db As NotesDatabase 
    Dim RemoveView As NotesView 
    Dim RemoveDoc As NotesDocument 
    Dim RemoveEntry As NotesViewEntryCollection 
    Dim dc As NotesDocumentCollection 
    Dim doc As NotesDocument 
    Dim view As NotesView 
    Dim j As Integer 
    Dim DialogDoc As NotesDocument 

    Set db = session.CurrentDatabase 

    Folder$ = "(UseOfForceSearch)" 

    'Clear folder before inputting current search results. 
    Set RemoveView = db.GetView(Folder$) 
    Set RemoveDoc = RemoveView.GetFirstDocument 

    If Not (RemoveDoc Is Nothing) Then 
     Set RemoveEntry = RemoveView.AllEntries 
     Call RemoveEntry.RemoveAllFromFolder(Folder$) 
    End If 

    If Not (db.IsFTIndexed) Then 
     answer = MessageBox(" Sorry. This database is not full-text indexed." + "Do you want to create an index?", MB_YESNO) 
     If (answer = IDYES) Then 
      Call db.UpdateFTIndex(True) 
     End If 
    End If 
    Set DialogDoc = db.Createdocument 

    searchForm$ = "$Force" 
    Form$ = "ReportDialog" 'Ask user for specifics of search using ReportDialog 
    Title$ = "Use of Force Search Criteria" 
    DialogDoc.Form = Form$ 


    DialogDoc.StartDate = DialogDoc.StartDate(0) 
    DialogDoc.EndDate = DialogDoc.EndDate(0) 
    DialogDoc.Field1 = DialogDoc.Field1(0) 
    DialogDoc.Value1 = DialogDoc.Value1(0) 
    DialogDoc.Field2 = DialogDoc.Field2(0) 
    DialogDoc.Value2 = DialogDoc.Value2(0) 
    DialogDoc.Field3 = DialogDoc.Field3(0) 
    DialogDoc.Value3 = DialogDoc.Value3(0) 
    DialogDoc.Field4 = DialogDoc.Field4(0) 
    DialogDoc.Value4 = DialogDoc.Value4(0) 
    DialogDoc.Field5 = DialogDoc.Field5(0) 
    DialogDoc.Value5 = DialogDoc.Value5(0) 
    DialogDoc.Logic1 = DialogDoc.Logic1(0) 

EnterDialog: 
    If (ws.DialogBox(Form$, True, True, False, True, False, False, Title$,DialogDoc,True)) Then 
    Else 
     Exit Sub 
    End If 

    SDate$ = CStr(DialogDoc.StartDate(0)) 
    EDate$ = CStr(DialogDoc.EndDate(0)) 

    Field1$ = UCase(CStr(DialogDoc.Field1(0))) 
    Field2$ = UCase(CStr(DialogDoc.Field2(0))) 
    Field3$ = UCase(CStr(DialogDoc.Field3(0))) 
    Field4$ = UCase(CStr(DialogDoc.Field4(0))) 
    Field5$ = UCase(CStr(DialogDoc.Field5(0))) 

    Oper$ = "contains" 

    Value1$ = UCase(CStr(DialogDoc.Value1(0))) 
    Value2$ = UCase(CStr(DialogDoc.Value2(0))) 
    Value3$ = UCase(CStr(DialogDoc.Value3(0))) 
    Value4$ = UCase(CStr(DialogDoc.Value4(0))) 
    Value5$ = UCase(CStr(DialogDoc.Value5(0))) 

    Logic1$ = UCase(CStr(DialogDoc.Logic1(0))) 
    Logic2$ = UCase(CStr(DialogDoc.Logic2(0))) 
    Logic3$ = UCase(CStr(DialogDoc.Logic3(0))) 
    Logic4$ = UCase(CStr(DialogDoc.Logic4(0))) 

    Set Date1 = New NotesDateTime(SDate$) 
    Set Date2 = New NotesDateTime(EDate$) 
    Date1ForReport$ = Date1.DateOnly 
    Date2ForReport$ = Date2.DateOnly 

    datemax = Date2.timedifference(Date1)   
    DaysBetween = datemax \ 86400  
    If(DaysBetween > (366 * 1)) Then   
     MessageBox "Date range cannot exceed 1 year.",48,"Error:" 
     GoTo EnterDialog 
    End If 

    For i = 1 To 1 
     searchForm$ = "(FIELD Form contains $Force) and " 
     Expr1$ = "FIELD " + Field1$ + " " + Oper$ + " " + Value1$ 
     Expr2$ = "FIELD " + Field2$ + " " + Oper$ + " " + Value2$ 
     Expr3$ = "FIELD " + Field3$ + " " + Oper$ + " " + Value3$ 
     Expr4$ = "FIELD " + Field4$ + " " + Oper$ + " " + Value4$ 
     Expr5$ = "FIELD " + Field5$ + " " + Oper$ + " " + Value5$ 

     FinalExpr$ = searchForm$ + Expr1$ 

     If(Logic1$ <> "") Then 
      FinalExpr$ = FinalExpr$ + " " + Logic1$ + " " + Expr2$ 
     ElseIf (Logic2$ <> "") Then 
      FinalExpr$ = FinalExpr$ + " " + Logic1$ + " " + Expr2$ + " " + Logic2$ + " " + Expr3$ 
     ElseIf (Logic3$ <> "") Then 
      FinalExpr$ = FinalExpr$ + " " + Logic1$ + " " + Expr2$ + " " + Logic2$ + " " + Expr3$ + " " + Logic3$ + " " + Expr4$ 
     ElseIf (Logic4$ <> "") Then 
      FinalExpr$ = FinalExpr$ + " " + Logic1$ + " " + Expr2$ + " " + Logic2$ + " " + Expr3$ + " " + Logic3$ + " " + Expr4$ + " " + Logic4$ + " " + Expr5$ 
     End If 
     FinalExpr$ = FinalExpr$ 
     Print "Searching..." 
     ' the number 16384 means fuzzy search 
     Set dc = db.FTSearch(FinalExpr$,0,,16384) 
     Folder$ = "(UseOfForceSearch)"  
     Call dc.PutAllInFolder(Folder$,True) 
    Next  
    Print "Search Completed with " + CStr(dc.Count) + " results." 
    Set view = db.getView(Folder$)    
    Exit Sub 
ErrHandler: 
    MessageBox "Error" & Str(Err) & ": " & Error$,16,"Error!" 
    Exit Sub 
End Sub 

Answer 1

您可以使用運營商=/</>/<=/>=在FTSearch日期字段。

例如：FIELD YourDateField > 01/30/2013或[YourDateField] > 01/30/2013。

要查找的日期範圍內的文檔你會寫：對於搜索選項的完整列表

[YourDateField] >= 01/01/2013 AND [YourDateField] <= 12/31/2013

看here。