Siemens SIMATIC PCS 7 Manuel De Configuration page 367

Set fso = CreateObject("scripting.filesystemobject")
Set folder = fso.GetFolder(HMIRuntime.ActiveProject.Path &
"\AssetExport\" & ExportTarget & "\Out\")
Set fc = folder.Files
On Error Resume Next
For Each f1 In fc
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
delivered with IE 6.0SP1, see http://support.microsoft.com/kb/269238
vbCrLf & vbCrLf _
objXml.documentElement.selectSingleNode("/Document/b2mml:EquipmentIn
formation/b2mml:Equipment/b2mml:EquipmentProperty/b2mml:Value/b2mml:
ValueString[../b2mml:Key='Name']")
vbNewLine
objXml.documentElement.selectSingleNode("/Document/b2mml:Maintenance
Information/b2mml:MaintenanceRequest/b2mml:Problem")
Station opérateur (V7.1)
Manuel de configuration, 03/2009, A5E02122465-01
15.17 Exportation individuelle - Exportation des données d'un composant
If Right(f1.name, 4) = ".xml" Then
'debug script for Interlink.dll
Dim il
Dim job
Dim xmlfile
Dim MessageText
xmlfile = f1.Path
If Len(ServiceEinheit) <= 0 Then ServiceEinheit = "9999"
Dim objXML
'Set objXML = CreateObject("MSXML2.DOMDocument.6.0")
Set objXML = CreateObject("MSXML2.DOMDocument.3.0") '
' check structure of document while loading
objXML.validateOnParse = True
' Charger le document
If Not objXML.Load(xmlfile) Then
' Error while loading
HMIRuntime.Trace "Erreur de chargement du document." &
& "Cause : " & objXML.parseError.reason & vbCrLf _
& "Ligne : " & objXML.parseError.Line
Exit Function
Else
Dim child
MessageText = "Maintenance Request: "
MessageText = MessageText & " Tag=" & child.text
'HMIRuntime.Trace child.NodeName & " = " & child.text &
Utilisation de la station de maintenance PCS 7
Set child =
Set child =
367