Lotusscript (Lotusscript)：动态查找文档-视图

Question

我是乐透脚本的初学者，自己编写了一些基本代码。最近，我制作了一个计划好的代理程序，它在视图中复制文档并将其移动到另一个数据库(归档db)。但是还需要进行另一个增强，即使归档db的位置成为动态的。您可以在我的代码中看到服务器/路径和文件名是硬编码的：

%REM
Agent Archive Kiosk Walk-In Test
Created Dec 11, 2015 by Daryl
Description: Comments for Agent
%END REM
Option Public
Option Declare

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dbArchive As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim tmpDoc As NotesDocument
Dim docArchive As NotesDocument
Dim archiveDate As NotesDateTime
Dim createDate As NotesDateTime
Dim count As Integer
Dim serverName As String
Dim archiveName As String

Set db = s.Currentdatabase
Set archiveDate = New NotesDateTime("Today")
Call archiveDate.Adjustday(-30)

Set view = db.Getview("KWICompletedView")
view.Autoupdate = False

'Static declaration of database for archive
serverName = "SBYGAD61/SBYISDEV" 
archiveName = "reso\var\test\resovara.nsf" 
Set dbArchive = New NotesDatabase( serverName, archiveName )

If dbArchive Is Nothing Then 
    Print "Warning: unable to access archive database." 
Else
    count = 0
    Set doc = view.Getfirstdocument
    While Not(doc Is nothing)
        Set tmpDoc = view.Getnextdocument(doc)
        Set createDate = New NotesDateTime("")
        createDate.Localtime = doc.Created

        If archiveDate.Timedifference(createDate) > 0 Then
            Set docArchive = New NotesDocument(dbArchive)                   
            Call doc.Copyallitems(docArchive, True)
            Call docArchive.Save(True, True)
            'Call doc.Remove(True)
            count = count + 1
        End If

        Set doc = tmpDoc
    Wend 
    Print "Complete: "+Cstr( count )+" document(s) archived." 
    End If
End Sub

在我当前的数据库中有一个视图包含了归档dbs的位置，是的，有3个归档dbs，所以我真的迷路了，对不起。我需要帮助，我将如何实际获得/设置这些文件作为我的档案位置。谢谢!

Answer 1

你已经有了一些你需要的逻辑。您需要获得包含有归档DB位置的文档的视图，对吗？这样做是可行的：

Set viewArchiveInfo = db.Getview("View_With_Archive_Locations")
Set firstArchiveInfoDoc = viewArchiveInfo.GetFirstDocument()
serverName = firstArchiveInfoDoc.GetFirstItem("ArchiveServerName")(0)
archiveName = firstArchiveInfoDoc.GetFirstItem("ArchiveName")(0)

如果有三个不同的文档包含归档db信息，则可以获得下一个文档。

您还可以查看概要文件，将其作为一种以更容易访问的方式存储归档db信息的方法。