Question

我已经搜索，搜索和搜索到足以让我头疼！我想要做的是从这里拿一个ATOM提要：National Weather Service Alerts并将其合并到我的程序中，但是，我甚至不知道从哪里开始:(我最终要做的是下载Atom提要并将它放在一个滚动标签。我不想解析它拉出部分或任何东西。只是想显示我的区域的NWS警报。我不希望任何人只写出代码或任何东西，但任何帮助我指出正确的方向进行编程，简单而轻松地为中级vb程序员提供帮助。非常感谢。请帮忙！

Answer 1

以下是适合您案例的代码示例。假设您已经下载了Atom订阅源并将其保存到磁盘中。如果没有，您可能需要稍作修改：

Imports System.Xml
Imports System.ServiceModel.Syndication

Public Class Form1
  Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim messageList As New Generic.List(Of String)
    Using feedReader = XmlReader.Create("X:\vi.php.webintents")
      Dim feedContent = SyndicationFeed.Load(feedReader)
      If feedContent Is Nothing Then Return
      For Each item As Object In feedContent.Items
        messageList.Add(Convert.ToString(item.Title.Text))
      Next
    End Using
    lbl_warnings.Text = String.Join(vbNewLine & vbNewLine, messageList)
  End Sub
End Class

将"X:\vi.php.webintents"替换为您的文件位置。

要使System.ServiceModel.Syndication可用，您需要将System.ServiceModel.dll添加到引用（.NET 4.0）。对于.NET 3.5，您将使用System.ServiceModel.Web.dll

我在此示例中使用this answer作为SyndicationFeed用法的基础。

如何在VB.Net中读取Atom Feed

1 个答案: