LotusScript：如何用循環迭代編號字段

我正在使用LotusScript來清除並將值從表單導出到csv文件。在表單中有多個日期字段，其名稱類似於enddate_1，enddate_2，enddate_3等。這些日期字段爲空時爲Data Type: Text，但填充時爲Data Type: Time/Date。LotusScript：如何用循環迭代編號字段

要得到的值作爲CSV字符串沒有錯誤，我做了以下（工作）：

If Isdate(doc.enddate_1) Then 
    enddate_1 = Format(doc.enddate_1,"dd-mm-yyyy") 
Else 
    enddate_1 = doc.enddate_1(0) 
End If

但要做到這樣每個日期字段代碼塊沒有感覺的權利。

試過以下，但沒有工作。

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循環或其他方式迭代編號字段？

來源

2013-09-26 Yggy Drasil

組合的解決方案，澄清理查德·施瓦茨與我的代碼塊到一個有效的解決方案。試圖將其作爲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

來源

2013-09-27 14:10:56

使用for循環或以其他方式迭代編號的字段？

valueArray = notesDocument.GetItemValue(itemName$)

但是，您是否知道使用Notes菜單可以導出CSV格式的文檔？

File\Exort

也有一個公式：德米特羅的

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

來源

2013-09-26 13:07:40

我去的LotusScript了'文件\ Export'和公式有以下幾個原因：乾淨的價值觀，沒有什麼特別的看法需要出口，富文本字段 –

出口只是爲了澄清：itemName $ =「enddate_」+ CStr（i％） –

LotusScript：如何用循環迭代編號字段

回答

相關問題