- Beiträge
- 5.805
- Reaktionspunkte
- 1.027
-> Hier kostenlos registrieren
hallo
ich bin hier am verzweifeln.
ich werte ein archiv aus um min,max und schnitt zu ermitteln.
die werte im archiv bewegen sich zwischen 3500 und 3900.
der max-wert und der schnitt wird auf tadellos ermittelt.
der min-wert bleibt permanet 9999. so wie ich ihn am anfang des scripts vorbelegt habe.
ich sehe keinen fehler. oder hab ich schon einen auf den augen?
ich bin hier am verzweifeln.
ich werte ein archiv aus um min,max und schnitt zu ermitteln.
die werte im archiv bewegen sich zwischen 3500 und 3900.
der max-wert und der schnitt wird auf tadellos ermittelt.
der min-wert bleibt permanet 9999. so wie ich ihn am anfang des scripts vorbelegt habe.
ich sehe keinen fehler. oder hab ich schon einen auf den augen?
Code:
Dim f,x,i1,i2,i3,zeile,wert,min,max,summe
min = 9999: max = -9999
Set f = CreateObject("filectl.file")
f.open "storage card2\ProCSVarc\MPU_Temp4_mr0.csv", 1, 1
Do While f.eof <> true
zeile = f.LineInputString
If Mid(zeile,2,8)="MPU_Temp" Then
x=x+1: i1=InStr(zeile,";"): i2=InStr(i1+1,zeile,";"): i3=InStr(i2+1,zeile,";")
wert=Mid(zeile,i2+1,i3-i2-1)
If wert < min Then min = wert
If wert > max Then max = wert
summe = summe + wert/10
End If
Loop
f.Close
MPU_Temp_4_mr_min_arch=min: MPU_Temp_4_mr_max_arch=max: MPU_Temp_4_mr_mittel_arch=summe/x