Læs 2. sidste linie fra txt fil

Hej eksperter :)

Jeg har en log fil (fra DU-Meter). Her ønsker jeg at læse den 2. sidste linie, således at jeg kan finde ud af hvad der blev overført i går.

Min funktion DisplayLastLine udskriver lige nu antal linier, men dette skal erstattes af den 2. sidste linie (den sidste linie er et linieskift, og derfor kan denne ikke bruges). Når bare den rigtige linie kommer ud, skal jeg nok splitte udtrækket op og formatere :)

Function DisplayLastLine(filenavn)
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(filenavn,1, 0)
    Do
    objFile.skipline
    loop until objFile.AtEndOfStream
    DisplayLastLine = objFile.line - 1
    Set objFile = Nothing

'    Set objFile = objFSO.OpenTextFile(filenavn,1, 0)
'    for skip = 1 to Cint(DisplayLastLine)
'    objFile.SkipLine
'    next
'    line = objFile.ReadLine
'    DisplayLastLine = line
'    objFSO = Nothing
'    Set objFile = Nothing
End function

Response.Write DisplayLastLine("c:\log.csv")

Uddrag fra logfilen:
04-Jan-2003,2734332,59750478,0
05-Jan-2003,8313606,1035777306,0
06-Jan-2003,5392127,96391380,0
07-Jan-2003,3.613.443,4.083.067,0