发新话题
打印

[基础] 从指定行读取文本文件

从指定行读取文本文件

请问:
如何从文本文件的第二行开始读取(第一行长短不定)?

TOP

open "文件名" for input as #1
line input #1,str '第一行
line input #1,str   '第二行
换个头像,看见广告就眼红,直接封ID。

TOP

谢谢回复!
这是我在一楼没讲清楚,抱歉。
我的本意是:
如何从一个文本文件的第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

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

TOP

原来 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

TOP

换个头像,看见广告就眼红,直接封ID。

TOP

发新话题