(Visual Basic 6.0) Read RSS Feed

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim rss As New ChilkatRss

' Download from the feed URL:
Dim success As Long
success = rss.DownloadRss("http://www.nytimes.com/services/xml/rss/nyt/HomePage.xml")
If (success <> 1) Then
    Debug.Print rss.LastErrorText
    Exit Sub
End If

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

' Display the various pieces of information about the channel:
Debug.Print "Title: " & rssChannel.GetString("title")
Debug.Print "Link: " & rssChannel.GetString("link")
Debug.Print "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 Long
numItems = rssChannel.NumItems
Dim i As Long

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

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

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

    End If

Next