[已解决]如何读取TXT文件指定行

jianwu1106

  Open F For Input As #1
  Do While Not EOF(1)
     Line Input #1, sr
     x = x + 1
     arr(x) = sr
  Loop

此代码是读取TXT文件第一行到最后行。请问如何获得总行数（如10行），再从指定行开始读取？（从第3行开始读取）

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-11 05:53

1. Sub Macro1()
   
2. 'f = ThisWorkbook.Path & "\1.txt"
   
3. Open f For Input As #1
   
4. w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
5. Close #1
   
6. For i = 2 To UBound(w) - 1
   
7.     Debug.Print w(i)
   
8. Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. 'f = ThisWorkbook.Path & "\1.txt"
   
3. Open f For Input As #1
   
4. w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
5. Close #1
   
6. For i = 2 To UBound(w) - 1
   
7.     Debug.Print w(i)
   
8. Next
   
9. End Sub
   

复制代码