'urlのstart-minとstart-maxで取得する範囲指定してね
Dim url As String = "http://www.google.com/calendar/feeds/[email protected]/public/full?start-min=2012-05-01&start-max=2012-05-31"
Dim Instance As New XmlDocument
Dim NamespaceMng As XmlNamespaceManager
Dim XML_XMLNS As String = "http://www.w3.org/2005/Atom"
Dim XML_NAME_SPACE As String = "GoogleCalendarNameSpase"
Instance.Load(url)
NamespaceMng = New XmlNamespaceManager(Instance.NameTable)
NamespaceMng.AddNamespace(XML_NAME_SPACE, XML_XMLNS)
Dim nodeList As XmlNodeList = Instance.SelectNodes("/GoogleCalendarNameSpase:feed/GoogleCalendarNameSpase:entry", NamespaceMng)
For Each XNode As XmlNode In nodeList
Console.WriteLine(XNode("title").InnerXml)
Console.WriteLine(XNode("gd:when").GetAttribute("startTime"))
Next
最終更新:2012年04月25日 18:43