[發問] .READLine的用法

acdx

.READLine只能依序讀取一行行的資料嗎?如果我想要讀取最後一行的資料開如何寫呢?
範例: test.txt檔:
----------------
3
4
5
(空白)
(空白)
8
ECMA-74 +
----------------
我想要讀取最後一行(即ECMA-74 +)該如何寫呢?

stillfish00

回復 1# acdx

你指的Readline應該是指用FileSystemObject的方法吧？
你可以參考這篇，How Can I Read Just the Last Line of a Text file?

應該沒有辦法"直接"只讀檔案最後一行，但是可以一行一行讀直到取得最後一行。
不過我不知道你的困擾是不是檔案非常大，一行一行讀太慢，若是這原因，也可以一次讀完再反向找換行字元(要看你檔案的換行字元是哪一種)

GBKEE

回復 1# acdx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, objFile As Object, A As Variant, E As Variant
   
4.     Set objFile = CreateObject("Scripting.FileSystemObject")
   
5.     Set objFile = objFile.OpenTextFile("D:\Test.txt", 1)
   
6.     A = objFile.READALL
   
7.     A = Replace(A, vbCr, "")     '消除復位字元
   
8.     A = Split(A, "ECMA-74 +")(0) '取得"ECMA-74 +"之前的串
   
9.     A = Replace(A, vbLf & vbLf, vbLf)  '消除空白列
   
10.     A = Split(A, vbLf)
    
11.     For i = 0 To UBound(A) - 1
    
12.         MsgBox A(i)
    
13.     Next
    
14. End Sub

複製代碼

acdx

回復 3# GBKEE
G大 我希望的是可以讀取最後一行的值，它是未知的，可能是"ECMA-74 +"也可能是"ABCD"

GBKEE

回復 4# acdx

讀取最後一行的值

是檔案的最底部的那一行嗎?

還是那一行的可能是"ECMA-74 +"也可能是"ABCD" ,不是檔案的最底部的那一行?
這字串有固定是那些字串嗎?

acdx

回復 5# GBKEE
是檔案的最底部一行
它可能的字串有3種:ECMA-74+, Normal, frequency

GBKEE

回復 6# acdx
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, objFile As Object, A As Variant
   
4.     Set objFile = CreateObject("Scripting.FileSystemObject")
   
5.     Set objFile = objFile.OpenTextFile("D:\Test.txt", 1) '開啟文字檔
   
6.     A = objFile.READALL      '讀取文字檔全部字串
   
7.     Do While InStr(A, vbCrLf) Or InStr(A, vbLf & vbLf)
   
8.         A = Replace(A, vbCrLf, vbLf)      '消除復位字元
   
9.         A = Replace(A, vbLf & vbLf, vbLf) '消除空白列
   
10.     Loop
    
11.     If Mid(A, Len(A)) = vbLf Then A = Mid(A, 1, Len(A) - 1) '清除最後字元是換行字元。
    
12.     A = Split(A, vbLf)  '檔案中有資料的行,置入陣列
    
13.     MsgBox A(UBound(A)) '檔案的最後有資料的那一行
    
14. End Sub

複製代碼

198188

回復 1# acdx

你想在哪個存儲格内顯示，就直接輸入下面的公式
如果數據在A欄
    =LOOKUP(1,0/(A:A<>""),A:A)

如果數據在B欄
    =LOOKUP(1,0/(B:B<>""),B:B)

如此類推