Loops VBScript Do Until循环一直跳过第一行

我的Do-Until循环一直跳过文本文件的第一行。我已经将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

---

这是现在的工作。将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

---

如果用0而不是1初始化

i

，有什么变化吗？您不需要将ReadLine放在外部。您是否尝试过通过检查每一行是否正确读取来进行故障排除？尝试将MsgBox放在ReadLine之后，以查看每行的输出。除此之外，您的其他自定义函数可能正在执行导致此问题的操作，可能此操作正在工作。我已将ReadLine放回循环中拆分的正上方，并将I改为0而不是1，现在它正在读取每一行，而不会跳过第一行