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