作者xg (smile)
看板Visual_Basic
标题[VBA ] 如何读取TXT最後N行
时间Wed Dec 7 16:09:33 2011
透过以下的code我可以读到TXT档最後一行
那如果要改成读最後第N行，怎麽改比较好呢？
底子不好，越改越错，上来请教一下各位，拜托了><
谢谢!!
--------------------------------------------------------------------------
Dim MaxSize, NextChar, MyChar
Dim Str
Open "D:\TESTFILE.txt" For Input As #1
NextChar = LOF(1) '取得档案长度
Seek #1, NextChar '设定读取位置在档案尾端
MyChar = Input(1, #1) '读取档未最後一个字
While MyChar = Chr$(10) Or MyChar = Chr$(13) '从末端开始往前读取文字,忽略
文字档的跳行字元 CR & LF
Seek #1, NextChar
MyChar = Input(1, #1)
NextChar = NextChar - 1
Wend
Str = MyChar
While MyChar <> Chr$(10) And MyChar <> Chr$(13) '依次读出最後一个非空行文
字的字元并组合还原该文字
Seek #1, NextChar
MyChar = Input(1, #1)
Str = MyChar + Str
NextChar = NextChar - 1
Wend
Close #1
Cells(1, 1) = Str
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.60.51