Author Topic: Чтение последней строки из файла  (Read 1456 times)

0 Members and 1 Guest are viewing this topic.

toner161

  • Зашел в гости
  • *
  • Posts: 5
    • View Profile
Здравствуйте! У меня очередной вопрос: имеется текстовый файл, из которого нужно прочитать определенное слово, нашел на форуме как это реализовать, реализовал, все хорошо, но хочу чтобы вместо поиска по всему файлу, проверялась только последняя строка в документе. Как это можно реализовать?
Code: (clickermann) [Select]
    $str2 = "120"
     
    FOR($a=1,$a<TFCOUNT ("log.txt"))
       $str = TFREAD ("log.txt", $a)
       IF(STRPOS($str, $str2) > 0)
$dialog = DIALOGBOX("120", 1, 2)

WAIT(15)

       END_IF
    END_CYC
     
    HALT

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Чтение последней строки из файла
« Reply #1 on: July 14, 2017, 04:49:51 PM »
TFCOUNT выводит количество строк в файле, очевидно что это число и будет номер последней строки.

Code: (clickermann) [Select]
$str2 = "120"

IF(STRPOS(TFREAD ("log.txt", TFCOUNT ("log.txt")), $str2) > 0)
   $dialog = DIALOGBOX("120", 1, 2)
   WAIT(15)
END_IF 

HALT