Конференция VBStreets

**sinxron** » 02.04.2006 (Вс) 16:03

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

. Т.Е в файл txt постоянно записываются новые строки другой программой.

**Amed** » 02.04.2006 (Вс) 16:33

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

**zulus** » 03.04.2006 (Пн) 9:51

'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** » 03.04.2006 (Пн) 14:37

АХТУНГ!

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

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

Код: Выделить всё: 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** » 03.04.2006 (Пн) 17:15

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

**Viper** » 03.04.2006 (Пн) 17:41

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

**tyomitch** » 03.04.2006 (Пн) 18:08

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

Код: Выделить всё: Format(Now,"dd-mm-yy.txt")

**shady** » 04.04.2006 (Вт) 7:19

"10-03-2-06.txt"

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

**sinxron** » 04.04.2006 (Вт) 9:15

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

Код: Выделить всё
Format(Now,"dd-mm-yy.txt")

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

**tyomitch** » 04.04.2006 (Вт) 9:20

sinxron писал(а):Format(Now,"dd-mm-yy.txt") не катит....

почему?

**Viper** » 04.04.2006 (Вт) 11:11

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

Код: Выделить всё: Format(Now, "dd-MM-yy") & ".txt"

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

**zaf** » 08.04.2006 (Сб) 19:12

shady писал(а):
"10-03-2-06.txt"

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

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

Конференция VBStreets

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

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

Кто сейчас на конференции