[решено] Поиск числа в .txt

proxy · Конфигурация компьютера

Код:

#include <Array.au3>

Local   $sFilePath = @ScriptDir & '\test.txt'
Local   $sFileText = @CRLF & FileRead($sFilePath) & @CRLF
;~ $sFileText = StringRegExpReplace ($sFile2Text, "(?:\r\n|[\r\n])", @CRLF); нормализация, может и не нужна

Local   $aPattern = String("(?s)(?U).+\n[^\r\n]+(\d)+[^\r\n]+\r.+")
Local   $aResult = StringRegExp($sFileText, $aPattern, 3)
_ArrayDisplay($aResult, 'Результат всех цифр')

Local   $i, $aResultLimit[1]
Local   $iLimit = 2500
        $aResultLimit[0] = 0

For $i=0 To UBound($aResult)-1
    If $aResult[$i] <= $iLimit Then
        $aResultLimit[0] += 1
        ReDim $aResultLimit[$aResultLimit[0]+1]
        $aResultLimit[$aResultLimit[0]] = $aResult[$i]
    EndIf
Next
_ArrayDisplay($aResultLimit, 'Результат с ограничением')
;~ $aResultLimit[0] - колличество найденных результатов, если нет, то 0