Office: (Office 2007) xml mit Dateiheader auslesen

Hallo Gemeinde,

ich möchte neben dem xml Inhalt auch den Header der Datei auslesen und in einer Tabelle speichern. Habe hier ein Muster der Datei, und der Importschleife
Vielleicht habt ihr eine Lösung??
Speziell geht es um diese Daten: LicenseOwnerName="G. Mustermann" UploadDate="31.05.12"

Danke erstmal

hier die Schleife:

Private Sub Befehl69_Click()

Dim AktDatNam As String, DatDatum As Date, sSQL As String

AktDatNam = Dir("P:\Import\" & "*.xml")
While AktDatNam ""
Application.ImportXML "P:\Import\" & AktDatNam, acAppendData
DatDatum = FileDateTime("P:\Import\" & AktDatNam)
sSQL = "UPDATE Page SET DateiName = '" & AktDatNam & "', "
sSQL = sSQL & "DateiDatum = '" & DatDatum & "' "
sSQL = sSQL & "WHERE DateiName Is Null"
Debug.Print sSQL ' ^G Direktfenster
CurrentDb.Execute sSQL, 128
AktDatNam = Dir
Wend
End Sub

hier die xml Struktur: ( sind entfernt)


?xml version="1.0" encoding="utf-8" standalone="yes" ?
- Project LicenseOwnerName="G. Mustermann" UploadDate="31.05.12" UploadTime="23:30:16" ProjectName="Arbeitsnachweis" ProjectId="37734391-96d2-4684-9c8b-91bdfc371413" ExportDate="31.05.2012" ExportTime="23:34:19"
- Pages
- Page PageName="21.2443.6.86"
ArtderArbeit>1Wartung laut Arbeitskarte011006Mitte AsNr>0016634 Ort>XXUD Haus 27 /Page
/Pages
/Project"

:)

 

Du könntest einfache Textverarbeitung verwenden, um diese Informationen herauszulesen: Datei in Stringvariable einlesen, Stringvariable per RegEx analysieren oder per Split in Zeilen zerlegen und dann die gewünschte Zeile parsen. Beispiel:
Code:

 

Hallo Eberhardt,
danke für deinen Vorschlag. Ich werde nächste Woche daran basteln und mich dann sicher noch mal melden.
Schönen Sonntag
Gruß Thomas

 

Hallo zusammen,

wenn es nur um die beiden Werte LicenseOwnerName und UploadDate geht, lässt sich das rel. leicht über Das XML-DOM auslesen.
Bsp:http://ms-office-forum.net/forum/sho...d.php?t=289146

Wenn du eine echte Datei hier anhängst, kann man schnell was "basteln".

BTW: wenn du den Dateiinhalt in PHP-Tags packst, kannst du ihn hier auch mit posten (wäre einfacher zu lesen).

 

Hallo Ihr zwei,
habe ein wenig mit euren Vorschlägen probiert, komme aber zu keinem Ergebnis! Da fehlen bei mir doch die Grundlagen von VBA! Mit RegEX komme ich gar nicht klar! Mit dem Vorschlag von Marsu habe ich den selben Import wie in meiner alten Schleife. Excel passt den Import der Struktur der Datei an und gibt sie vollständig aus, nur access ist etwas komplizierter. Habe eine Originaldatei mal im Zip angehängt. (Ich hoffe es funktioniert) Vielleicht habt ihr für meinen Import noch eine relativ einfache Lösung.

Danke Im Voraus
Thomas

 

Hallo Thomas,
ist tatsächlich immer nur ein Datensatz bezgl.
LicenseOwner und UploadDate in den Dateien vorhanden?
Und du brauchst wirklich nur die beiden Felder?

 

Danke für die Nachfrage,
ich benötige natürlich auch die Felder aus der gesamten Datei, die bringt mir aber jede Importschleife (siehe 1.Meldung, oder auch dein Beispiel) Die Kopfdaten werden aber nicht mit ausgelesen, davon brauche ich aber nur die beiden Informationen)
gruß
Thomas

 

Jepp, gerade gesehen, dass du per ImportXML importierst.
Da fehlen alle Attribute.

PageName dürfte somit auch nicht in deinem Import enthalten sein.
Brauchst du das Feld auch (sowie die anderen Atribute: UploadTime, ProjectName, ...)?

 

Hier eine kleine Sub, mit der du die beiden Werte auslesen kannst:
Code:

Aufzurufen z.B. mit
Code:

VERWEIS auf MIcrosoft XML, v6.0 (msxml6.dll) muss gesetzt sein!

 

Hallo Marsu
sorry, also ich brauche den xmlImport, die beiden Felder aus dem Kopf und den Dateinamen alles ander ist Nebensache.

Danke

 

Dann hast du ja jetzt alles zusammen, oder ist noch was offen?

 

Hallo Marsu,
danke für deine Bemühungen! Den Code versuche ich zu verstehen. Da ich aber mich erst seit kurzem mit VBA beschäftige, fehlt mir jetzt die Verknüpfung zu meinen Ordnern, Tabellen.
_LON und UploadDate werde referenziert übergeben_ - dieser Hinweis bringt mich auch nicht weiter, sorry eben Anfänger. Vieleicht kannst du die Zuweisungen etwas genauer Beschreiben.
Danke schon mal.
Gruß Thomas

 

Hallo,

du kopierst die Sub in dein (Formular-)Modul und könntest deine eigene
Prozedur z.B. wie folgt erweitern:
Code:

Die neuen/veränderten Zeilen sind grün makiert.

Die Feldnamen [LicenceOwnerName] und [UploadDate] musst du an die von dir verwendeten Feldnamen in der Tabelle Page anpassen.
Ich bin davon ausgegangen, dass beide Felder vom Datentyp Text sind.
Sollte z.B. UploadDate vom Typ Datum/Uhrzeit sein, muss das in der SQL-Anweisung noch berücksichtigt werden.

Denke daran den Verweis zu setzen!

 

Hallo Marsus,
danke für deine Antworten, langsam wird es eine runde Sache. Aber eben noch mit kleinen Problemen. Ich bekomme jetzt die Fehlermeldung:
-objektvariable oder with-blockvariable nicht festgelegt-
der Code bleibt im Modul in der Zeile stehen:
-LON = xNodelist(0).Attributes(0).Text-
Wenn du hier noch einen Plan hättest, dann läuft der Code bestimmt durch!

Danke schon mal für deine Geduld!
Gruß Thomas

 

Kann es sein, dass die Datei, die in der Prozedur verarbeitet wird, keinen Eintrag (Attribut) LicenceOwnerName hat?

Das Konstrukt reagiert sehr sensibel auf Unterschiede im Aufbau deiner xml-Dateien.

Ganz allgemein könnte man solche Fehler durch eine geeignete Fehlerbehandlung abfangen.
Zuerst sollte jedoch die Analyse stehen, warum es zu dem Fehler kommt.