0

我需要编写一个包含两个起始元素的 xml 文件，我该怎么做？

我尝试了以下但无济于事。

Dim xmldoc As XmlDocument = New XmlDocument()
                xmldoc.Load(IO.Directory.GetCurrentDirectory & "\Projects.xml")

                With xmldoc.SelectSingleNode("/COMPELATION").CreateNavigator().AppendChild()
                    .WriteStartElement("DATA")
                    .WriteStartElement("ID")
                    .WriteElementString("PROJECT", TextBox1.Text)
                    .WriteElementString("DESCRIPTION", TextBox2.Text)
                    .WriteElementString("STATUS", ComboBox1.Text)
                    .WriteElementString("OWNER", TextBox4.Text)
                    .WriteElementString("DATE", TextBox5.Text)
                    .WriteElementString("CLIENT", TextBox6.Text)
                    .WriteEndElement()
                    .WriteEndElement()
                    .Close()
                End With

期望的输出如下：


123 我的描述打开商店助理杰克 28-08-2015 汤姆斯商店 123 我的描述 打开商店助理杰克 28-08-2015 汤姆斯商店

4

1 回答 1

0

编辑！ 有几种方法可以做到：

 VB.NET program that uses XmlWriter

 Imports System.Xml

 Module XmlModule
     ''' <summary>
     ''' Employee type.
     ''' </summary>
Class Employee
Public Sub New(ByVal id As Integer, ByVal firstName As String, _
           ByVal lastName As String, ByVal salary As Integer)
    ' Set fields.
    Me._id = id
    Me._firstName = firstName
    Me._lastName = lastName
    Me._salary = salary
End Sub

' Storage of employee data.
Public _firstName As String
Public _id As Integer
Public _lastName As String
Public _salary As Integer
End Class

Sub Main()
' Create array of employees.
Dim employees(2) As Employee
employees(0) = New Employee(1, "Prakash", "Rangan", 70000)
employees(1) = New Employee(5, "Norah", "Miller", 21000)
employees(2) = New Employee(17, "Cecil", "Walker", 60000)

' Create XmlWriterSettings.
Dim settings As XmlWriterSettings = New XmlWriterSettings()
settings.Indent = True

' Create XmlWriter.
 Using writer As XmlWriter = XmlWriter.Create("C:\employees.xml", settings)


    ' Loop over employees in array.
    Dim employee As Employee

  ' Begin writing.
    writer.WriteStartDocument()
    writer.WriteStartElement("DATA") ' Root.

    For Each employee In employees
    writer.WriteStartElement("ID")
           Writer.WriteElementString("FirstName", employee._firstName)
           writer.WriteElementString("LastName", employee._lastName)
           writer.WriteElementString("Salary", employee._salary.ToString)
         writer.WriteEndElement()

    writer.WriteEndElement()
    Next
' End document.
    writer.WriteEndDocument()
End Using
End Sub
 End Module

输出

输出（写入磁盘上的文件。）

 <?xml version="1.0" encoding="utf-8"?>

 <DATA>
   <ID>
     <FirstName>Prakash</FirstName>
     <LastName>Rangan</LastName>
     <Salary>70000</Salary>
  </ID>
   <DATA>
     <ID>
     <FirstName>Norah</FirstName>
     <LastName>Miller</LastName>
     <Salary>21000</Salary>
   </ID>
   </DATA>
   <DATA>
     <ID>
     <FirstName>Cecil</FirstName>
     <LastName>Walker</LastName>
     <Salary>60000</Salary>
   </ID>
 </DATA>

我认为正是你想要的

 <DATA>
   <ID>
      <PROJECT>123</PROJECT>


 <Employees>
   <Employee>
     <ID>1</ID>

玩得开心编码:) CristiC777

于 2015-09-07T08:55:44.920 回答