mit der funktion will ich in einer text datei in zwei letzten zeilen die werte vergleich mit den werten die ich vorgebe es sind 5 und 6
text datei sieht so aus (
2 AI 11ov 16 fg
Elozolohnung Elngang
E 1: Analog Elngang 5.01 V
E 2: Analog Elngang 6.01 V
)
mit der Funktion will ich das überprüfen
(Dim $file
$file = FileOpen("C:\Dokumente und Einstellungen\admin\Desktop\foto1.txt", 0)
; Prüfen, ob Datei eingelesen wurde
If Not _FileReadToArray("C:\Dokumente und Einstellungen\admin\Desktop\foto1.txt",$file) Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden:" & @error)
Exit
EndIf
; Zeilen des Textes einlesen bis EOF
For $x = 4 to 5
;Msgbox(0,'Record:' & $x, $file[$x])
$eins=_StringBetween($file[Ubound($file)-4],"Eingang "," V")
$zwei=_StringBetween($file[Ubound($file)-5],"Eingang "," V")
;Msgbox(64,"Ergebnis",$eins & @CRLF & $zwei)
Next
$Kanal1variable = $Kanal1variable+0.1
$Kanal1variable1 = $Kanal1variable-0.1
If $eins < $Kanal1variable Or $eins > $Kanal1variable1 Then
$fehlerindex = 0
ElseIf $eins Then
$Summefehler=$Summefehler+1
EndIf
$Kanal2variable = $Kanal1variable+0.1
$Kanal2variable2 = $Kanal1variable-0.1
If $eins < $Kanal1variable Or $eins > $Kanal2variable2 Then
$fehlerindex = 0
ElseIf $eins Then
$Summefehler=$Summefehler+1
EndIf
If $Summefehler > 0 Then
MsgBox(0," Überprüfung von analogen Klemme ergab fehle = :", $Summefehler)
ElseIf $Summefehler = 0 Then
MsgBox(0," Überprüfung von anlogen Klemme ergab fehle = :" ,$fehlerindex)
EndIf
FileClose($file)
) aber es klappt nicht Hilfe
zu heulen