Thema Datum  Von Nutzer Rating
Antwort
09.01.2024 09:03:01 Jens
NotSolved
09.01.2024 11:11:34 Gast72537
NotSolved
09.01.2024 11:54:03 Jens
NotSolved
09.01.2024 20:44:09 Gast86104
NotSolved
10.01.2024 07:40:05 Jens
NotSolved
12.01.2024 16:13:47 Jens
NotSolved
15.01.2024 15:07:49 Jens
NotSolved
15.01.2024 15:56:09 Mase
NotSolved
16.01.2024 07:08:17 Jens
NotSolved
18.01.2024 09:06:42 Jens
NotSolved
18.01.2024 10:44:17 Mase
NotSolved
18.01.2024 12:06:58 Jens
NotSolved
18.01.2024 13:24:26 Mase
NotSolved
Blau via XPath (late-binding)
 18.01.2024 12:43:44 Gast60342
NotSolved
18.01.2024 14:01:54 Jens
NotSolved

Ansicht des Beitrags:
Von:
Gast60342		 Datum:
18.01.2024 12:43:44		 Views:
165		 Rating:
     
Antwort:
  Ja
Thema:
via XPath (late-binding)		 
Option Explicit

Public Sub ParseXml()
  
  Dim xml As Object 'MSXML2.DOMDocument60
  
  Set xml = CreateObject("MSXML2.DOMDocument")
  Call xml.SetProperty("SelectionLanguage", "XPath")
  xml.validateOnParse = True
  xml.async = False
  
  ' XML aus Datei laden
  If Not xml.Load("C:\Test\Beispiel.xml") Then
    Call MsgBox( _
      Buttons:=vbCritical, _
      Prompt:=xml.ParseError.Reason, _
      Title:="Fehler in Zeile " & xml.ParseError.Line & ", Spalte " & xml.ParseError.LinePos)
    Exit Sub
  End If
  
  'VARIANTE 1:
  Dim xmlAttr As Object 'MSXML2.IXMLDOMAttribute
  Set xmlAttr = xml.SelectSingleNode("//renderedResult/@concentration")

  Call MsgBox("'" & xmlAttr.Name & "' = " & xmlAttr.NodeValue, vbInformation)
  
'  'VARIANTE 2:
'  Dim xmlElem As Object 'MSXML2.IXMLDOMElement
'  Dim xmlAttr As Object 'MSXML2.IXMLDOMAttribute
'
'  Set xmlElem = xml.SelectSingleNode("//renderedResult[@concentration]")
'  Set xmlAttr = xmlElem.GetAttributeNode("concentration")
'
'  Call MsgBox("'" & xmlAttr.Name & "' = " & xmlAttr.NodeValue, vbInformation)
  
End Sub

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.01.2024 09:03:01 Jens
NotSolved
09.01.2024 11:11:34 Gast72537
NotSolved
09.01.2024 11:54:03 Jens
NotSolved
09.01.2024 20:44:09 Gast86104
NotSolved
10.01.2024 07:40:05 Jens
NotSolved
12.01.2024 16:13:47 Jens
NotSolved
15.01.2024 15:07:49 Jens
NotSolved
15.01.2024 15:56:09 Mase
NotSolved
16.01.2024 07:08:17 Jens
NotSolved
18.01.2024 09:06:42 Jens
NotSolved
18.01.2024 10:44:17 Mase
NotSolved
18.01.2024 12:06:58 Jens
NotSolved
18.01.2024 13:24:26 Mase
NotSolved
Blau via XPath (late-binding)
 18.01.2024 12:43:44 Gast60342
NotSolved
18.01.2024 14:01:54 Jens
NotSolved