[Maza Faka]

Timurko
Привет! Так сказать быстрый бета вариант, так, как ухожу домой Если заинтересует красивый вариант стукни в ПМ.

Код:

#include <Array.au3>
#include <File.au3>

Dim $aStrings

_FileReadToArray("c:\source.txt", $aStrings)

$aMaxIndex = _ArrayMaxIndex($aStrings, 1, 1)

For $i = 1 To $aMaxIndex
    $arrayText = StringRegExp($aStrings[$i], "\d*:\d*", 3)
    $pTime = StringRegExpReplace($arrayText[0], ":", "")
    If $pTime > @HOUR & @MIN Then FileWriteLine("c:\temp.txt", $aStrings[$i])
Next

For $i = $aMaxIndex To $aStrings[0]
    $arrayText = StringRegExp($aStrings[$i], "\d*:\d*", 3)
    $pTime = StringRegExpReplace($arrayText[0], ":", "")
    If $pTime < 0200 Then FileWriteLine("c:\temp.txt", $aStrings[$i])
Next