#include #include #include Local $file = Fileread(Fileopen("Pushliste.txt")) Local $ArrayName = 0, _ $iOffset = 1 While 1 $ArrayName = StringRegExp($file, '(?i) bekam eine Hilfslieferung von (.*?)!
(.*?) (.*?) 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