loops - VBScript 执行直到循环不断跳过第一行

Question

我的直到循环一直跳过我的文本文件的第一行。我已将 ReadLine 函数移出循环，但它仍会跳过第一行。有人可以帮我吗？第一行不是标题，我需要阅读它。

Sub subRunLoop
  i = 1
  CountButtonClicks = 0
  CountLoans = 0
  CountSysErrors = 0
  SuccessfulEntries = 0


  StartTime = Timer()
  strLine = objFile.ReadLine
  Do Until objFile.AtEndOfStream
            
            arrFields = Split(strLine,",")
            Number  = arrFields(0)
            subDoWork (i)                   
    
    i = i + 1
    Count = Count + 1
    
    If objFile.AtEndOfStream Then
        subWriteScriptInformation
        subWriteToScriptTracker
        subEndScript
    End If      
    Loop
End Sub

Answer 1

现在正在工作。将 ReadLine 放回循环中并将 i 更改为 0 而不是 1 允许脚本读取每一行

Sub subRunLoop
 i = 0
 CountButtonClicks = 0
 Count = 0
 CountSysErrors = 0
 SuccessfulEntries = 0


 StartTime = Timer()
 Do Until objFile.AtEndOfStream
            strLine = objFile.ReadLine  
            arrFields = Split(strLine,",")
            subDoWork (i)                   
    
    i = i + 1
    Count = Count + 1
    
    If objFile.AtEndOfStream Then
        subWriteScriptInformation
        subWriteToScriptTracker
        subEndScript
    End If      
    Loop
End Sub