Анализ файла txt

[sinxron]

Есть файл txt название его "10-03-2-06.txt" как сделать что бы его открыть, но не просто а всё время анализировать его хотя бы через каждые 5сек. Как только в файле txt появится строка "ALARM" выходил msgbox c надписью WARNING! . Т.Е в файл txt постоянно записываются новые строки другой программой.

[Amed]

Каждые 5 секунд открывать файл, читать весь в строку. Если в строке появилась подстрока "ALARM", выводить msgbox.

[zulus]

'timer1.interval=столько-то

sub timer_timer()
cfree=freefile
open "10-03-2-06.txt" for input as#cfree
xstring=input(lof(cfree),cfree)
close#cfree

i=instr(1,xstring,"ALARM")
if i>0 then msgbox "WARNING!"
end sub

PS: А вообще-то такой код написать можно и самому - не сложно, ИМХО!

[RayShade]

АХТУНГ!

Надо, сохранять предыдущую позицию в файле, и читать с нее.

Иначе, при большом файле все будет тормозить дико.

Код: Выделить всё

private curFilePos as long

sub timer1_timer()
dim astr as string
fh=freefile
open "10-03-2-06.txt" for input as #fh
seek #fh,curFilePos
astr=input(lof(fh)-curFilePos,fh)
curFilePos=lof(fh)
if instr(1,astr,"ALARM",vbtextcompare) then msgbox("WARNING!")
close fh
end sub

[sinxron]

RayShade
Огромное спасибо! На счёт сохранения позиции.Осталась последняя проблема.....Как менять открытие файла "10-03-06.txt" в зависимости от даты,если на другой день другая дата "11-03-06.txt" и так далее,другой месяц,год.

[Viper]

меняй название файла в зависимости от даты, дату получить ты можешь средствами VB остается преобразовать ее в нужный тебе формат

[tyomitch]

RayShade
Огромное спасибо! На счёт сохранения позиции.Осталась последняя проблема.....Как менять открытие файла "10-03-06.txt" в зависимости от даты,если на другой день другая дата "11-03-06.txt" и так далее,другой месяц,год.

Код: Выделить всё

Format(Now,"dd-mm-yy.txt")

[shady]

"10-03-2-06.txt"

а 2 куда подевалась? и вообще она в какой зависимости меняется?

[sinxron]

RayShade
Огромное спасибо! На счёт сохранения позиции.Осталась последняя проблема.....Как менять открытие файла "10-03-06.txt" в зависимости от даты,если на другой день другая дата "11-03-06.txt" и так далее,другой месяц,год.

Код: Выделить всё

Format(Now,"dd-mm-yy.txt")

Format(Now,"dd-mm-yy.txt") не катит....

[tyomitch]

Format(Now,"dd-mm-yy.txt") не катит....

почему?

[Viper]

В VB6 все нормально работает, а вот если впихнуть это в VB.NET, то пояляются странности... вполне впрочем объяснимые. VB.NET понимает mm как вывод минут, а для вывода месяца надо использовать MM. К тому же VB.NET начинает мудрить с t. Посему, если вдруг появится необходимость сделать это в VB.NET, то юзать надо строку:

Код: Выделить всё

Format(Now, "dd-MM-yy") & ".txt"

и все будет именно так как надо

[zaf]

"10-03-2-06.txt"

а 2 куда подевалась? и вообще она в какой зависимости меняется?

Format(Now,"dd-mm") & "-2-" Format(Now,"yy") & ".txt" Можно еще и так наверное:) А что цифра 2 означает?