如何在没有WebBrowser控件的情况下解析VB.net中的XML文档？

问题描述：

如何从按钮的单击事件中打开一个URL（这是一个XML页面），并读取XML文档的内容，而无需使用WebBrowser控件进行分析？如何在没有WebBrowser控件的情况下解析VB.net中的XML文档？

请问您可以稍微详细一点吗？我无法理解您的问题 – Shyju 2012-08-10 17:59:49

您的问题标题包含不必要的细节。你真的认为，根据你处理的事件或你使用的是哪种语言，答案会有所不同。 – 2012-08-10 18:01:03

答

除了使用XDocument和LINQ之外，还有其他两种常见的解决方案。一种是使用XmlDocument和XPath，另一种是使用XML序列化。举例来说，如果你有以下的XML文档：

<?xml version="1.0" encoding="utf-8" ?> 
<Books> 
    <Book Title="Book 1"> 
    <Author>Author 1</Author> 
    <Chapter>Chapter 1</Chapter> 
    <Chapter>Chapter 2</Chapter> 
    </Book> 
    <Book Title="Book 2"> 
    <Author>Author 1</Author> 
    <Chapter>Chapter 1</Chapter> 
    <Chapter>Chapter 2</Chapter> 
    </Book> 
</Books>

然后，你可以用XmlDocument分析它，并通过它使用XPath这样的（其中xml是含有上述XML字符串）搜索：

Dim doc As New XmlDocument() 
doc.LoadXml(xml) 
Dim authorOfBook1 As String = doc.SelectSingleNode("/Books/Book[@Title = 'Book 1']/Author").InnerText 
Dim booksByAuthor1 As XmlNodeList = doc.SelectNodes("/Books/Book[Author = 'Author 1']") 
'etc.

或者，您可以使用序列通过加载XML文档，首先，定义在某些类的文档结构：

Public Class Books 
    <XmlElement("Book")> _ 
    Public Items As List(Of Book) 
End Class 

Public Class Book 
    <XmlAttribute()> _ 
    Public Title As String 

    <XmlElement("Author")> _ 
    Public Authors As List(Of String) 

    <XmlElement("Chapter")> _ 
    Public Chapters As List(Of String) 
End Class

然后将XML反序列化为该类型的对象：

Dim serializer As XmlSerializer = New XmlSerializer(GetType(Books)) 
Using reader As StringReader = New StringReader(xml) 
    Dim books As Books = CType(serializer.Deserialize(reader), Books) 
    'Analyze contents in books object 
End Using

答

使用XDocument.Load将其加载到XDocument中。

这将为您解析文档，以便您可以使用LINQ to XML来查询它。

答

解析XML，您可以使用LINQtoXML库（.NET Framework 3.5的起）

例如，如果你有以下格式的XML，

<rss> 
    <report name="rpt1"> 
    <title>AAA</title> 
    <image>some1</image> 
    </report> 
    <report name="rpt2"> 
    <title>BBB</title> 
    <image>some3333</image> 
</rss>

此代码将解析它并获得每个report项目的title & url项目。

Dim path As String = "pathTosomexml.xml" 
Dim elm As XElement = XElement.Load(path) 
If elm IsNot Nothing Then 

    For Each page As var In elm.Elements("report") 
     Dim title = page.Element("title").Value 
     Dim url = page.Element("image").Value 

    Next 
End If

如何在没有WebBrowser控件的情况下解析VB.net中的XML文档？

相关推荐