viewing paste Unknown #17900 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#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
Viewed 316 times, submitted by unknown.