Чтение последней строки из файла

[toner161]

Здравствуйте! У меня очередной вопрос: имеется текстовый файл, из которого нужно прочитать определенное слово, нашел на форуме как это реализовать, реализовал, все хорошо, но хочу чтобы вместо поиска по всему файлу, проверялась только последняя строка в документе. Как это можно реализовать?

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]

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