Seek and Ye Shall Find
This code displays the last line of a text file in a message box. Basically, it shows everything after the last linefeed.
Sub FindDStamp()
Dim Fname As String, LastLine As String
Dim Fnum As Long, i As Long
Dim CarRet As String
Fname = “C:DickTesterFindLast2.txt”
Fnum = FreeFile
Open Fname For Input As Fnum
For i = LOF(Fnum) To 1 Step -1
Seek #Fnum, i
CarRet = Input(1, #Fnum)
If CarRet = vbCr Or CarRet = vbCrLf Then
Line Input #Fnum, LastLine
MsgBox LastLine
Close Fnum
Exit Sub
End If
Next i
End Sub
I’ve never really had occasion to use this, except to answer a newsgroup post a while back (His last line was a date stamp, that’s why this procedure has a funny name). But it does demonstrate some of the text file handling functions that are available.
The poster who needed this had a very large text file, so starting from the top to get to the last line wasn’t an option for him. Seek to the rescue.
hello,
would you be able to modify this so it will just return the number of lines in the text file?
I can’t seem to find anything on this…
thanks!
Jesse