Lotus Notes : variant()를 freefile() .csv로 인쇄/쓰십시오.

Question

variant() -> "tmpArray"를 .csv로 인쇄하는 방법을 묻기 만하면됩니까? 왜냐하면 지금 당장 가지고있는 코드에서 배열의 첫 번째 값만 액세스하기 때문입니다. 배열의 모든 값에 액세스하여 .csv 파일로 인쇄하고 싶습니다. 아래는 제 코드입니다. 제안/도움을 주시면 감사하겠습니다. 감사.

예를 들어 나는 3 개의 문서가 동일한 값을가집니다.

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

는

1 문서에 인쇄되는 하나이며 : 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

Answer 1

한 가지 문제는 인쇄 문에 당신이 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를 변수로 대체하기를 원한다고 가정합니다.