Hallo
Ich suche nach einer Lösung und bin bisher noch nicht fündig geworden. ich möchte in VB2005 einen XML-Knoten (z.B. Knoten 2) von der C:\T.xml in die C:\M.xml mittels VB2005 verschieben. Wie kann ich das realisieren? Besten Dank für jeden Hinweis.
Die T.xml sieht wie folgt aus:
Die M.xml sieht wie folgt aus:
DP -> XML
.
.
?!?
Hi,
Die M.xml sieht wie folgt aus:
<?xml version="1.0" encoding="ISO-8859-1" ?>
Soll so aussehen oder sieht so aus?
Wenn letzteres - wie soll es aussehen?
Wenn ersteres - wo ist das Problem?
M.xml sieht am Anfang so aus wie vorhin angegeben. Nach dem verschieben eines knotens sollte m.xml in etwa wie folgt aussehen, wenn der Knoten Visualbasic.net verschoben/kopiert wird.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
XML Eintrag verschieben
Hallo
Danke für alle Hinweise, habe das Problem in den Griff bekommen und falls es auchn mal jemand interessiert, poste ich Hier gleich mal den Code, wie man einen XML Eintrag kopieren (XML Kopieren) oder ein XML Eintrag verschieben (XML verschieben) kann.
Public Sub Move() 'Verschieb XML Elemente untereinander
'Dieses Codesegment stammt von Sebastian Rastberger
'Element laden und löschen (Pfad=C:\Text.xml)
Dim xmlAltesElement As System.Xml.XmlElement
Dim x1 As New System.Xml.XmlDocument
x1.Load(Pfad)
xmlAltesElement = x1.DocumentElement.ChildNodes(2)
x1.DocumentElement.RemoveChild(xmlAltesElement)
xmlAltesE = xmlAltesElement
x1.Save(Pfad)
'Ab hier Schreibe xmlAltesElement in die neue Datei C:\Test1.xml
Dim xmls As New System.Xml.XmlDocument
Dim xmlKD As System.Xml.XmlNode
Dim xmlUnterKD1 As System.Xml.XmlNode 'XmlNode oder XmlElement
Dim xmlText As System.Xml.XmlText
xmls.Load(„C:\Test1.xml“) 'Vorhandene XML Laden
xmlKD = xmls.CreateElement(xmlAltesE.LocalName) 'Feld Artikel generieren
xmlAltesE = xmlAltesE
xmls.DocumentElement.AppendChild(xmlKD)
For a = 0 To xmlAltesE.ChildNodes.Count - 1
'MsgBox(xmlAltesE.ChildNodes(a).Name)
'MsgBox(xmlAltesE.ChildNodes(a).InnerText)
xmlUnterKD1 = xmls.CreateElement(xmlAltesE.ChildNodes(a).Name)
xmlText = xmls.CreateTextNode(xmlAltesE.ChildNodes(a).InnerText)
xmlUnterKD1.AppendChild(xmlText)
xmlKD.AppendChild(xmlUnterKD1)
xmls.Save(„c:\Test1.xml“)
Next a
End Sub