麻辣家族討論版版 » Excel程式區 » .READLine的用法

返回列表下一主題上一主題發帖

[發問] .READLine的用法

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-6-6 14:41 | 只看該作者

[發問] .READLine的用法

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

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-6-6 16:37 | 只看該作者

回復 1# acdx

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

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2014-6-6 21:33 | 只看該作者

回復 1# acdx

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

4^#

發表於 2014-6-9 16:05 | 只看該作者

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2014-6-10 07:32 | 只看該作者

回復 4# acdx

讀取最後一行的值

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

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

6^#

發表於 2014-6-10 15:27 | 只看該作者

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-6-10 20:30 | 只看該作者

回復 6# acdx
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 30
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

8^#

發表於 2024-5-2 14:10 | 只看該作者

回復 1# acdx

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

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

如此類推

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題