Office: (Office 2003) xml

Marsu65 · 21. April 2012

Hallo zusammen,

ich habe eine gpx-Datei vorliegen. Auszug:

PHP:

<trk> <name>26.03.</name> <extensions> <gpxx:TrackExtension> <gpxx:DisplayColor>DarkGray</gpxx:DisplayColor> </gpxx:TrackExtension> </extensions> <trkseg> <trkpt lat="47.131403982639313" lon="10.083361035212874"> <ele>1013.624</ele> <time>2012-03-26T06:35:03Z</time> </trkpt> <trkpt lat="47.131412029266357" lon="10.083732018247247"> <ele>1014.593</ele> <time>2012-03-26T06:35:07Z</time> </trkpt>

:)

ebs17 · 23. April 2012

Den Beitrag finde ich jetzt nicht, aber ein kleines Beispiel zum Import von XML.

Claypool · 23. April 2012

Hallo Axel!

Hast du ein AiU Abo? Dort könntest du mal nach xml suchen. Da habe ich was gefunden.

Grüße
Ingo

Marsu65 · 23. April 2012

\@Eberhard
Danke für das Beispiel.
Das sah auf den ersten Blick ja ganz simpel aus.
Es wurden auch Tabellen erstellt.
Leider fehlen in der Tabelle trkpt (Trackpoints) die lat und lon-Werte.
ele und time-Tags werden als Felder angelegt und gefüllt.
Ich gehe davon aus, dass das bei lat und lon nicht funktioniert, liegt daran, dass die Werte im Tag selbst stehen?!?

Muss ich nun das ganze doch stringmäßig auseinanderfummeln?
Das wäre zwar 'ne gute Gelegenheit sich in RegEx einzuarbeiten, aber für einen Freundschaftsdienst ist mir der Aufwand doch etwas hoch.

@Ingo
Leider nein, der Preis für´s Abo entspricht nicht meiner momentanen persönlichen Konjunkturlage *wink.gif*
[Edit]
Aber wenn du diesen hier meinst, der ist sogar frei:
http://www.access-im-unternehmen.de/179.0.html
[/Edit]

Grundsatzfrage, weil ich mich wenig mit xml beschäftigt habe:
Gibt es das überhaupt im xml-Format, dass die Werte im Tag stehen oder muss ich mich eher nach html-Importmöglichkeiten umsehen (wo das ja durchaus Usus ist)?

ebs17 · 23. April 2012

Muss ich nun das ganze doch stringmäßig auseinanderfummeln?
Das wäre zwar 'ne gute Gelegenheit sich in RegEx einzuarbeiten ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anwenden von RegEx ist weniger schlimm.

Ein Satz "Koordinaten, Höhenangabe und Zeitangabe" ist immer komplett enthalten und wiederholt sich sinngemäß?

Marsu65 · 23. April 2012

[Richtige?] Anwenden von RegEx ist weniger schlimm.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schreibt man, wenn man sich schon intensiv damit beschäftigt hat.
zu Risiken und Nebenwirkungen fragen Sie ... *wink.gif*

Ein Satz "Koordinaten, Höhenangabe und Zeitangabe" ist immer komplett enthalten und wiederholt sich sinngemäß?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufbau ist wie im Auszug gezeigt
Code:

...
Ein paar Einführungs und
Metatags
...
Tracktag
Tracknametag
...
Tracksegtag
Trackpointtag mit lat und lon
Höhetag
Timetag
Trackpointendetag
... Wiederholungen neuer Trackpoints
Tracksegendetag
Trackendetag
Tracktag (Neuer Track)
... wie oben
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du ein wenig spielen willst, schicke ich dir gerne auch die Original-gpx.
Ansonsten werde ich das wohl, wie im AiU-Artikel, über das XMLDocument-Object-Model (DOM) lösen.
Hier komme ich über getAttribute an die lat und lon-Werte.

Ich denke (unwissend) aber auch, dass es mit Hilfe des DOM weniger Aufwand ist, als den kompletten String zu zerlegen und mit RegEx auszuwerten?!?

PS: gut auf diesem Wege mal die XMLImport und ExportXML-Methoden kennengelernt zu haben. Kann man bestimmt noch mal gebrauchen, wo die Umwelt zunehmend xml-liger wird.

ebs17 · 23. April 2012

Probiere mal, ob Du mit diesem simpel gestrickten Ansatz weiterkommst.
Code:

Private pRegEx As Object

Public Property Get oRegEx(Optional Reset As Boolean) As Object
If (pRegEx Is Nothing) Then Set pRegEx = CreateObject("Vbscript.Regexp")
If Reset Then Set pRegEx = Nothing
Set oRegEx = pRegEx
End Property

Public Function RegExMatchCollection(ByVal SourceText As String, _
ByVal SearchPattern As String, _
Optional ByVal bIgnoreCase As Boolean = True, _
Optional ByVal bGlobal As Boolean = True, _
Optional ByVal bMultiLine As Boolean = True) As Object

With oRegEx
.Pattern = SearchPattern
.IgnoreCase = bIgnoreCase
.Global = bGlobal
.Multiline = bMultiLine
Set RegExMatchCollection = .Execute(SourceText)
End With
End Function

Public Function ReadFile(ByRef Path As String) As String
Dim FileNr As Long

'Falls nicht vorhanden, nichts zurückgeben:
On Error Resume Next
If FileLen(Path) = 0 Then Exit Function
On Error GoTo 0

'Datei einlesen:
FileNr = FreeFile
Open Path For Binary As #FileNr
ReadFile = Space$(LOF(FileNr))
Get #FileNr, , ReadFile
Close #FileNr
End Function

Sub import()
Dim sContent As String
Dim sFind As String
Dim oMatchCollection As Object
Dim i As Long

sContent = ReadFile(CurrentProject.Path & "\bsp.gpx")
'{2,3} ... heißt Anzahl von bis, in dem Fall von Ziffern (\d = Digit)
sFind = "\d{2}\.\d{15}|" & _
"\d{4}\.\d{3}|" & _
"\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}"
Set oMatchCollection = RegExMatchCollection(sContent, sFind)
For i = 0 To oMatchCollection.Count - 1 Step 4
Debug.Print oMatchCollection(i).Value, _
oMatchCollection(i + 1).Value, _
oMatchCollection(i + 2).Value, _
CDate(Replace(oMatchCollection(i + 3).Value, "T", " "))
Next

Set oMatchCollection = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65 · 23. April 2012

Hab mir gedacht, dass du schon fleissig ein Bsp. gestrickt hast.
Werde ich mir aber erst im Laufe des Tages zu Gemüte führen.

Danke dir jetzt schon mal recht herzlich. *hands

Claypool · 7. Januar 2021

Hallo Axel!

von Marsu65

@Ingo
Leider nein, der Preis für´s Abo entspricht nicht meiner momentanen persönlichen Konjunkturlage *wink.gif*
[Edit]
Aber wenn du diesen hier meinst, der ist sogar frei:
http://www.access-im-unternehmen.de/179.0.html
[/Edit]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nicht ganz. Das habe auch gesehen und könnte helfen. Das, was ich meine findest du hier.
Vielleicht bist du ja nach dem Testzugang für eine Woche überzeugt ;-)

Grüße
Ingo

Marsu65 · 24. April 2012

\@ Ingo
Na, der Codeschnipsel hätte mich nicht viel weitergebracht *wink.gif*
Überzeugt, dass es sinnvoll wäre, bin ich schon ... sind einige interessante Sachen zu finden.
Immerhin hast du mich auf die richtige Fährte geführt.

@All
Habe es nun, wie schon oben angedeutet, über das DOM gelöst.

Eberhards Bsp. (Dank dafür) habe ich mir auch angesehen.
Den Suchstring habe ich, ehrlich gesagt, immer noch nicht komplett verstanden.

Hauptsächlich habe ich aber Abstand von der RegEx-Lösung genommen, da in der gpx Datei mehrere Tracks vorhanden sind.
D.h. es müssen zwei Tabellen gefüllt werden
tbl_Tracks (Id | Trackname)
tbl_Trackpoints (Id | Track_FK | LAT | LON | ELE | Datetime)

Und wie ich zu den einzelnen Trackpoints den Track_FK über RegEX herausfinden bzw. beibehalten kann, ist mir unklar.

Für diejenigen, die mal das selbe Problem haben ein wenig Code:
Code:

Public Sub ReadGPX()

Dim strDateiname As String

Dim objXMLDocument As New MSXML2.DOMDocument
Dim objXMLDocumentElement As Object
Dim objXMLTracks As Object
Dim objXMLTrackseg As Object
Dim objXMLTPElement As Object

Dim cnn As ADODB.Connection
Dim rstTPoints As ADODB.Recordset
Dim rstTracks As ADODB.Recordset

Dim i As Integer
Dim j As Integer
Dim lTrackID As Long
Dim sDateTime As String

strDateiname = CurrentProject.Path & "\Arlberg.gpx"

'// Recordsets auf die Tabellen
Set cnn = CurrentProject.Connection
Set rstTracks = New ADODB.Recordset
Set rstTPoints = New ADODB.Recordset

rstTracks.Open "tbl_Tracks", cnn, adOpenDynamic, adLockOptimistic
rstTPoints.Open "tbl_Trackpoints", cnn, adOpenDynamic, adLockOptimistic

With objXMLDocument
.async = False
.preserveWhiteSpace = False
.validateOnParse = True
.resolveExternals = False
End With

If objXMLDocument.Load(strDateiname) = True Then
Set objXMLDocumentElement = objXMLDocument.documentElement

'// Alle Kindknoten durchlaufen
For i = 0 To objXMLDocumentElement.childNodes.length - 1
Set objXMLTracks = objXMLDocumentElement.childNodes.Item(i)

'// Wenn Kindknoten trk (Neuer Track)
If objXMLTracks.nodeName = "trk" Then
With rstTracks
.AddNew
'// Tracknamen
!Trackname = objXMLTracks.selectSingleNode("name").Text
.Update
lTrackID = !TrackID '//TrackID f. Trackpoints zwischenspeichern
End With

'Tracksegmentbereich
Set objXMLTrackseg = objXMLTracks.selectSingleNode("trkseg")
If Not objXMLTrackseg Is Nothing Then
'//Alle Unterknoten
For j = 0 To objXMLTrackseg.childNodes.length - 1
Set objXMLTPElement = objXMLTrackseg.childNodes.Item(j)
If objXMLTPElement.nodeName = "trkpt" Then
With rstTPoints
.AddNew
!track_fk = lTrackID
!lat = CDec(Replace(objXMLTPElement.getAttribute("lat"), ".", ","))
!lon = CDec(Replace(objXMLTPElement.getAttribute("lon"), ".", ","))
!ele = CDec(Replace(objXMLTPElement.selectSingleNode("ele").Text, ".", ","))
sDateTime = objXMLTPElement.selectSingleNode("time").Text
sDateTime = Replace(sDateTime, "T", " ")
sDateTime = Replace(sDateTime, "Z", " ")
!DateTime = CDate(sDateTime)
.Update
End With
End If '// trackpointinhalte
Next j '// trackseginhalte
End If '// trackseg
End If '//nodename = trk
Next i '// nächster track
Else
MsgBox objXMLDocument.parseError.reason
End If 'document load
rstTPoints.Close: Set rstTPoints = Nothing
rstTracks.Close: Set rstTracks = Nothing
Set cnn = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Geht vlt. auch eleganter.

Wie immer, ein großer Dank an alle Beteiligten!

PS: Und als Anhang noch die stark verkürzte Original gpx.

Josef P. · 24. April 2012

Hallo!

Geht vlt. auch eleganter.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es könnte überschaubarer (lesbarer) werden, wenn du die Verschachtelung der For-Schleifen in Prozeduren auslagerst.
.. Einfach eine Prozedur zum Lesen der Tracks, eine für die TrackPoints, eine zum Schreiben der Daten usw.
Eine weitere Stufe wäre dann der Einsatz von Klassen ... eine Klasse für einen Track, eine für einen TrackPoint usw. => Man könnte dann mit For-Each die aufbereiteten Daten durchlaufen.

Falls Interesse besteht, könnten wir gemeinsam ein Refactoring des Codes durchführen.

[OT]
Ich glaub, das wäre ein schönes Beispiel für die Auslagerung von Aufgaben in eine .NET-dll um sie dann in Access zu nutzen. *wink.gif*

mfg
Josef

Marsu65 · 24. April 2012

Hallo Josef,
bzgl. der prozeduralen Aufteilung kann man argumentieren, dass einzelne Prozeduren übersichtlicher sind.
Ich hatte das auch kurz überlegt, doch in diesem Fall halte ich die eine Prozedur für kompakter und übersichtlicher, da sie gleichzeitig die Struktur des XML abbildet und man Code und Dokument qusi nebeneinanderhalten kann.
Aber wie ich dich kenne, fallen dir bestimmt noch ein paar Gegenargumente ein. *wink.gif*
In diesem Fall sollte es auch nur schnell gehen, funktionieren und kam nicht auf Schönheit an *biggrin.gif*

Die Abbildung in Klassen halte ich in so konkreter Form wg. der Abhängigkeiten der Nodes und der Wiederverwendbarkeit für problematisch.
Ich würde da eher an allgemein verwendbare Strukturklassen denken.

Josef P. · 24. April 2012

Hallo!

bzgl. der prozeduralen Aufteilung kann man argumentieren, dass einzelne Prozeduren übersichtlicher sind.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So etwas lese ich häufiger - ich erkenne die Übersicht nur nicht. *wink.gif*
Wenn beispielsweise die Prozedur aus Beitrag #10 nicht exakt das macht, was gewünscht ist, weil ein Logikfehler enthalten ist, muss ich mir die gesamte Prozedur durchsehen bzw. die gesamte Prozedur testen, auch wenn ich z. B. weiß, dass der Fehler beim Auslesen der Tracking-Punkte entsteht. Oder siehst du auf den ersten Blick, wo das passiert? .. Vermutlich nicht, sonst hättest du die Kommentare nicht benötigt. *biggrin.gif*

Ein Zeichen, das die Proezdur doch nicht so übersichtlich ist, sind für mich die Kommentare bei den End-Ifs und Next. Es sieht so aus, als hättest du die Übersicht verloren, welches End-If bzw. Next wohin gehört. *wink.gif*

Zum Vergleich ein erster Anlauf einer Aufteilung:
Code:

Option Compare Text
Option Explicit

Public Sub ImportGPX()

ImportGpxFile CurrentProject.Path & "\Arlberg.gpx"

End Sub

Private Sub ImportGpxFile(ByVal FileName As String)

Dim objXMLDocument As MSXML2.DOMDocument

Set objXMLDocument = LoadXmlDomDocument(FileName)
ImportGpxDocument objXMLDocument.documentElement

End Sub

Private Function LoadXmlDomDocument(ByVal FileName As String) As MSXML2.DOMDocument

Dim objXMLDocument As MSXML2.DOMDocument
Set objXMLDocument = New MSXML2.DOMDocument

With objXMLDocument
.async = False
.preserveWhiteSpace = False
.validateOnParse = True
.resolveExternals = False
End With

If objXMLDocument.Load(FileName) = False Then
Err.Raise objXMLDocument.parseError.errorCode, FileName, objXMLDocument.parseError.reason
End If

Set LoadXmlDomDocument = objXMLDocument

End Function

Private Sub ImportGpxDocument(ByVal objXMLDocumentElement As Object)

Dim objXMLTracks As Object

Dim cnn As ADODB.Connection
Dim rstTPoints As ADODB.Recordset
Dim rstTracks As ADODB.Recordset

'// Recordsets auf die Tabellen
Set cnn = CurrentProject.Connection
Set rstTracks = New ADODB.Recordset
Set rstTPoints = New ADODB.Recordset

rstTracks.Open "tbl_Tracks", cnn, adOpenDynamic, adLockOptimistic
rstTPoints.Open "tbl_Trackpoints", cnn, adOpenDynamic, adLockOptimistic

For Each objXMLTracks In objXMLDocumentElement.getElementsByTagName("trk")
ImportTrack objXMLTracks, rstTracks, rstTPoints
Next

rstTPoints.Close: Set rstTPoints = Nothing
rstTracks.Close: Set rstTracks = Nothing
Set cnn = Nothing

End Sub

Private Sub ImportTrack(ByVal objXMLTracks As Object, ByVal rstTracks As ADODB.Recordset, ByVal rstTPoints As ADODB.Recordset)

Dim objXMLTrackseg As Object
Dim lTrackID As Long

lTrackID = SaveTrack(rstTracks, objXMLTracks)

Set objXMLTrackseg = objXMLTracks.selectSingleNode("trkseg")
ImportTrackSegment objXMLTrackseg, rstTPoints, lTrackID

End Sub

Private Function SaveTrack(ByVal rstTracks As ADODB.Recordset, ByVal objXMLTracks As Object) As Long

With rstTracks
.AddNew
!Trackname = objXMLTracks.selectSingleNode("name").Text
.Update
SaveTrack = !TrackID
End With

End Function

Private Sub ImportTrackSegment(ByVal objXMLTrackseg As Object, ByVal rstTPoints As ADODB.Recordset, ByVal lTrackID As Long)

Dim objXMLTPElement As Object

If objXMLTrackseg Is Nothing Then
Exit Sub
End If

For Each objXMLTPElement In objXMLTrackseg.getElementsByTagName("trkpt")
SaveTrackPoint rstTPoints, lTrackID, objXMLTPElement
Next

End Sub

Private Sub SaveTrackPoint(ByVal rstTPoints As ADODB.Recordset, ByVal lTrackID As Long, ByVal objXMLTPElement As Object)

Dim sDateTime As String

With rstTPoints
.AddNew
!track_fk = lTrackID
!lat = CDec(Replace(objXMLTPElement.getAttribute("lat"), ".", ","))
!lon = CDec(Replace(objXMLTPElement.getAttribute("lon"), ".", ","))
!ele = CDec(Replace(objXMLTPElement.selectSingleNode("ele").Text, ".", ","))
sDateTime = objXMLTPElement.selectSingleNode("time").Text
sDateTime = Replace(sDateTime, "T", " ")
sDateTime = Replace(sDateTime, "Z", " ")
!DateTime = CDate(sDateTime)
.Update
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Abbildung in Klassen halte ich in so konkreter Form wg. der Abhängigkeiten der Nodes und der Wiederverwendbarkeit für problematisch.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie meinst du das?

Eine Klassenstruktur könnte die XSD-Beschreibung abbilden und somit einen "gesicherten" Zugriff auf die Elemente liefern.
Ich würde allerdings diese Struktur nicht in VBA sondern in .NET umsetzen, da das relativ viele Klassen sind. Außerdem kann man mit xsd.exe die Klassen zu Beschreibung der GPX.xsd automatisiert erzeugen lassen. Man muss dann nur noch das Einlesen und Abspeichern dazu programmieren.
... dieser Aufwand macht meiner Ansicht nach aber erst Sinn, wenn man mehr als nur einen Import in 2 Tabellen durchführen will.
Im Prinzip stelle ich mir einen Zugriff analog DOMDocument & Co. vor - allerdings mit speziellen Membern für die GPX-Elemente.

Beispiel:
Statt
Code:

For Each objXMLTrack In objXMLDocumentElement.getElementsByTagName("trk")
ImportTrack objXMLTrack, rstTracks, rstTPoints
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schreib man dann
Code:

For Each objXMLTrack In objGpx.Tracks
GpxImporter.ImportTrack objXMLTrack
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

/edit:

In diesem Fall sollte es auch nur schnell gehen, funktionieren und kam nicht auf Schönheit an
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das lasse ich so nicht gelten. *biggrin.gif*
Wenn du nämlich von Anfang an schon mehreren Prozeduren je Aufgabe verwendest (in Teilaufgaben denkst), bist du vielleicht sogar schneller, da du kleineren Code erhältst, den du von unten nach oben testen kannst.
Bei einer einzigen Prozedur muss zuerst alles fertig sein, bevor man die Funktionsfähigkeit prüfen kann.

mfg
Josef

ebs17 · 25. April 2012

Nur am Rande:

Und wie ich zu den einzelnen Trackpoints den Track_FK über RegEX herausfinden bzw. beibehalten kann, ist mir unklar.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man könnte den Gesamttext per Split (Delimiter "< trk >") in Teiltexte zerlegen und diese nacheinander dann genau so zzgl. Erfassung Trackname analysieren.

Allerdings kümmert sich eine RegEx-Suche nicht wirklich um Strukturen des GPX-Dokumentes, sondern ermittelt gemäß des vorgegebenen Suchmusters hart an den Daten. Damit wäre man (weitgehend) auf eine korrekte Struktur des Dokumentes angewiesen, während eine XML-Analyse Strukturen berücksichtigt und somit robuster hinsichtlich fehlerhafter GPX-Dokumente arbeiten wird.

Dengegenüber ist das Arbeiten direkt an Daten mit Nichberücksichtigung der Strukturen recht schlank und lässt eine hohe Abarbeitungsgeschwindigkeit erwarten.

von Josef P.

Wenn du nämlich von Anfang an schon mehreren Prozeduren je Aufgabe verwendest (in Teilaufgaben denkst), bist du vielleicht sogar schneller, da du kleineren Code erhältst, den du von unten nach oben testen kannst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann ich aus meiner Sicht unterstreichen. Im Vorschlag #7 habe ich nur die Prozedur Import neu geschrieben (den Rest kopiert), und diese Prozedur besteht nur aus Eingabeparametern (Suchmuster) und aus der Ausgabe.
Sofern einem diese Dinge klar sind, lässt sich die Lösung in Minuten erstellen.

Marsu65 · 25. April 2012

\@Josef

Vermutlich nicht, sonst hättest du die Kommentare nicht benötigt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Kommentare im Code sind nicht für mich. Ich habe sie für das Forum nachträglich eingefügt.

Wenn du nämlich von Anfang an schon mehreren Prozeduren je Aufgabe verwendest (in Teilaufgaben denkst), bist du vielleicht sogar schneller, da du kleineren Code erhältst, den du von unten nach oben testen kannst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In diesem Fall war das Kopieren und Ändern der Vorlage von AiU schneller als das Neuschreiben einzelner Prozeduren und Funktionen. *wink.gif*

Bei einer einzigen Prozedur muss zuerst alles fertig sein, bevor man die Funktionsfähigkeit prüfen kann.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

War in diesem Fall nicht schwer *wink.gif*

@Eberhard

Man könnte den Gesamttext per Split (Delimiter "< trk >") in Teiltexte zerlegen und diese nacheinander dann genau so zzgl. Erfassung Trackname analysieren.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So würde es gehen.

Office: (Office 2003) xml

xml

xml

xml

xml

xml

xml - Similar Threads - xml

MS Office 2021

Fehlermeldung XML Erweiterungspacket

nach speichern als XML-Kalkulationstabelle zu viele Nachkommastellen

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

Import von XML-Dateien in Access

Meldung "öffnen sie nur anlagen von absendern denen sie vertrauen "

Eigenes Ribbon anpassen -> XML