Tut mir leid, dass ich so nerve. Aber ich sitze schon den vierten Tag drüber. Hab
xws.Encoding = Encoding.UTF8
verwendet. Trotzdem zeigt mir Notepad++ UTF-8-BOM. Kann es hier nach UTF-8 umwandeln lassen. Im Ergebnis erhalte ich
keine korrekte Datei. Das Original ist um einige Bytes kleiner. Ich muss mein gemergtes Doc genau so haben wie das Original. Sonst falle ich auf die Nase.
Also ich mache folgendes:
Ich habe mehrere korrekte Dokumente (ca. 400). Jedes mit einer oder mehreren Messreihen. Patienten-IDs sind unterschiedlich (unbemerkte falsche Handhabung in den letzten Jahren). Alle Docs eines Patienten müssen unter einer neuen ID zusammengefasst
werden. Wenn ich jetzt hingehe und lade mir z.B. zwei Dokumente in Notepad++ und ersetze die ID und füge unterhalb des Knotens "messreihen" die Messreihen beider XMLs ein und speichere die XML ab, dann lässt sie sich problemlos importieren.
Bei 400 XMLs und 1000 Messreihen würde das Wochen dauern. Deshalb habe ich mir das Hilfsprogramm geschrieben. Aber es funktioniert nicht, da sich die erzeugten XMLs nicht importieren lassen. Der Inhalt ist vom Aufbau her nicht mehr 1:1! Es kommen Zeichen
hinzu, die in den Originaldateien nicht vorhanden sind.
Im Original steht z.B.
<patient class="de.iem.client2.data.IEMPatient" reference="../../.."/>
und im Studio habe ich im xdoc nach dem Load
<patient class="de.iem.client2.data.IEMPatient" reference="../../.." />
also 1 Zeichen mehr.
Hier die Merge-Routine:
'alle Messreihen aller XMLs in einem XElement sammeln
Dim messreihen As New XElement("messreihen")
For Each xmldata As String In SL.Values
Dim doc As XElement = XElement.Load(xmldata & "\Data.xml")
messreihen.Add(doc.Element("messreihen").Elements)
Next
'ein XML als Grund-XML öffnen
Dim xdoc As XElement = XElement.Load(SL.Last.Value & "\data.xml")
Dim xws As XmlWriterSettings = New XmlWriterSettings
xws.OmitXmlDeclaration = True
xws.NewLineChars = vbLf
xws.Indent = True
xws.Encoding = Encoding.UTF8
'alle Messreihen im Grund-XML entfernen und die gesammelten einfügen
Using stream As FileStream = File.Create(SL.Last.Value & "\data.xml")
Using xw As XmlWriter = XmlWriter.Create(stream, xws)
xdoc.Element("messreihen").Elements.Remove
xdoc.Element("messreihen").ReplaceNodes(messreihen.Elements)
xdoc.Save(xw)
End Using
End Using
Ich würde wirklich nicht so hartnäckig nerven, wenn es nicht so wichtig für uns wäre. Entschuldigung und Danke!
