Hallo Forum,
bitte um Hilfe zur Erzeugung einer CSV Datei.
Ich scheitere am Weiterschreiben einer hier exemplarischen Temperatur ( kommen noch andere Werte hinzu ).
Der Header soll bleiben und dann immer in einer neuen Zeile den Wert alle Sekunde aufgenommen.
Vielen Dank für Tipps
Hier mein Script
bitte um Hilfe zur Erzeugung einer CSV Datei.
Ich scheitere am Weiterschreiben einer hier exemplarischen Temperatur ( kommen noch andere Werte hinzu ).
Der Header soll bleiben und dann immer in einer neuen Zeile den Wert alle Sekunde aufgenommen.
Vielen Dank für Tipps
Hier mein Script
Code:
'Deklaration von lokalen Variablen
Dim fso, f, ts, path, file, myfile, Trigger, Shut
Shut = SmartTags("AM: Prf running")
Trigger = SmartTags("M :Trigger")
myfile = Dateiname
path = "C:\test\"
file = path & myfile & ".csv"
'Abfrage ob Dateinamen eingegeben wurde
If myfile = "" Then
Error_Dateiname = 1
Else
Error_Dateiname = 0
End If
'Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
'Abfrage Ordner vorhanden, wenn nicht dann erzeugen
If Not fso.FolderExists("c:\test") Then
fso.CreateFolder("c:\test")
End If
'Abfrage Datei vorhanden, wenn nicht dann erzeugen
If Not fso.FileExists(file) Then
fso.CreateTextFile(file)
End If
Set f = fso.GetFile(file)
Set ts = f.OpenAsTextStream(2, -2)
'Werte in die Datei schreiben
ts.WriteLine("Schritt Nr; " & SmartTags("DB: DATA TEMP SEQ 1 W.Step_Nr") & ";")
ts.WriteLine("Solldruck; " & SmartTags("DB: DATA TEMP SEQ 2 W.Sollwert_PropVentil_PRF") & ";")
If Trigger = True Then
SmartTags("DB: BUTTON HMI.Test121") = 1
ts.WriteLine("Schritt Nr; " & SmartTags("DB: INST ANALOG IN.ACTUAL_VALUES.TEMP_SCHRANK") & ";")
Else
SmartTags("DB: BUTTON HMI.Test121") = 0
End If
If Shut = True Then
'Close file - Datei schließen
ts.Close
Set ts = Nothing
Set f = Nothing
Set fso = Nothing
End If