Тема: Вопрос : Типовая операция парсинга TXT файла
Всем привет!
Есть типовая операция парсинга тестового файла и поска в нем слов по маске. Все бы хорошо, но есть, возможно, не тривиальный вопрос : как начать поиск с конца файла?
Задача состоит в том, что периодически в файле появляются записи типа :
-rw-rw---- 1 11315 10041 37921836 Nov 11 04:09 ***********.csv
и надо найти такое последнее, что дописывалось в файл.
С начала файла ищет без проблем и выводит все, что есть. Но надо именно последнее. Так же таких строк, последних, может быть несколько. Типа :
Tue Nov 11 04:12:01 MSK 2014
REMOTE SYSTEM: =================================================
-rw-rw---- 1 11315 10041 37921836 Nov 11 04:09 ******.csv
-rw-rw---- 1 11315 10041 1435144 Nov 11 04:09 **********.csv
-rw-rw---- 1 11315 10041 314725 Nov 11 04:09 **********.csv
и строка с датой и временем так же нужна.
мой код : (тут есть лишнее, это мои вариации на разные мысли)
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
'---------------------------------------------------------------------------------------------
Set f = FSO.OpenTextFile("c:\get.log",1, False)
Set f1 = FSO.OpenTextFile("c:\get.txt" , 2, True)
word = ".csv"
boolFound = False
line = 0
Do Until f.AtEndOfStream
sw = f.ReadLine()
If InStr(1, sw, word) <> 0 Then
boolFound = True
WScript.Echo "sw = " & sw
End If
Loop
f.Close
f1.Close 
