上書きするのではなくXMLに値を追加する（XML + VB.NET）

Question

私のプロジェクトでいくつか問題があります。 VB.netを使用しているWindows Mobile 5の基本的な財務マネージャです。しかし、すべてが正常に動作しますが、値がxmlに保存されると、別の値が保存されるときに上書きされます。これらの値を完全に上書きするのではなく、これらの値を追加する必要があります。

マイコード：

Private Sub MenuItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click 
    Dim writer As New XmlTextWriter("product.xml", Nothing) 
    writer.WriteStartDocument(True) 
    writer.Formatting = Formatting.Indented 
    writer.Indentation = 2 
    writer.WriteStartElement("Table") 
    createNode(DateTimePicker.Text, Subject.Text, Category.Text, Amount.Text, PaymentLabel.Text, writer) 
    writer.WriteEndElement() 
    writer.WriteEndDocument() 
    writer.Close() 
End Sub 
Private Sub createNode(ByVal eDate As String, ByVal eSubject As String, ByVal eCategory As String, ByVal eAmount As String, ByVal ePayment As String, ByVal writer As XmlTextWriter) 
    writer.WriteStartElement("Expenses") 
    writer.WriteStartElement("Date") 
    writer.WriteString(eDate) 
    writer.WriteEndElement() 
    writer.WriteStartElement("Subject") 
    writer.WriteString(eSubject) 
    writer.WriteEndElement() 
    writer.WriteStartElement("Category") 
    writer.WriteString(eCategory) 
    writer.WriteEndElement() 
    writer.WriteStartElement("Amount") 
    writer.WriteString(eAmount) 
    writer.WriteEndElement() 
    writer.WriteStartElement("Payment") 
    writer.WriteString(ePayment) 
    writer.WriteEndDocument() 
End Sub 

Answer 1

あなたはXmlTextWriter、XmlTextReaderと仕事をしなければならないと、最も重要なのは、XmlDocument、XmlElementおよびよります。

XmlDocumentと協力して、あなたはなど、あなたがXMLノードを削除挿入し、追加することを可能にする、Document Object Modelを使用して文書を操作することがあります

は、XMLを書く/この方法を読んでいくつかのポインタのためのthis linkを参照してください。 文書を操作する方法については、XmlDocumentとSystem.Xmlの名前空間の公式文書を参照してください。

Answer 2

いいですか、これはどうですか。

Private Sub MenuItem3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click 

    Dim doc as New XmlDocument() 
    doc.LoadXml("product.xml") 

    Dim root as XmlNode = doc.DocumentElement 
    Dim list as XmlNodeList = root.SelectNodes("Table") 
    Dim table as XmlNode = list.Item(0) 

    table.AppendChild(createNode(doc, ... , ...)) 

    Dim writer As New XmlTextWriter(Console.Out) 
    writer.Formatting = Formatting.Indented 
    doc.WriteTo(writer) 
    writer.Flush() 

End Sub 

Function createNode(XmlDocument doc, ByVal eDate As String, ByVal eSubject As String, ByVal eCategory As String, ByVal eAmount As String, ByVal ePayment As String, ByVal writer As XmlTextWriter) As XmlNode 

    Dim element as XmlElement = doc.CreateElement("Expenses") 

    Dim dateElement as XmlElement = doc.CreateElement("Date") 
    dateElement.InnerText = eDate 
    element.AppendChild(dateElement) 

    ... similar code for the other sub-elements ... 

    Return element 

End Function