7,763
社区成员
发帖
与我相关
我的任务
分享请各位帮帮小弟，如何读取log文件的最后一条记录？
文件格式如下：
11/28/2003 14:27:46 0E
11/28/2003 14:28:26 40
11/28/2003 14:33:21 0F
11/28/2003 14:34:09 0E
11/28/2003 14:34:50 40
11/28/2003 14:44:31 01
最新纪录总是最后一条，前面两个是日期和时间最后一个是16进制数。
文件有记录条数和容量限制。
11/28/2003 14:27:46 0E
11/28/2003 14:28:26 40
11/28/2003 14:33:21 0F
11/28/2003 14:34:09 0E
11/28/2003 14:34:50 40
11/28/2003 14:44:31 01
最新纪录总是最后一条，前面两个是日期和时间最后一个是16进制数。
文件有记录条数和容量限制。
...全文
请发表友善的回复…
发表回复
northwolves 2003-12-01
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox lastlog("d:\123.log")
End Sub
Function lastlog(ByVal logpath As String) As String
Dim temp As New Collection, x As String
Open logpath For Input As 1
Do While Not EOF(1)
Line Input #1, x
If x <> "" Then temp.Add x
Loop
Close 1
lastlog = temp(temp.Count)
Set temp = Nothing
End Function
MsgBox lastlog("d:\123.log")
End Sub
Function lastlog(ByVal logpath As String) As String
Dim temp As New Collection, x As String
Open logpath For Input As 1
Do While Not EOF(1)
Line Input #1, x
If x <> "" Then temp.Add x
Loop
Close 1
lastlog = temp(temp.Count)
Set temp = Nothing
End Function
