Thema Datum  Von Nutzer Rating
Antwort
24.07.2019 15:27:56 Simon
NotSolved
24.07.2019 16:25:09 Gast9684
NotSolved
24.07.2019 16:32:37 Simon
NotSolved
24.07.2019 16:55:48 Gast76546
NotSolved
25.07.2019 10:43:54 Simon
NotSolved
25.07.2019 11:21:30 Gast38037
*****
Solved
Rot Für Zeilen-Minimalisten ...
 25.07.2019 12:28:14 Gast6678
Solved
25.07.2019 12:42:56 Simon
NotSolved
25.07.2019 12:49:12 Gast27235
NotSolved

Ansicht des Beitrags:
Von:
Gast6678		 Datum:
25.07.2019 12:28:14		 Views:
599		 Rating:
     
Antwort:
 Nein
Thema:
Für Zeilen-Minimalisten ...

... geht es auch in 18 Zeilen ;-)

Die Zeilen Set knotenAlleSensorDaten = Nothing und den jeweiligen Kommentar davor kann man übrigens in der Tat auch in der Version mit Kommentaren weglassen.

Sub SensorDatenEinlesenAusXML_pur()
  Dim url As String, xmlDocument As Object, knotenAlleSensorDaten As Object, knotenEinzelSensorDaten As Object, sprachenDurchgehen As Byte
  url = "G:\Rest\Herber Forum\XML einlesen Englisch Deutsch - Simon\Messwerte.xml"
  Set xmlDocument = CreateObject("MSXML2.DOMDocument.6.0")
  xmlDocument.async = False
  xmlDocument.Load url
  For sprachenDurchgehen = 0 To 1
    Select Case sprachenDurchgehen
      Case 0: Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATA")
      Case 1: Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATEN")
    End Select
    If Not knotenAlleSensorDaten Is Nothing Then
      For Each knotenEinzelSensorDaten In knotenAlleSensorDaten
        MsgBox knotenEinzelSensorDaten.Text
      Next knotenEinzelSensorDaten
    End If
  Next sprachenDurchgehen
End Sub

 

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
24.07.2019 15:27:56 Simon
NotSolved
24.07.2019 16:25:09 Gast9684
NotSolved
24.07.2019 16:32:37 Simon
NotSolved
24.07.2019 16:55:48 Gast76546
NotSolved
25.07.2019 10:43:54 Simon
NotSolved
25.07.2019 11:21:30 Gast38037
*****
Solved
Rot Für Zeilen-Minimalisten ...
 25.07.2019 12:28:14 Gast6678
Solved
25.07.2019 12:42:56 Simon
NotSolved
25.07.2019 12:49:12 Gast27235
NotSolved