Wie kann ich in WinCC Daten im/exportieren mit XML?

[Krumnix]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo.

Da ich letzt ein Projekt hatte, wo ich mit XML Daten exportieren und importieren musste, wollte ich hier mal meine Erfahrungen dazu weitergeben.

Der Im/Export mit der XML-Funktion, die auf jedem Windows-System vorhanden ist (WinCE, WinXP....) ermöglicht unter WinCC ab Version 6.0 (frühere Version nicht getestet) viele Möglichkeiten an, um z.b.
-Rezeptsicherungen auf USB-Stick
-Parametersicherung/Anpassung sichern oder laden
-Neue Rezepte mehr Mail an Kunden senden
-etc....

Das ganze habe ich mit VBS gemacht, da diese Sprache auch in WinCC flexibel zur Verfügung steht.
Ob das ganze auch unter C-Script funktioniert muss man dann selbst testen.

1. Erstellen eines VB-Scripts in WinCC.
Zuerst sollte im VB-Script Editor (Global Script VBS) eine neues Modul unter Projekt-Module erstellt werden.
->Auf der linken Seite unten auf Projekt-Module klicken
->Rechtsklick auf Projekt-Module im Fensterbereich oberhalb der Auswahl
->Neu -> Projekt-Modul

Es wird ein neuen Modul erstellt, das nun so aussehn sollte:

Sub procedure1
 
End Sub

Nun der Sub einen ordentlichen Namen vergeben. Ich habe z.B. READ_XML_FILE, SAVE_XML_FILE oder NEW_XML_FILE als Bezeichnung gewählt.

2. Variablen im Script definieren.
Um eine Variable aus WinCC im Script nutzen zu können, müssen wir einen Zugriff auf diese erst einrichten.
In dieser Variable kann z.B. der Pfad der Datei hinterlegt sein, wo sich die zu lesende oder schreibende XML-Datei befindet.

Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")

3. Instanz auf die XML-Funktions-Bibliothek erzeugen.
Damit wir nun auf die Funktionen der XML-Bibliothek zugreifen könne, müssen wir einen Bezug zu dieser herstellen.
Das geht folgendermassen:

Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")

Nun haben wir erstmal alles, um mit XML zu Arbeiten.
Nun gibt es ja 3 Möglichkeiten, mit einer XML-Datei was zu machen.
1. Wir erstellen eine komplett neue Datei
2. Wir lesen was aus einer bestehenden Datei aus
3. Wir lesen und ändern was in einer bestehenden Datei

Zuerst wird das Thema erstellen einer XML-Datei angegangen:
Da wir ja oben schonmal die Pfadname unser Datei im WinCC mit dem Namen der neuen Datei beschrieben haben, müssen wir diesen erstmal auslesen.

objTagPfad.Read

Nun übergeben wir der XML-Funktion den Pfadnamen. Da die Datei noch nicht existiert, wird erstmal eine virtuelle Datei im Speicher angelegt, die diesen Namen dann trägt.

Dim OpenXML
OpenXML = XML.Load(objTagPfad.Value)

Nun überprüfen wir, ob XML das Laden erfolgreich beendet hat.

If OpenXML = True Then
......
End If

In der If-Abfrage können nun die Daten für die XML-Datei aufbereitet werden.
Ist man damit fertig, speichert man die Datei im XML-Format ab.

If OpenXML = True Then
......
XML.save(objTagPfad.Value)
End If

Am Schluss von dem Script muss dann noch die XML-Routine freigegeben werden:

Set XML = Nothing

Das ganze würde dann fertig so aussehen:

Sub NEW_XML_FILE
 
Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")
 
Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")
 
Dim OpenXML
objTagPfad.Read
OpenXML = XML.Load(objTagPfad.Value)
 
If OpenXML = True Then
......
XML.save(objTagPfad.Value)
End If
Set XML = Nothing
End Sub

 

[Krumnix]

Daten aus einer XML-Datei lesen:
Da wir nun wissen, wie man auf die Funktion der XML-Bibliothek in VBS aufrufen können, kommen wir nun zu dem Lesen eines Nodes in einer XML-Datei.
Hier mal eine Übersicht, wie so eine XML-Datei aussieht:

<?xml version="1.0"?>
<root xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
 <DatenEingang>
  <ID>22123</ID>
  <AVGDicke>12</AVGDicke>
  <BandGeschw>34</BandGeschw>
  <BadTemp>6.098</BadTemp>
 </DatenEingang>
 <DatenMitte>
  <BandGeschw>34</BandGeschw>
  <BadTemp>6.110</BadTemp>
 </DatenMitte>
 <DatenAusgang>
  <AVGDicke>11</AVGDicke>
  <BandGeschw>34</BandGeschw>
  <BadTemp>6.209</BadTemp>
  <DiffDicke>1</DiffDicke>
  <Gewicht>45</Gewicht>
 </DatenAusgang>
</root>

Nun wollen wir einen Wert aus dieser Datei mal auslesen.
Das Grundgerüst sieht erstmal folgendermassen aus:

Sub READ_XML_FILE
 
Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")
 
Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")
 
Dim OpenXML
objTagPfad.Read
OpenXML = XML.Load(objTagPfad.Value)
 
If OpenXML = True Then
...... //Hier werden wir nun weiter darauf eingehen. Z.B. Zugriff auf ein Node in der XML-Datei um es auszulesen oder zu beschreiben
End If
Set XML = Nothing
End Sub

Um auf ein Node in einer XML-Datei Zugriff zu haben verwendet man folgenden Aufruf:

XML.documentElement.selectSingleNode("DatenEingang/ID").text

Damit wir den Inhalt dieses Nodes im WinCC verwenden können schreiben wir folgendes:

Dim XML-ID
Set XML-ID = HMIRuntime.Tags("XML_ID")
 
XML-ID.Read
XML-ID.Value = CDbl(XML.documentElement.selectSingleNode("DatenEingang/ID").text)

Das Ganze sieht dann so aus:

Sub READ_XML_FILE
 
Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")
 
Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")
 
Dim OpenXML
objTagPfad.Read
OpenXML = XML.Load(objTagPfad.Value)
 
If OpenXML = True Then
Dim XML-ID
Set XML-ID = HMIRuntime.Tags("XML_ID")
 
XML-ID.Read
XML-ID.Value = CDbl(XML.documentElement.selectSingleNode("DatenEingang/ID").text)
XML-ID.Save
End If
Set XML = Nothing
End Sub

Daten aus einer XML-Datei lesen und Ändern:
Nun kommen wir dazu, wie wir ein Node in einer XML-Datei ändern können.
Das Auslesen eines Nodes habe ich ja schon weiter oben beschrieben.
Der Unterscheid zum schreiben ist nicht viel anders.

Hier wieder das Grundgerüst:

Sub CHANGE_XML_FILE
 
Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")
 
Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")
 
Dim OpenXML
objTagPfad.Read
OpenXML = XML.Load(objTagPfad.Value)
 
If OpenXML = True Then
...... //Hier werden wir nun weiter darauf eingehen. Z.B. Zugriff auf ein Node in der XML-Datei um es auszulesen oder zu beschreiben
End If
Set XML = Nothing
End Sub

Damit man nun ein Node in der Datei ändern kann, greifen wir wie beim Lesen auf diesen Node zu.
Jedoch weisen wir ihm nun einen Wert zu, anstelle das wir einen auslesen:

Dim objTagBandgeschw
objTagBandgeschw.Read
XML.documentElement.selectSingleNode("DatenMitte/BandGeschw").text = CStr(objTagBandgeschw.Value)

Das Ganze sieht dann komplett so aus:

Sub CHANGE_XML_FILE
 
Dim objTagPfad
Set objTagPfad = HMIRuntime.Tags("Pfadname_XML_Datei")
 
Dim XML 
Set XML = CreateObject("MSXML2.DOMDocument")
 
Dim OpenXML
objTagPfad.Read
OpenXML = XML.Load(objTagPfad.Value)
 
If OpenXML = True Then
  Dim objTagBandgeschw
  objTagBandgeschw.Read
  XML.documentElement.selectSingleNode("DatenMitte/BandGeschw").text = CStr(objTagBandgeschw.Value)
  XML.save(objTagPfad.Value)
End If
Set XML = Nothing
End Sub

So das wars erstmal. Hoffe, ich konnte euch damit ein wenig in die XML-Geschichte unter WinCC einführen.

Gruß,
Krumnix