WinCC VBS: CSV-Datei aus SPS-Array [1..10.000] erstellen

Eingesetzte Hard-/Software:

• PLC 1517-TF
• HMI TP2200 Comfort PRO v15.1
• TIA v15.1
• WinCC Advanced v15.1

Hallo,

grundlegend möchte ich Messwerte der SPS in eine CSV-Datei schreiben. Hierbei handelt es sich um ca. 4 - 10 Messwerte, welche im Zeitintervall von 10 - 100ms in ein Array der SPS geschrieben werden. Daraus ergeben sich am Ende ca. 10.000 (+-) Messwerte. Einfach wäre dies natürlich mit der bereits vorhandenen SPS-Funktionen "DataLog" zu realisieren. Allerdings habe ich das Problem, dass explizit vorgeschrieben ist als Dezimaltrennzeichen das Komma (",") und als Spaltentrennzeichen das Semikolon (";") zu verwenden. Die Funktion "DataLogWrite" verwendet aber als Dezimaltrennzeichen den Punkt (".") und als Spaltentrennzeichen das Komma (","). Da ich bisher keine Möglichkeit gefunden habe dies zu ändern, habe ich mich dafür entschieden die CSV-Datei mittels VBS im Panel zu realisieren.

Im Panel kann ich ein Array mit maximal 1.600 Elementen Projektieren. Mehr Elemente machen wahrscheinlich auch bezüglich der Kommunikationslast keinen Sinn. Daher verwende ich einen Puffer DB, welcher für jeden Messwert 1.000 Pufferelemente besitzt. Im Panel ist dieser Puffer DB per HMI-Variable mit der SPS verbunden. Das Skript wird über Werteänderung einer Variablen innerhalb des Puffer DB von der SPS aufgerufen, erstellt/öffnet die CSV-Datei, schreibt 1.000 Zeilen, schließt die CSV-Datei und meldet dies an die SPS zurück. Sobald diese Rückmeldung erfolgt ist, kopiert die SPS die nächsten 1.000 Werte in den Puffer und ruft das Skript erneut auf.

Das funktioniert soweit auch, allerdings wird hierfür wesentlich mehr Zeit (ca. 20s) benötigt als notwendig, da die Datei bei jedem Skriptaufruf erneut geöffnet und geschlossen wird. Meine Idee wäre es nun die Datei geöffnet zu lassen und irgendwie das FileHandle ("fo") zu übergeben oder im Puffer DB abzuspeichern, um dies beim nächsten Skriptaufruf weiter verwenden zu können. Das schließen der Datei könnte dann über eine Anforderung der SPS ebenfalls im Puffer DB erfolgen.

Habt ihr eine Idee ob und wie das möglich ist? Auch bin ich für jeden anderen Vorschlag offen (gerne auch ohne Skript), der zur Lösung dieser Aufgabe führt. Eine CSV-Datei ist allerdings zwingend erforderlich, damit diese Messwerte auf verschiedensten Plattformen/Tools analysiert werden können (Bspw. Excel).

Nachfolgend mein VSB-Code:

Sub WriteCsv()

'Deklaration der lokalen Variablen
Dim fo
Dim path
Dim mode
Dim delimiter
Dim i
Const NEW_FILE = 0

'Initialisierung von Variablen
mode         = 8    '8 = Append


'Auswahl des Speicherpfads
path = "\Storage Card USB\Messung " & SmartTags("DB_CsvBuffer_udRunNo") & " " & SmartTags("DB_CsvBuffer_sTimeStamp") & ".csv"

'Auswahl des Trennzeichens
delimiter = ";"

'Starten der Fehlerroutine
On Error Resume Next

'Datei Objekt erstellen
Set fo = CreateObject("FileCtl.File")

'Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
SmartTags("DB_CsvBuffer_iWriteBuffer") = -1
Exit Sub
End If

'Öffnen bzw. Erstellen einer Datei
fo.open path,mode

'Auf Fehler prüfen
If Err.Number<> 0 Then
ShowSystemAlarm "Error # " & CStr(Err.Number)& " "& Err.Description
Err.Clear
SmartTags("DB_CsvBuffer_iWriteBuffer") = -1
Exit Sub
End If

'Erstellen einer Kopfzeile bei neuen Dateien
If fo.LOF = NEW_FILE Then
fo.LinePrint("Messung")
fo.LinePrint("Versuchs-Nr.:" & delimiter & SmartTags("DB_CsvBuffer_udRunNo"))
fo.LinePrint("Zeitpunkt:" & delimiter & Now)
fo.LinePrint("Index" & delimiter & "Zeit [ms]" & delimiter & "Messung 1" & delimiter & "Messung 2")
End If

'Daten werden in die Datein geschrieben
For i=0 To 999
'fo.LinePrint(value1(i) & delimiter & value2(i) & delimiter &  value3(i) & delimiter &  value4(i))
fo.LinePrint(SmartTags("DB_CsvBuffer_afValue1")(i) & delimiter & SmartTags("DB_CsvBuffer_afValue2")(i) & delimiter & SmartTags("DB_CsvBuffer_afValue3")(i) & delimiter & SmartTags("DB_CsvBuffer_afValue4")(i))
Next

'Datei wird geschlossen
fo.Close

'Objekt wird freigegeben
Set fo = Nothing

ShowSystemAlarm "Storage of data was successful!"
SmartTags("DB_CsvBuffer_iWriteBuffer") = 1

End Sub

Hast du z.B. mittels generieren von eigenen Systemmeldungen versucht nachzuvollziehen, welcher Teil so viel Zeit benötigt? Also ob es rein am Öffnen der Datei liegt, oder am Schreiben an sich.

Benötigt das Schreiben von beispielsweise von einem Zehntel der Werte (100 Werte) auch nur ein Zehntel der Zeit.