#include <MsgBoxConstants.au3>
#include <StringConstants.au3>
#include <Array.au3>
 
Local $file = Fileread(Fileopen("Pushliste.txt"))
 
Local $ArrayName = 0, _
        $iOffset = 1
While 1
    $ArrayName = StringRegExp($file, '(?i)</b> bekam eine Hilfslieferung von <b>(.*?)</b>!<br>(.*?) (.*?) wurden versendet.', 1, $iOffset)
    If @error Then ExitLoop
    $iOffset = @extended
    For $i = 0 To UBound($ArrayName) - 2
;~          FileWrite("Testerino.txt", $ArrayName[0] & " " & $ArrayName[1] & @CRLF)
            ConsoleWrite($ArrayName[0] & " " & $ArrayName[1]& " " & $ArrayName[2] & @CRLF)
 
    Next
WEnd