再次问这个问题我觉得自己像个白痴,因为我知道它已经被问 过好几次了。即使已经提供了答案,我也无法让这段代码工作,所以我希望通过提供我当前的代码,有人可以帮助我确定我哪里出错了:
Dim RSSReader As New Xml.XmlTextReader("https://stackoverflow.com/feeds")
Dim RSSDoc As New Xml.XmlDocument()
Dim NSMgr As New Xml.XmlNamespaceManager(RSSDoc.NameTable)
NSMgr.AddNamespace("atom", "http://www.w3.org/2005/Atom")
RSSDoc.Load(RSSReader.GetRemainder())
RSSReader.Close()
For Each Node As Xml.XmlNode In RSSDoc.SelectNodes("atom:entry", NSMgr)
AddAtomMessage(Account, Node)
Next
基于上面的代码,“AddAtomMessage”方法永远不会被执行,因为 For/Each 行上的“SelectNodes”没有返回任何节点。