(VB.NET UWP/WinRT) Read RSS Feed

Sample code showing how to read an RSS feed and emit the contents.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim rss As New Chilkat.Rss


' Download from the feed URL:
Dim success As Boolean = Await rss.DownloadRssAsync("http://www.nytimes.com/services/xml/rss/nyt/HomePage.xml")
If (success <> True) Then
    Debug.WriteLine(rss.LastErrorText)
    Exit Sub
End If


' Get the 1st channel.
Dim rssChannel As Chilkat.Rss = rss.GetChannel(0)
If (rss.LastMethodSuccess = False) Then
    Debug.WriteLine("No channel found in RSS feed.")
    Exit Sub
End If


' Display the various pieces of information about the channel:
Debug.WriteLine("Title: " & rssChannel.GetString("title"))
Debug.WriteLine("Link: " & rssChannel.GetString("link"))
Debug.WriteLine("Description: " & rssChannel.GetString("description"))

' For each item in the channel, display the title, link,
' publish date, and categories assigned to the post.
Dim numItems As Integer = rssChannel.NumItems
Dim i As Integer

For i = 0 To numItems - 1
    Dim rssItem As Chilkat.Rss = rssChannel.GetItem(i)

    Debug.WriteLine("----")
    Debug.WriteLine("Title: " & rssItem.GetString("title"))
    Debug.WriteLine("Link: " & rssItem.GetString("link"))
    Debug.WriteLine("pubDate: " & rssItem.GetString("pubDate"))

    Dim numCategories As Integer = rssItem.GetCount("category")
    Dim j As Integer
    If (numCategories > 0) Then
        For j = 0 To numCategories - 1
            Debug.WriteLine("    category: " & rssItem.MGetString("category",j))
        Next


    End If


Next