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


Local $List = @ScriptDir & "\xxxx.txt"
Local $Result = @ScriptDir & "\RESULT.txt"
FileDelete ($Result)
Sleep (500)
Local $Text
_FileReadToArray($List, $Text)

$Points = "points = "
$plus = 400

For $i = 1 To $Text[0]
$plus = 400
Do
    $plus = $plus +1

     If StringInStr($Text[$i],$Points & $plus)  Then

        FileWrite ($Result,$Text[$i]& " " & $i & "." & @CRLF)

    EndIf
Until $plus = 10000
Next