For loop LotusScript：如何使用for循环迭代编号字段

我正在使用LotusScript将值从表单清理并导出到csv文件。表单中有多个日期字段，名称为enddate_1、enddate_2、enddate_3等。 这些日期字段为空时为

数据类型：Text

，填充时为

数据类型：Time/date

为了在csv中以字符串形式获取值而不出错，我执行了以下操作（工作）：

但对每个日期字段执行这样的代码块并不合适

尝试了以下操作，但不起作用

For i% = 1 To 9
    If Isdate(doc.enddate_i%) Then 
        enddate_i% = Format(doc.enddate_i%,"dd-mm-yyyy") 
    Else
        enddate_i% = doc.enddate_i%(0)
    End If
Next

---

有没有关于如何使用for循环或其他方式迭代编号字段的建议？

使用for循环或其他方式迭代编号字段

valueArray = notesDocument.GetItemValue( itemName$ )

但是，您知道可以使用Notes菜单以CSV格式导出文档吗

File\Exort

还有一个公式：

@Command([FileExport]; "Comma Separated Value"; "c:\document.csv")

---

Dmytro的组合解决方案，Richard Schwartz的澄清和我的代码块，形成一个有效的解决方案。尝试将其作为Dmytro解决方案的编辑，但被拒绝

我的问题不仅是迭代编号字段，而且还以迭代的方式存储值，以便以后轻松检索。我今天发现，我试图实现Dmytro的解决方案，并结合Richard Schwartz的澄清。使用列表来完全解决它

我现在的工作解决方案是：

Dim enddate$ List
For i% = 1 To 9
    itemName$ = "enddate_" + CStr(i%)
    If Isdate(doc.GetItemValue(itemName$)) Then 
        enddate$(i%) = Format(doc.GetItemValue(itemName$),"dd-mm-yyyy") 
    Else
        enddate$(i%) = doc.GetItemValue(itemName$)(0)
    End If
Next

---

我选择LotusScript而不是

File\Export

和Formula有几个原因：干净的值，导出时不需要特殊的视图，富文本字段的导出必须澄清：itemName$=“enddate”+CStr（I%）

Dim enddate$ List
For i% = 1 To 9
    itemName$ = "enddate_" + CStr(i%)
    If Isdate(doc.GetItemValue(itemName$)) Then 
        enddate$(i%) = Format(doc.GetItemValue(itemName$),"dd-mm-yyyy") 
    Else
        enddate$(i%) = doc.GetItemValue(itemName$)(0)
    End If
Next