问题描述
跟进我的previous question。我现在试图找到特定出现的 XML 部分。例如在下面的 XML （部分）
<?xml version="1.0" encoding="utf-8" ?>
<deFinition date="2021-04-30" version="1.01">
<changes>
<change number="1" date="2021-04-30" description="Added .." />
<change number="2" date="2021-04-30" description="Changes in .." />
<change number="3" date="2021-04-30" description="Fixed .." />
<change number="4" date="2021-05-11" description="Added " />
</changes>
<general>
<styles>
<style name="title">
<font name="Arial" size="12" bold="true"/>
</style>
<style name="general">
<font name="Courier new" size="10" bold="true" />
</style>
<style name="header">
<font name="Courier new" size="10" bold="false" />
</style>
</styles>
</general>
我想找零钱 3。 我正在使用 Dandraka XML-Utilities 使 XML 成为 ExpandoObject。这应该让我可以轻松获得特定值。例如，使用上述方法，我可以获得定义日期和版本，如下所示：
Dim strXML As String
strXML = File.ReadAllText("C:\Tools\ReportDeFinitions.xml")
Dim def As Object
def = XmlSlurper.ParseText(strXML)
Console.WriteLine(def.date)
Console.WriteLine(def.version)
我想在列表中使用 Linq：def.changes.changelist。但很简单：
def.changes.changelist.where(Function(c) c.number = "1").count()
在 where 部分给出错误。在这里搜索过，但大多数示例都在 C# 中，并将它们转换为 VB.net 最终会导致无法编译。
假设我必须投射它但如何？
var iet = def.changes.changelist;
var iets = (IEnumerable)def.changes.changelist;
var iets2 = iets.Cast<dynamic>();
var iets3 = iets2.FirstOrDefault(p => p.number == "3");
int iets4 = iets3.number;
Console.WriteLine(iets4);
现在在 VB.Net 中，我可以像这样完成大部分工作：
Dim iet As Object = def.changes.changelist
Dim iets = CType(def.changes.changelist,IEnumerable)
但是这一行：
var iets2 = iets.Cast<dynamic>();
不知道如何将其转换为 VB.Net..
谢谢
解决方法
我安装了 Dandraka XML 并为您找到了答案。问题是 Linq 不仅适用于 IEnumerable，还需要 IEnumerable<T> 之类的东西。因此，如果您将 changeList 转换为 List(Of Dandraka.XmlUtilities.ToStringExpandoObject) 类型，那么您可以在其上使用 Linq。在 Linq 函数中，还有另一个对象强制转换，因此我们可以访问动态属性。
Dim def = XmlSlurper.ParseText(File.ReadAllText("c:\temp\data.xml"))
Console.WriteLine("Definition date " & def.date.ToString)
Console.WriteLine("Definition version " & def.version.ToString)
Console.WriteLine()
Dim list As List(Of Dandraka.XmlUtilities.ToStringExpandoObject) = def.changes.changeList
Dim number3 As Object = list.FirstOrDefault(Function(i) CType(i,Object).number = "3")
Console.WriteLine(number3.date.ToString & " - " & number3.description.ToString)
Console.ReadLine()
我对 Dandraka XML 一无所知，这可能是一种将 xml 转换为对象的方法。我不会去那里，而是使用普通的 System.Xml 库来读取内容并使用 XPath 查找您需要的内容。所以这不是一个确切的答案，而更像是获得相同结果的替代答案。
Dim doc As New XmlDocument()
doc.Load("c:\temp\data.xml")
Dim root As XmlNode = doc.DocumentElement
Console.WriteLine("Definition date " & root.Attributes("date").Value)
Console.WriteLine("Definition version " & root.Attributes("version").Value)
Console.WriteLine()
Dim node As XmlNode = root.SelectSingleNode("changes/change[@number='3']")
Console.WriteLine(node.Attributes("date").Value & " - " & node.Attributes("description").Value)
这将为您提供以下输出
Definition date 2021-04-30
Definition version 1.01
2021-04-30 - Fixed ..