Lotus Notes: вариант печати / записи () в freefile() .csv

Question

Я просто хочу спросить, как напечатать вариант () -> "tmpArray" в.csv? Потому что в коде, который у меня есть сейчас, это только доступ к первому значению в массиве. Я хочу получить доступ ко всем значениям в массиве и распечатать его в файле.csv. Ниже мой код. Буду признателен за любые предложения / помощь. Благодарю.

Например, у меня есть 3 документа одинакового значения.

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

Тот, который печатается для 1-го документа: 2999 и 1000. Тот, который печатается для 2-го документа: 2999 и 1000. Тот, который печатается для третьего документа: 2999 и 1000.

Он не переходит ко второму значению в массиве вариантов.

 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

Answer 1

Одна из проблем заключается в том, что в вашем операторе Print вы получаете доступ к первому индексу (то есть индексу 0) массива для tmpArray3 и tmpArray4. Вам нужно поместить туда переменную.

Например:

 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

Однако вы также всегда получаете индексы 3 и 4 из v2entry.ColumnValues ​​(). Я предполагаю, что вы хотите заменить 3 и 4 на переменную, а также