使用脚本以 .csv 格式导出数据

Question

有没有一种方法可以使用脚本语言导出包含大量列的特定视图中的所有数据？

我使用以下代码动态提取视图的标题

Dim column As NotesViewColumn
For n=0 To (view.ColumnCount-1)
    Set column = view.Columns( n )
    If n= (view.ColumnCount-1) Then
        titles=titles+column.Title
    Else
        titles=titles+column.Title+","
    End If
Next

但我不知道如何在不插入代码 "fixed" 数据（如字段名称）的情况下获取所有列值数据。有可能吗？

Answer 1

您可以使用 ColumnValues 属性或 NotesDocument or NotesViewEntry class。要使用前者，请使用 GetFirstDocument() 和 GetNextDocument() 遍历 NotesView 对象中的 NotesDocument 对象。要使用后者，请在 NotesView class 中使用 CreateViewNav（或相关方法之一），然后通过 GetFirst() 和 GetNext() 遍历 NotesViewEntry 对象.

Answer 2

不久前我在我的博客上发布了一些代码： http://blog.texasswede.com/export-notes-view-to-excel-with-multi-value-fields/

它向您展示了如何将视图导出为 HTML 以及 CSV 格式。

如果您使用我在博客上发布的 class，您的代码将如下所示：

Dim csv As CSVData
Dim outfile As String

Set csv = New CSVData("DominoServer/YourDomain", "names.nsf", "People\By Last Name")
'*** Create CSV file from view
outfile = "c:\ExportTest.csv"
Open outfile For Output As #1
ForAll row In csv.CSVArray()
    Print #1, row
End ForAll
Close #1

尽情享受吧！

使用脚本以 .csv 格式导出数据

Export data in .csv format by using script

lotus-notes