Dim f, fs, datei, datum, laenge 'f=File / fs=Filesystem
Dim Variable_Datensatz, Variable_Rezept
Dim Variable_Minute, Variable_Hour, Variable_Day, Variable_Month, Variable_Year
Dim UHRZEIT
Dim Start_Zeit, End_Zeit
Variable_Rezept = SmartTags("Ist-Werte_Archiv.WKZ_Name")
Variable_Datensatz =SmartTags("Ist-Werte_Archiv.WKZ_Name")
UHRZEIT = (Now)
UHRZEIT = Replace(UHRZEIT,":","-")
'Start Zeit auf Variable schreiben
If SmartTags("Start") =1 Then
Start_Zeit = UHRZEIT
End If
'End Zeit auf Variable schreiben
If SmartTags("Ende") =1 Then
End_Zeit = UHRZEIT
End If
Variable_Minute = Minute (Now)
Variable_Hour = Hour(Now)
Variable_Year = Year(Now)
Variable_Month = Month (Now)
Variable_Day = Day (Now)
Set f= CreateObject("filectl.file")
Set fs= CreateObject("filectl.filesystem")
datei="Storage Card MMC\Daten\"&SmartTags("Anzeigewerte.Aktuelle_WKZnummer_Links")& "_" &Variable_Year& "_" &Variable_Month& "_"&Variable_Day& "_" &UHRZEIT& ".csv"
datum="20"&Right(Date,2)&"."&Mid(Date,4,2)&"."&Left(Date,2)
If fs.dir(datei) = "" Then 'dir=Peter fragen (mit Hilfe auf Englisch)
f.open datei, 2 'f=Datei; open=Datei öffnen; 2=Ausgabe
f.LinePrint "Daten"& "_"& Variable_Datensatz 'f=Datei; LinePrint=schreibt eine einfache Zeile in eine offene Datei; "Daten" & Variable_Rezept = Inhalt der Zeile
f.LinePrint "Datum;"&"Takt Start;"&"Takt Ende;"&"Werkzeugnummer;"&"HF01;"&"HF02;"&"HF03;"&"HF04;"&"HF05;"&"HF06;"&"HF07;"&"HF08;"&"HF09;"&"Vakuum in mBar" 'siehe oben
f.Close 'close=schließt eine offene Datei
End If 'beendet If-Bedingung
f.open datei, 8 'öffnet Datie "f" und fügt an (8=append;anfügen)
f.LinePrint datum&";"&Start_Zeit&";"&End_Zeit&";"&SmartTags("Anzeigewerte.Aktuelle_WKZnummer_Links")&";"&SmartTags("Ist-Werte_Archiv.Temp_HF[1]")&";"&SmartTags("Ist-Werte_Archiv.Temp_HF[2]")&";"&SmartTags("Ist-Werte_Archiv.Temp_HF[3]")
f.Close
' Verwendeten Speicher wieder freigeben
Set f = Nothing
Set fs = Nothing
'-------------------------------------------------