2010-10-28 50 views

回答

1

在這裏,你去,使用ChilkatRSS

Dim r As New ChilkatRSS 

' Get the searchenginewatch.com feed 
success = r.DownloadRss("http://feeds.searchenginewatch.com/sew") 
If (success = 0) Then 
    MsgBox "Failed to download RSS feed" 
    Exit Sub 
End If 

' Get the first channel 
Dim channel As ChilkatRSS 
Set channel = r.GetChannel(0) 

Dim item As ChilkatRSS 

nItems = channel.NumItems 
For i = 0 To nItems - 1 
    Set item = channel.GetItem(i) 
    List1.AddItem item.GetString("title") 
Next 
+4

這個答案現在幫助不大。你必須引用一個特殊的庫。你需要告訴我們它是哪一個。 – MarkJ 2010-10-29 07:30:48

+0

看起來這個例子使用了一個名爲ChilkatRSS的庫。我相應地更新了它。 – DaveInCaz 2016-07-26 14:41:22