Sub VBSCRIPTDATALOG()
Dim fileName, folderName, fileLocation, fso, fctl
Dim currentPosition, nextPosition, currentTime, dataValues
'So wird deine Datei später heissen
fileName = Year(Now) & "_" & Month(Now) & "_" & Day(Now) & ".csv"
'Das ist der Pfad wo es gespeichert werden soll, bei einem Panel kann das entweder ein USBStick oder eine SD Karte, oder ein File Server sein
'Wenn du einen IPC hast kannst du auch einfach ein Verzeichnes wie C:\MeinOrdner\MeinUnterordner sein
folderName = "\Storage Card USB\Logs\"
'Hier die Dateilocation, das ist dein Ordner + Dateiname
fileLocation = folderName & fileName
On Error Resume Next
'Erstellen des Verzeichnises wenn keins existiert
Set fso = CreateObject("FileCtl.FileSystem")
If (fso.Dir(folderName)) = "" Then
fso.MkDir folderName
End If
If Err.Number <> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
Err.Clear
End If
Set fctl = CreateObject("FileCtl.File")
fctl.Open fileLocation, 8
If Err.Number <> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " " & Err.Description
Err.Clear
End If
currentPosition = fctl.Loc
nextPosition = fctl.Seek
'Schreibt den Tabellenkopf
If currentPosition = 1 And nextPosition = 1 Then
fctl.LinePrint "Time, Data Point 1, Data Point 2, Data Point 3, Data Point 4, Data Point 5"
End If
currentTime = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
'Erstellt die Daten mit komma separiert
dataValues = currentTime & _
SmartTags("DataPoint1") & ", " & _
SmartTags("DataPoint2") & ", " & _
SmartTags("DataPoint3") & ", " & _
SmartTags("DataPoint4") & ", " & _
SmartTags("DataPoint5")
fctl.LinePrint dataValues
fctl.Close
End Sub
Genau welche WinCC Runtime auf welchem Gerät verwendest Du?Wenn man nun die Dateiart .csv auswählt, werden die Parameter die man archivieren will ganz willkürlich gespeichert in diese Datei.
... werden die Parameter die man archivieren will ganz willkürlich gespeichert in diese Datei. ...
... genau dieses Diagramm möchte ich auch in Excel wieder erzeugen. ...
eine "Sortierung in Spalten ist hierfür ja nicht notwendig, sie macht nur die Rohdaten etwas lesbarer.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?