Re: [VB6 ] 讀取檔案限定讀取某行

[fumizuki (矇面加菲獅)]

VB 內建的檔案存取不提供 skip 方法，所以必須逐行讀取，
可以改用 Scripting.FileSystemObject：

Set fs = CreateObject("Scripting.FileSystemObject")
Set File = fs.OpenTextFile("c:\xxx.txt")
For i = 1 To 15999
    File.SkipLine
Next
buffer = File.ReadLine
Print buffer '第16000行

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.224.174
推 hoseehosee:感謝！我晚點會試試看  ^^