Imports System
Imports System.Data.DLinq
Imports System.Expressions
Imports System.Query
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xdoc As XDocument = XDocument.Load("http://yourDomain.net/Rss.aspx")
Dim query = From rssFeed In xdoc.Descendants("channel") _
Select Title = rssFeed.Element("title").Value, _
Description = rssFeed.Element("description").Value, _
Link = rssFeed.Element("link").Value
For Each item In query
Console.WriteLine("TITLE: " + item.Title)
Console.WriteLine("DESCRIPTION: " + item.Description)
Console.WriteLine("LINK: " + item.Link)
Next
End Sub
End Module
|