标题: [基础] 从指定行读取文本文件 [打印本页]

---

作者: wshzw    时间: 2008-3-21 20:12     标题: 从指定行读取文本文件

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

---

作者: Nothing    时间: 2008-3-22 13:38

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

---

作者: wshzw    时间: 2008-4-3 18:12

谢谢回复！
这是我在一楼没讲清楚，抱歉。
我的本意是：
如何从一个文本文件的第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    时间: 2008-4-20 16:44

原来 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    时间: 2008-4-29 17:20

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0