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,999 и 1000. Тот, который печатается для третьего документа: 2,999 и 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

Одна проблема в том, что в вашей печати заявлении вы обращаетесь первый индекс (т.е. индекс 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

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