seit neuestem Fehlermeldung..arraydatei defekt?

bekommen bei meinem programm seit neustem ne fehlermeldung(siehe bild)

was ist defekt? hat jemand ne ahnung. ich poste auch gerne denQuellcode falls benötigt.
Hier handelt sich es um das auslesen einer textdatei, speziell tabelle die letzte zeile, 4. spalte.

autoit.de/wcf/attachment/10697/

ich dank euch falls mir jemand helfen kann.
Das komische, es hat ja schon mal funktioniert vor monaten, doch jetzt leider nicht mehr, deswegen bin ich so verzweifelt. gibts doch gar nicht.

Einfach mal den Teil posten, wo $ret ein Wert zugewiesen wird !
(Am besten das ganze Skript)

Es handelt sich um das auslesen einer dynamischen Textdatei. D.h. sie wir nach bestimmterzeit automatisch geändert und bekommt dann immer eine neuer Zeile.

Die Textdatei schaut folgendermassen aus:

autoit.de/wcf/attachment/10706/

Das Script ist folgendes:
Je nachdem was in der letzten zeile steht, sollen aktionen ausgeführt werde(noch nicht ganz fertig).

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


Global $Start
$zahl = "0"


$text = FileRead("testneu.txt")




$pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
$ret = StringRegExp($text, $pattern, 3)
;~ _ArrayDisplay($ret)


;--------------------------------------------------------------------------------------


				;ausführen "Buy"
				If $ret[UBound($ret)-1]="Buy" And $zahl = "0" Then 


				$zahl = "1"




BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)


  


EndIf
				; audführen "Buyerfolgreich"
				if $ret[UBound($ret)-1]="Buyerfolgreich" And $zahl = "1" Then

				$zahl = "0" 


BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)

EndIf
				; audführen "Buyerfolglos"
				If $ret[UBound($ret)-1]="Buyerfolglos" And $zahl = "1" Then

				 $zahl = "0"


BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)

EndIf
				; audführen "Buyerledigt"
				If $ret[UBound($ret)-1]="Buyerledigt" And $zahl = "1" Then

				 $zahl = "0"

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
BlockInput(0)					 

EndIf

				;ausführen "Sell"
				If $ret[UBound($ret)-1]="Sell" And $zahl = "0" Then

				$zahl = "2"
 
BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F3}")
Sleep(3000)
BlockInput(0)

 EndIf
				  ;audführen "Sellerfolgreich"
				If $ret[UBound($ret)-1]="Sellerfolgreich" And $zahl = "2" Then

				 $zahl = "0"

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)


					 
				 EndIf
				 ;audführen "Sellerfolglos"
				If $ret[UBound($ret)-1]="Sellerfolglos" And $zahl = "2" Then

				 $zahl = "0"

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)


					 
				 EndIf
				 ; audführen "Sellerledigt"
				If $ret[UBound($ret)-1]="Sellerledigt" And $zahl = "2" Then

				 $zahl = "0"

BlockInput(1)
WinActivate("[CLASS:SunAwtFrame]", "")
Sleep(1000)
Send("{F2}")
BlockInput(0)

				 EndIf
Sleep(1)
    	WEnd
	EndIf
	Sleep(10)
WEnd

Vielleicht habt ihr ne idee warum das nicht funzt......
Es kann ja nicht daran liegen dass die datei sich ändert, soll sie ja, deswegen wird sie ja ausgelesen.

Ich dank euch für eure hilfe.

$ret ist nur dann kein Array, wenn im Text der Pattern nicht vorkommt.
Also stimmt irgendwas mit der Textdatei nicht.

hallo Bert und @ all. Ich dank dir fürs erst. Ich hab das script natürlich ganz schön verwürgt vor wut. aber hier das komplette script. das ganze läuft natürlich in ner schleife ab

kannst ja mal testen, funzt nicht.

die textdatei kannst die nutzen die oben steht. um zu testen brauchst nur die datei öffnen und die letze zeile ändern und speichern..dann sollte es funktionieren.
man beachte, so stehts auch im script. nach Buy kann nur Buyerfolgreich, Buyerfolglos oder Buyerledigt kommen...bei Sell analog dazu.
Anmerkung: Wenn in der letzen zeile z.b Buyerfolgreich steht, passiert nix, soll auch nicht. denn diese optionen werden erst wieder aktiviert wenn Buy erfolgt. Kurz gesagt, von der logik, ist alles in ordnung
um die letzte zeile zu ändern einfach frühere zeile kopieren und einfügen

vielleicht findest du den fehler. Dank dir

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

Global $Start
$zahl = "0"
Opt("GUIOnEventMode", 1)

GUICreate("dateiauslesen",600,100,0,0)

GUICtrlCreateButton ("beginnen",0,20,180,50)
GUICtrlSetOnEvent(-1, '_Start')
GUICtrlCreateButton ("anhalten",200,20,180,50)
GUICtrlSetOnEvent(-1, "_Stopp")
GUICtrlCreateButton ("beenden",400,20,180,50)
GUICtrlSetOnEvent(-1, "_Exit")

GUISetState(@SW_SHOW)

Func _Start()
$antwort2 = msgbox(4,"ACHTUNG","wirklich beginnen?")
if $antwort2 = 6 Then $start=1
if $antwort2 = 7 Then msgbox(48,"ACHTUNG","Es wird nicht begonnen")
EndFunc

Func _Stopp()
$antwort1 = msgbox(4,"ACHTUNG","wirklich anhalten?")
if $antwort1 = 6 Then $start=0
if $antwort1 = 7 Then msgbox(48,"ACHTUNG","Es wird nicht angehalten")
EndFunc

Func _Exit()
$antwort = msgbox(4,"ACHTUNG","wirklich beenden?")
if $antwort = 6 Then Exit
if $antwort = 7 Then msgbox(48,"ACHTUNG","Es wird nicht beendet")
EndFunc


While 1
If $Start = 1 Then
While $Start = 1
;--------------------------------------------------------------------------------------
$text = FileRead("testneu.txt")

$pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
$ret = StringRegExp($text, $pattern, 3)
;~ _ArrayDisplay($ret)

;--------------------------------------------------------------------------------------

;ausführen "Buy"
If $ret[UBound($ret)-1]="Buy" And $zahl = "0" Then

$zahl = "1"

BlockInput(1)
MsgBox(64, "Ausführung", "Buy")
BlockInput(0)

EndIf
; audführen "Buyerfolgreich"
if $ret[UBound($ret)-1]="Buyerfolgreich" And $zahl = "1" Then

$zahl = "0"


BlockInput(1)
MsgBox(64, "Ausführung", "Buyerfolgreich")
BlockInput(0)

EndIf
; audführen "Buyerfolglos"
If $ret[UBound($ret)-1]="Buyerfolglos" And $zahl = "1" Then

$zahl = "0"


BlockInput(1)
MsgBox(64, "Ausführung", "Buyerfolglos")
BlockInput(0)

EndIf
; audführen "Buyerledigt"
If $ret[UBound($ret)-1]="Buyerledigt" And $zahl = "1" Then

$zahl = "0"

BlockInput(1)
MsgBox(64, "Ausführung", "Buyerledigt")
BlockInput(0)

EndIf

;ausführen "Sell"
If $ret[UBound($ret)-1]="Sell" And $zahl = "0" Then

$zahl = "2"

BlockInput(1)
MsgBox(64, "Ausführung", "Sell")
BlockInput(0)

EndIf
;audführen "Sellerfolgreich"
If $ret[UBound($ret)-1]="Sellerfolgreich" And $zahl = "2" Then

$zahl = "0"

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerfolgreich")
BlockInput(0)

EndIf
;audführen "Sellerfolglos"
If $ret[UBound($ret)-1]="Sellerfolglos" And $zahl = "2" Then

$zahl = "0"

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerfolglos")
BlockInput(0)

EndIf
; audführen "Sellerledigt"
If $ret[UBound($ret)-1]="Sellerledigt" And $zahl = "2" Then

$zahl = "0"

BlockInput(1)
MsgBox(64, "Ausführung", "Sellerledigt")
BlockInput(0)

EndIf
Sleep(1)
WEnd
EndIf
Sleep(10)
WEnd

dank dir Bert.

Nur leider werden mit deinen änderungen die befehle nicht mehr ausgeführt, sondern es erschein nur ein fenster mit den ausgelesen zeilen "Array: ListDisplay"

hattest du mein script mal probiert? klappt es bei dir?

zu deiner 3.Änderung:

wenn "sellerfolglos" ausgelesen wird wird die zahl auf "0" gesetzt und etwas ausgeführt....... so hast du es geschrieben.
aber: wenn "sellerfolglos" ausgelesen wird, soll ja nix passieren, solange die zahl auf "0" ist, und die hab ich ja ma anfang schon auf "0" gesetzt mit $zahl = "0" ganz oben

vielleicht fällt dir noch was ein. irgendwo ist der haken, weiss nur nicht wo...

würde mich freuen wenn wir es hinbekommen...

Ok, ich probier mal was ich machen kann.

Bert, grosses Lob an dich. Danke für deine Hilfe.