ich möchte ein xml auslesen, alle Knoten durchsuchen und ggfls verändern und das xml wieder speichern.
Es handelt sich hier um ein SAS Projekt, falls das weiterhilft.
Die xml Datei öffne ich mit nachstehendem Code. Mit ADODB.Stream saveToFile habe ich versucht zu speichern, ist das Ergebnis unbrauchbar
1. Lese ich die Datei richtig ein
2. Wie durchlaufe ich alle Knoten am Besten
3. Wie speichere ich das xml wieder in UTF-16
Danke für eure Hilfe!
Private Sub ChangeXML()
Dim path As String
Dim xmlDoc As New MSXML2.DOMDocument60
Dim xmlKnoten As MSXML2.IXMLDOMElement
Dim xmlAttribut As Object
Dim xpathKnoten As String
path = "C:\Users\vovgr03\Desktop\OrdnerFileSearch\OrigFileVorMigration\project.xml"
xmlDoc.async = False
xmlDoc.validateOnParse = True
' xmlDoc.Encoding = "UTF-16" 'funkt nicht
xmlDoc.Load (path)
' Alle Knoten durchlaufen
'Speichern des XML
' Dim w As New MSXML2.MXXMLWriter60
' Dim r As New SAXXMLReader60
' Dim s As New ADODB.Stream
End Sub