wshzw

请问：
如何从文本文件的第二行开始读取（第一行长短不定）？

Nothing

open "文件名" for input as #1
line input #1,str '第一行
line input #1,str   '第二行

wshzw

谢谢回复！
这是我在一楼没讲清楚，抱歉。
我的本意是：
如何从一个文本文件的第N行开始读取，到某一行结束。
比如一个几十或上百行的文本文件，只读取它的第二行到第七行，
现在我只能将整个文件先读入一个集合，然后再读取集合的第二到第七个元素：

   Dim colTmp As New Collection, sStr$, i%
   
   Open App.Path & "\Ket.txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, sStr
      colTmp.Add sStr
   Loop
   Close #1
   
   For i = 2 To 7
      Debug.Print colTmp(i)
   Next i

请问是否有直接读取的方法？

wshzw

原来 Nothing 在2楼已经讲得很清楚了，我没理解透。
代码如下就避免了3楼那样多拐了一个弯：

   Dim sStr$, i%
   
   Open App.Path & "\Key.txt" For Input As #1
   Do While i < 7 And Not EOF(1)
      i = i + 1
      Line Input #1, sStr
      If i >= 2 And i <= 7 Then
         Debug.Print sStr
      End If
   Loop
   Close #1
谢谢 Nothing

Nothing