如何使用 Visual Basic 将一些 XML 插入到 XDocument 中？

Question

我正在尝试在 ASP.NET MVC 项目中创建站点地图。

我的 Node 控制器中的这段代码...

Function Sitemap() As ContentResult
    Dim db As New EfrDotOrgEntities
    Dim Nodes = db.Node.ToList
    Dim RequestUrl As Uri = Url.RequestContext.HttpContext.Request.Url
    Dim AbsoluteRoot As String = String.Format("{0}://{1}", RequestUrl.Scheme, RequestUrl.Authority)

    Dim map As XDocument = <?xml version="1.0" encoding="UTF-8"?>
                           <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
                           </urlset>
    For Each n As Node In Nodes
        map.Add(<url>
                    <loc><%= AbsoluteRoot + Url.RouteUrl("IdOnly", New With {.id = n.Id}) %></loc>
                </url>)
    Next
    Return Content(map.ToString, "text/xml", Encoding.UTF8)
End Function

（这是一个图像，因为 Stack Overflow 无法很好地为 VB 代码着色）

...产生此错误：

此操作将创建一个 文档结构不正确。

它不知道在哪里添加该内容。

我如何告诉它将该部分 XML 插入到 中？

Answer 1

您需要将其添加到文档中的顶级元素（根）：

map.Root.Add(...)

Answer 2

为什么不使用另一个 xml 文字漏洞来完全填充它呢？

Dim map As XDocument = <?xml version="1.0" encoding="UTF-8"?>
                       <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
                           <%= From n In Nodes.Cast(Of Node)() _
                               Select <url>
                                          <loc><%= AbsoluteRoot + Url.RouteUrl("IdOnly", New With {.id = n.Id}) %></loc>
                                      </url> %>
                       </urlset>