如何使用vb.net在特定位置创建xml元素？

Imports System.Xml

Public Sub CreateAndInsertElement()
    ' 创建一个新的XML文档
    Dim xmlDoc As New XmlDocument()

    ' 创建XML声明并添加到文档
    Dim xmlDeclaration As XmlDeclaration = xmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
    xmlDoc.AppendChild(xmlDeclaration)

    ' 创建根元素
    Dim rootElement As XmlElement = xmlDoc.CreateElement("Root")
    xmlDoc.AppendChild(rootElement)

    ' 创建要在特定位置插入的新元素
    Dim newElement As XmlElement = xmlDoc.CreateElement("NewElement")
    newElement.InnerText = "这是新插入的元素内容"

    ' 找到要插入新元素的特定位置
    ' 假设我们要将新元素插入到根元素的第一个子元素之前
    Dim firstChild As XmlNode = rootElement.FirstChild

    ' 在特定位置插入新元素
    If firstChild IsNot Nothing Then
        rootElement.InsertBefore(newElement, firstChild)
    Else
        rootElement.AppendChild(newElement)
    End If

    ' 保存XML文档到文件（可选）
    xmlDoc.Save("C:\path\to\your\file.xml")

    ' 打印XML文档内容到控制台
    Console.WriteLine(xmlDoc.OuterXml)
End Sub