2

我已经搜索了又搜索又搜索了足够多，直到我的头疼！我想做的是从这里获取一个 ATOM 提要：国家气象服务警报并将其合并到我的程序中，但是，我什至不知道从哪里开始 :( 我最终想要做的是下载 Atom 提要和将它放在滚动标签中。我不想解析它拉出部分或任何东西。只想显示我所在地区的 NWS 警报。我不希望任何人只写出代码或任何东西，但有任何帮助非常感谢为中级 vb 程序员指出正确的方向来简单而轻松地编程它。请帮助！

4

1 回答 1

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

我将此答案用作SyndicationFeed此示例中的使用基础。

于 2012-10-30T17:43:40.640 回答