如何：修改 XML 文本 (Visual Basic)

项目
04/07/2023

Visual Basic提供了修改 XML 文本的简便方法。可以添加或删除元素和属性，还可以将现有元素替换为新的 XML 元素。本主题提供了几个示例，这些示例说明如何修改现有 XML 文本。

修改 XML 文本的值

要修改 XML 文本的值，请获取对 XML 文本的引用，并将 Value 属性设置为所需的值。

下面的代码示例更新 XML 文档中所有 <Price> 元素的值。

For Each book In From element In catalog.<Catalog>.<Book>
  book.<Price>.Value = (book.<Price>.Value * 1.05).ToString("#.00")
Next

下面显示了这个代码示例中的示例源 XML 和修改后的 XML。

源 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book>
</Catalog>

修改后的 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>47.20</Price>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>48.25</Price>
  </Book>
</Catalog>

注意

属性 Value 引用集合中的第一个 XML 元素。如果集合中同名的元素不止一个，则设置 Value 属性只会影响集合中的第一个元素。

向 XML 文本添加属性

若要向 XML 文本添加属性，应首先获取对 XML 文本的引用。然后，可以通过添加新的 XML 特性轴属性来添加特性。还可以使用 Add 方法向 XML 文本添加一个新的 XAttribute 对象。以下示例演示了这两个选项。

Dim newAttribute = "editorEmail"
Dim editorID = "someone@example.com"
For Each book In From element In catalog.<Catalog>.<Book>
  ' Add an attribute by using an XML attribute axis property.
  book.@genre = "Computer"

  ' Add an attribute to the Attributes collection.
  book.Add(New XAttribute(newAttribute, editorID))
Next

下面显示了这个代码示例中的示例源 XML 和修改后的 XML。

源 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" >
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book>
</Catalog>

修改后的 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" genre="Computer" editorEmail="someone@example.com">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk331" genre="Computer" editorEmail="someone@example.com">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book>
</Catalog>

有关 XML 特性轴属性的详细信息，请参阅 XML 特性轴属性。

向 XML 文本添加元素

若要向 XML 文本添加元素，应首先获取对 XML 文本的引用。然后可以使用 Add 方法添加一个新的 XElement 对象，作为元素的最后一个子元素。可以使用 AddFirst 方法添加一个新 XElement 对象，作为第一个子元素。

若要将新元素添加到相对于其他子元素的特定位置，请首先获取对相邻子元素的引用。然后可以使用 AddBeforeSelf 方法将新的 XElement 对象添加到相邻的子元素之前。还可以使用 AddAfterSelf 方法将新的 XElement对象添加到相邻的子元素之后。

下面的示例演示了上述每一项操作的示例。

Dim vbBook = From book In catalog.<Catalog>.<Book> 
             Where book.<Title>.Value = 
               "Developing Applications with Visual Basic .NET"

vbBook(0).AddFirst(<Publisher>Microsoft Press</Publisher>)

vbBook(0).Add(<PublishDate>2005-2-14</PublishDate>)

vbBook(0).AddAfterSelf(<Book id="bk999"></Book>)

vbBook(0).AddBeforeSelf(<Book id="bk000"></Book>)

下面显示了这个代码示例中的示例源 XML 和修改后的 XML。

源 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" >
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book>
</Catalog>

修改后的 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" >
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk000"></Book>
  <Book id="bk331">
    <Publisher>Microsoft Press</Publisher>
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
    <PublishDate>2005-2-14</PublishDate>
  </Book>
  <Book id="bk999"></Book>
</Catalog>

从 XML 文本中删除元素或属性

要从 XML 文本中删除元素或属性，请获取对该元素或属性的引用，并调用 Remove 方法，如以下示例所示。

For Each book In From element In catalog.<Catalog>.<Book>
  book.Attributes("genre").Remove()
Next

For Each book In From element In catalog.<Catalog>.<Book> 
                 Where element.@id = "bk999"
  book.Remove()
Next

下面显示了这个代码示例中的示例源 XML 和修改后的 XML。

源 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" genre="Computer" editorEmail="someone@example.com">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk000"></Book>
  <Book id="bk331" genre="Computer" editorEmail="someone@example.com">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book>
  <Book id="bk999"></Book>
</Catalog>

修改后的 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101" editorEmail="someone@example.com">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
  </Book>
  <Book id="bk000"></Book>
  <Book id="bk331" editorEmail="someone@example.com">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
  </Book></Catalog>

若要从 XML 文本中删除所有元素或属性，请获取对 XML 文本的引用并调用 RemoveAll 方法。

修改 XML 文本

若要更改 XML 元素的名称，请首先获取对该元素的引用。然后可以创建一个具有新名称的新 XElement 对象，并将新 XElement 对象传递给现有 XElement 对象的 ReplaceWith 方法。

如果要替换的元素包含必须保留的子元素，请将新 XElement 对象的值设置为现有元素的 Nodes 属性。这会将新元素的值设置为现有元素的内部 XML。否则，可以将新元素的值设置为现有元素的 Value 属性。

下面的代码示例将所有 <Description> 元素替换为 <Abstract> 元素。通过使用 <Description>XElement 对象的 Nodes 属性，将 <Description> 元素的内容保存在新的 <Abstract> 元素中。

For Each desc In From element In catalog.<Catalog>.<Book>.<Description>
  ' Replace and preserve inner XML.
  desc.ReplaceWith(<Abstract><%= desc.Nodes %></Abstract>)
Next

For Each price In From element In catalog.<Catalog>.<Book>.<Price>
  ' Replace with text value.
  price.ReplaceWith(<MSRP><%= price.Value %></MSRP>)
Next

下面显示了这个代码示例中的示例源 XML 和修改后的 XML。

源 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <Price>44.95</Price>
    <Description>
      An in-depth look at creating applications
      with <technology>XML</technology>. For
      <audience>beginners</audience> or
      <audience>advanced</audience> developers.
    </Description>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <Price>45.95</Price>
    <Description>
      Get the expert insights, practical code samples, and best
      practices you need to advance your expertise with
      <technology>Visual Basic .NET</technology>.
      Learn how to create faster, more reliable applications
      based on professional, pragmatic guidance by today's top
      <audience>developers</audience>.
    </Description>
  </Book>
</Catalog>

修改后的 XML：

<?xml version="1.0"?>
<Catalog>
  <Book id="bk101">
    <Author>Garghentini, Davide</Author>
    <Title>XML Developer's Guide</Title>
    <MSRP>44.95</MSRP>    <Abstract>
      An in-depth look at creating applications
      with <technology>XML</technology>. For
      <audience>beginners</audience> or
      <audience>advanced</audience> developers.
    </Abstract>
  </Book>
  <Book id="bk331">
    <Author>Spencer, Phil</Author>
    <Title>Developing Applications with Visual Basic .NET</Title>
    <MSRP>45.95</MSRP>    <Abstract>
      Get the expert insights, practical code samples, and best
      practices you need to advance your expertise with
      <technology>Visual Basic .NET</technology>.
      Learn how to create faster, more reliable applications
      based on professional, pragmatic guidance by today's top
      <audience>developers</audience>.
    </Abstract>
  </Book>
</Catalog>

通过

如何：修改 XML 文本 (Visual Basic)

修改 XML 文本的值

向 XML 文本添加属性

向 XML 文本添加元素

从 XML 文本中删除元素或属性

修改 XML 文本

另请参阅

其他资源