Lotus Notes:打印/写入variant()到freefile().csv

时间:2015-01-30 18:51:43

标签: lotus-notes notesview

我只想问一下如何打印变体() - > “tmpArray”到.csv?因为在我现在的代码中,它只访问数组中的第一个值。我想访问数组中的所有值并将其打印在.csv文件中。以下是我的代码。将不胜感激任何建议/帮助。感谢。

例如,我有3个文件相同的值。

tmpArray3(0) = 2,999
tmpArray3(1) = 4,999
tmpArray4(0) = 1,000
tmpArray4(1) = 5,903

第一份文件正在印制的是:2,999和1,000。 正在为第二份文件打印的是:2,999和1,000。 正在为第三份文件打印的是:2,999和1,000。

它没有进入变量数组中的第二个值。

 Do While doccount1 < 11 AND Not v2entry Is Nothing

            ReDim Preserve tmpArray3(tmpcount3)
            ReDim Preserve tmpArray4(tmpcount4)

            tmpArray3(tmpcount3) = v2entry.ColumnValues(3)
            tmpArray4(tmpcount4) = v2entry.ColumnValues(4)
           

            doccount1 = doccount1 + 1

            tmpcount3=tmpcount3 + 1
            tmpcount4=tmpcount4 + 1
         

            Print #datafileNum%,(tmpArray3(0) & ";" & tmpArray4(0))
            Set v2entry = vc.GetNextEntry(v2entry)

        Loop
    Next
    Close datafileNum%
    Exit Sub

1 个答案:

答案 0 :(得分:0)

一个问题是,在Print语句中,您正在访问tmpArray3和tmpArray4的数组的第一个索引(即索引0)。你需要在那里放一个变量。

例如:

 Do While doccount1 < 11 AND Not v2entry Is Nothing

            ReDim Preserve tmpArray3(tmpcount3)
            ReDim Preserve tmpArray4(tmpcount4)

            tmpArray3(tmpcount3) = v2entry.ColumnValues(3)
            tmpArray4(tmpcount4) = v2entry.ColumnValues(4)
           

            doccount1 = doccount1 + 1
                       

            Print #datafileNum%,(tmpArray3(tmpcount3) & ";" & tmpArray4(tmpcount4))
            Set v2entry = vc.GetNextEntry(v2entry)

            tmpcount3=tmpcount3 + 1
            tmpcount4=tmpcount4 + 1

        Loop
    Next
    Close datafileNum%
    Exit Sub

但是,您也始终从v2entry.ColumnValues()中检索索引3和4。我假设你想用变量替换3和4