Office: (Office 2007) xml mit Dateiheader auslesen

Watzke41 · 10. Juni 2012

habe jetzt nochmal alles kontrolliert,
habe auch einen Schreibfehler gefunden,
trotzdem bleiben die Felder leer und der import bricht ab, selbe Meldung!
ich habe dir das lokalfenster mal angehangen und ein Dateikopf. Vielleicht siehst du daran das Problem??

Gruß Thomas

Dateihaeder
[?xml version="1.0" encoding="utf-8" standalone="yes"?>
[Project LicenseOwnerName="J. Liebing" UploadDate="09.06.12" UploadTime="04:27:56" ProjectName="Arbeitsnachweis" ProjectId="[37734391-96d2-4684-9c8b-91bdfc371413" ExportDate="09.06.2012" ExportTime="06:29:31">
[Pages>
[Page PageName="21.2443.6.86">]
Lokalfenster im Anhang - jetzt mit Anhang!

ebs17 · 11. Juni 2012

Mit RegEX komme ich gar nicht klar!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur zur Vervollständigung:
Code:

Private Sub Befehl69_Click()

Dim AktDatNam As String, DatDatum As Date, sSQL As String
Dim db As DAO.Database
Dim oCol As Object
Dim sPattern As String
Set db = CurrentDb
sPattern = "Project LicenseOwnerName=" & Chr(34) & "([\w| |\.]+)" & Chr(34) & _
" UploadDate=" & Chr(34) & "(\d{2}\.\d{2}\.\d{2})"""

AktDatNam = Dir("P:\Import\" & "*.xml")

While AktDatNam > vbNullString
Application.ImportXML "P:\Import\" & AktDatNam, acAppendData
DatDatum = FileDateTime("P:\Import\" & AktDatNam)

Set oCol = RegExMatchCollection(ReadFile("P:\Import\" & AktDatNam), sPattern)
If oCol.Count > 0 Then
' Debug.Print oCol(0).SubMatches(0)
' Debug.Print oCol(0).SubMatches(1)

sSQL = "UPDATE Page SET DateiName = '" & AktDatNam & "', "

sSQL = sSQL & "[LicenceOwnerName] = '" & oCol(0).SubMatches(0) & "', "
sSQL = sSQL & "[UploadDate] = " & CLng(DateValue(oCol(0).SubMatches(1))) & ", "

sSQL = sSQL & "DateiDatum = " & Str(CDbl(DatDatum)) & " "
sSQL = sSQL & "WHERE DateiName Is Null"
Debug.Print sSQL
db.Execute sSQL, dbFailOnError
Else
MsgBox "Headerinformationen in Datei " & AktDatNam & " nicht gefunden. Abbruch!"
Exit Sub
End If
AktDatNam = Dir
Wend
Set oCol = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

' in Standardmodul

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Watzke41 · 11. Juni 2012

Hallo Eberhardt,
danke dass du dich auch nochmal mit diesem Thema beschäftigst. Werde es mal auf diese Weise probieren.
Mal sehen ob es klappt!
Gibt es hier noch eine Erläuterung nach welchem Schema die Zeichen gesetzt sind?? -für mich spanische Dörfer!

sPattern = "Project LicenseOwnerName=" & Chr(34) & "([\w| |\.]+)" & Chr(34) & _
" UploadDate=" & Chr(34) & "(\d{2}\.\d{2}\.\d{2})"""

Danke
Thomas

ebs17 · 11. Juni 2012

Der Ausdruck an sich sollte Dir aus Deiner XML-Datei bekannt vorkommen.
Durch die Darstellung in VBA muss aber das Doublequote aus dem String ausgelagert werden (=> Chr(34)), weil es sonst den String "zerreißt". Die auch mögliche Verdopplung des Doublequotes habe ich nur am Ende verwendet.

Innerhalb dieses Suchmusters sind die gesuchten Zeichenfolgen mit runden Klammern umschlossen und so als Untersuchmuster (Subpattern) identifizierbar.

Code:

([\w| |\.]+)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

\w ... Schriftzeichen (Buchstabe ohne Umlaute oder Ziffer oder Unterstrich)
\. ... Punkt (muss mit Backslash maskiert werden, weil der Punkt sonst beliebige Zeichen darstellt)

Also Schriftzeichen oder Leerzeichen oder Punkt, und das mindestens einmal. Der Gesamtausdruck dann innerhalb der genannten Doublequotes an der entsprechenden Stelle im gesamten Suchmuster.
Wenn bei den Bezeichnungen noch weitere Zeichen auftreten könnten (vgl. Datenbasis) wie z.B. ein Apostroph o.a., müsste dann das Subpattern dahingehend ergänzt werden.

Code:

(\d{2}\.\d{2}\.\d{2})
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> Zeichenfolge 2 Ziffern, Punkt, 2 Ziffern, Punkt, 2 Ziffern

Siehe auch "Intelligente" Textanalyse.

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

Als Sachse würde ich sagen: Am Ende bitte nur ein weiches "d".

Marsu65 · 11. Juni 2012

Hallo Thomas,
die Variable FilePathName enthält nur den Dateinamen.
Hier muss der vollständige Pfad übergeben werden.
Ändere
Code:

Call GetXMLHeader(AktDatNam, LON, UploadDate)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in
Code:

Call GetXMLHeader("P:\Import\" & AktDatNam, LON, UploadDate)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Watzke41 · 29. Juni 2012

Hallo Marsus, hallo Eberhardt,

bei dem vielen Fußball ist die Datenbank zu kurz gekommen!
Ich habe mich aber trotzdem fleißig mit dem Thema beschäftigt und habe nun zwei gehende Varianten.
Danke euch beiden, und wie so oft: Der Fehler sitzt vor dem Gerät!
Man muss eben jedes Komma und Hochkomma beachten! Ein Feld war auch falsch bezeichnet.
Danke nochmal, bis zum nächsten mal!

Watzke41 · 29. Juni 2012

der Dank fehlt noch....
Hallo Marsus, hallo Eberhardt,

bei dem vielen Fußball ist die Datenbank zu kurz gekommen!
Ich habe mich aber trotzdem fleißig mit dem Thema beschäftigt und habe nun zwei gehende Varianten.
Danke euch beiden, und wie so oft: Der Fehler sitzt vor dem Gerät!
Man muss eben jedes Komma und Hochkomma beachten! Ein Feld war auch falsch bezeichnet.
Danke nochmal, bis zum nächsten mal!

Office: (Office 2007) xml mit Dateiheader auslesen

xml mit Dateiheader auslesen

xml mit Dateiheader auslesen

xml mit Dateiheader auslesen

xml mit Dateiheader auslesen - Similar Threads - xml Dateiheader auslesen

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