我正在尝试在 vb.net 中使用 xml linq xdocument

Question

我正在尝试编写一个 Windows Phone 7 应用程序，它使用 xdocument 从 xml 读取，但我遇到了一些问题。

如果我这样做：

Dim xml As XDocument = XDocument.Load(e.Result)
System.Diagnostics.Debug.WriteLine(xml.ToString)

或者这样：

System.Diagnostics.Debug.WriteLine(xml.Elements.Value.ToString)

然后 xml 数据作为字符串输出到即时窗口，证明数据存在，但如果我这样做：

Dim products = From product In xml.Descendants("product") _
                    Select title = product.Element("title").Value

For Each product In products
     System.Diagnostics.Debug.WriteLine("Title" & product.title)
Next

我什么也得不到 Product.title 并且当我做这样的事情时我也什么也得不到:

Dim count As Integer = xml.Descendants("count").Value

我做错了什么？ 谢谢。

xml 看起来像这样：

<productslist>
  <count>2</count>
  <products>
    <product>
        <productId>1</productId>
        <title>test item 1 </title>
        <price>4.99</price>
        <category>
            <categoryId>1</categoryId>
            <categoryName>cat 1</categoryName>
        </category>
    </product>
    <product>
        <productId>2</productId>
        <title>test item 2</title>
        <price>10.99</price>
        <category>
            <categoryId>2</categoryId>
            <categoryName>cat 2</categoryName>
        </category>
    </product>
 </productslist>

Answer 1

您的 LINQ 语句不会投影到具有 Title 属性的匿名类型。您将直接返回 IEnumerable。

试试这个：

Dim products = From product In xml.Descendants("product") _
               Select product.Element("title").Value

For Each product In products
     Debug.WriteLine("Title: " & product)
Next

也就是说，变量 products 最好命名为 titles。如果您想投影到匿名类型，则需要使用 With New { .Prop1 = data, .Prop2 = other }。每个属性名称都必须添加一个点作为前缀。这是一个示例：

Dim products = From product In xml.Descendants("product") _
               Select New With { .Title = product.Element("title").Value }

For Each product In products
     Debug.WriteLine("Title: " & product.Title)
Next

对于您的示例，似乎不需要匿名类型。如果您有多个属性可供投影，那么它就变得值得。

编辑：为了响应您的评论，命名空间可能会附加到您的 XML 中。如果是这样，您将需要引用它来引用任何元素。

如果您的 XML 有命名空间，则应指定 xmlns，例如：

<productslist xmlns="http://domain.com/namespace">

然后，您必须修改代码以获取命名空间并将其与元素连接起来，如下所示：

Dim ns = xml.Root.GetDefaultNamespace()

Dim products = From product In xml.Descendants(ns + "product") _
               Select product.Element(ns + "title").Value

Answer 2

抱歉，我不懂 VB，但在 C# 中，这段代码就可以了 -

var query = doc.Descendants("product").Select(x => new {Title= x.Element("title").Value});

            foreach (var item in query)
            {
                Console.WriteLine(item.Title);

            }

而且您发布的 xml 缺少 。节点（结束标记），我希望这只是一个复制粘贴错误。