Renoz
@Renoz
В поисках истины

VBS. Как определить количество строк в файле и динамически выводить на экран?

Доброго времени суток. Есть текстовый файл list.txt, в котором постоянно, примерно раз в секунду меняется содержимое. Нужно выводить в информационное окно количество строк, так же с интервалом в секунду. При нажатии на кнопку "OK", выход. В скриптах не силен, нашел похожий пример:
Код
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt")
s = ts.Readall
ts.close
x =ubound(Split (s,vbCrlf))+1
WScript.Echo "Количество строк: " & ubound(Split (s,vbCrlf))+1

www.cyberforum.ru/vbscript-wsh/thread1491347.html

Только он считает разово, а надо бы постоянно. Из гугла понял, что надо где-то воткнуть
Do
loop

Но куда воткнуть не знаю. Как бы это сделать на VBS или WSH?
Заранее спасибо.
  • Вопрос задан
  • 300 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы