使用IBM工具向导File-Export选项导出NSF视图内容至CSV的方法

以下是几种可行的实现方法：

方法一：调整Notes客户端导出向导配置 #

• 打开Notes客户端并加载目标NSF数据库，导航到需要导出的视图
• 点击File > Export，在保存对话框中：
  • 保存类型选择Comma Separated Value (CSV)
  • 设置好保存路径和文件名后点击Export
  • 在导出向导的**"Select Export Options"步骤中，务必勾选"Export documents in view"**（而非仅导出视图结构）
  • 按需选择要导出的字段，或直接选择"All document fields"完成后续步骤

方法二：用LotusScript脚本批量导出数据 #

如果向导方式无法满足需求，可以编写简单脚本实现：

• 打开目标NSF数据库，新建代理（Create > Agent），选择"Action"类型，语言设为LotusScript
• 替换脚本内容为：

Sub Initialize
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Dim fileNum As Integer
    Dim header As String
    Dim rowData As String
    Dim item As NotesItem
    
    Set db = session.CurrentDatabase
    Set view = db.GetView("你的视图名称") '替换为实际视图名称
    fileNum = Freefile()
    Open "C:\导出路径\output.csv" For Output As fileNum '替换为实际保存路径
    
    '生成表头
    header = ""
    For Each item In view.AllEntries.GetFirstDocument.Items
        If item.Type <> RICHTEXT Then '跳过富文本字段
            header = header & """" & item.Name & """" & ","
        End If
    Next
    header = Left(header, Len(header)-1) '移除末尾多余逗号
    Print #fileNum, header
    
    '逐行导出数据
    Set doc = view.GetFirstDocument()
    While Not doc Is Nothing
        rowData = ""
        For Each item In doc.Items
            If item.Type <> RICHTEXT Then
                rowData = rowData & """" & Replace(item.Text, """", """""") & """" & ","
            End If
        Next
        rowData = Left(rowData, Len(rowData)-1)
        Print #fileNum, rowData
        Set doc = view.GetNextDocument(doc)
    Wend
    
    Close fileNum
    MsgBox "导出完成"
End Sub

• 保存代理后运行即可导出包含数据的CSV文件

方法三：通过Domino Designer导出 #

• 打开IBM Domino Designer并加载目标NSF数据库
• 找到目标视图，右键选择**"Export View"**
• 在导出设置中选择CSV格式，勾选"包含文档数据"选项，设置保存路径后完成导出

内容的提问来源于stack exchange，提问作者Bzl