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

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

Не флужу,
Можно еще так попробовать:

Код:

#include <Array.au3>

$sString = 'Жираф весит 1725 кг,' & @CRLF & _
        'Первый слон весит 2730 кг,' & @CRLF & _
        'Второй слон весит 2350 кг,' & @CRLF & _
        'Третий слон весит 2150 кг,' & @CRLF & _
        'Четвертый слон весит 2850 кг,' & @CRLF & _
        'Пятый слон весит 2250 кг,' & @CRLF & _
        'Мешок весит 50 кг,' & @CRLF & _
        'Я вешу 100 кг, Собака весит 20 кг.'
Dim $aResult[1]
$j = 0
$iMin = 1000
$iMax = 2500

$aTemp = StringRegExp($sString, "(\d{1,4})", 3)
For $i = 0 To UBound($aTemp) - 1
    If Number($aTemp[$i]) >= $iMin And Number($aTemp[$i]) <= $iMax Then
        $j += 1
        ReDim $aResult[UBound($aResult) + 1]
        $aResult[$j] = $aTemp[$i]
        $aResult[0] = UBound($aResult) - 1
    EndIf
Next
_ArrayDisplay($aResult, 'Совпадающие числа')