用 VB.net 读取 XML

Question

我正在努力在 VB 中读取我的 XML 并获取我想要的数据。

<?xml version="1.0" encoding="UTF-8"?> 
    <Install>
        <Package>
            <Name>Office2010</Name>
            <Path>C:\Windows\Office</Path>
            <Default>0</Default>
        </Package>
        <Package>
            <Name>CCleaner</Name>
            <Path>C:\Windows\Cleaner</Path>
            <Default>0</Default>
        </Package>
    </Install>

我试图一次读取整个节点，因此我可以获取它的所有值。

package.Name
package.Path
package.Default

这可能吗？我现在为此挣扎了2个多小时。 谢谢。

Answer 1

您可以使用简单的 For Each 循环和 XML 文字，例如：

' or load the XML with XDocument.Load(...) '
Dim xml = <Install>
            <Package>
                <Name>Office2010</Name>
                <Path>C:\Windows\Office</Path>
                <Default>0</Default>
            </Package>
            <Package>
                <Name>CCleaner</Name>
                <Path>C:\Windows\Cleaner</Path>
                <Default>0</Default>
            </Package>
        </Install>

' If you used XDocument.Load(...), use xml.Root.<Package> instead '
For Each package In xml.<Package>
    Console.WriteLine(package.<Name>.Value)
    Console.WriteLine(package.<Path>.Value)
    Console.WriteLine(package.<Default>.Value)
Next

Answer 2

// parse your XML into an XDocument
Dim doc As XDocument = XDocument.Parse(xml)
// get "Install" element
Dim install As XElement = doc.Root

// iterate over "Package" elements in install
For Each package As XElement In install.Elements("Package")
    Dim name As String = package.Element("Name").Value
    Dim path As String = package.Element("Path").Value
    Dim def As String = package.Element("Default").Value
Next