Мне нужно прочитать пятую последнюю строку из файла журнала через скрипт vb. Может кто-нибудь, пожалуйста, назовите меня, как это сделать?Прочитать 5-ю последнюю строку из текстового файла
Я использую следующий код, который только считывает последнюю строку и возвращает последнюю строку и количество строк, необходимо улучшить ее.
Dim fh, fso, sLastLine, lineCount
Set fso = CreateObject("Scripting.FileSystemObject")
Set fh = fso.OpenTextFile("E:\Coding\VB\demo.txt")
sLastLine = ""
lineCount = 0
Do Until fh.AtEndOfStream
lineCount = lineCount + 1
sLastLine = fh.ReadLine()
Loop
fh.Close
WScript.Echo sLastLine
WScript.Echo lineCount
Содержимое для demo.txt выглядит следующим образом:
zcZcxZCsdfdfsfd
aaaaa
bbbb
cccc
dddd
eeee
В конце концов есть 4 пустых строк и я должен читать «ээээ» здесь.
Чтение файла является распространенной практикой * (здесь много раз упоминается) *, дайте ему повод, и когда у вас возникнет конкретная проблема с возвратом вашего кода, и мы постараемся ответить на него. – Lankymart