Sugi@ぱぱんぶぃびぃ Blog

VBとかVB.NETとかVB2005とか・・・

AILight Banner
AILight Blog

プロフィール

Sugi@ぱぱんぶぃびぃ Blog

目次

Blog 利用状況

記事分類

過去の記事

タグ

VB9サンプル: LINQを使用したRSSの生成

サンプルというか、メモ書きに近いです。
VB9のXMLリテラルを使用して書くとどうなるのかなと思って作ってみました。
(日付に関しては、RFC822形式になっていません。)
データの最新10件を出力しています。
Using db As New TestDataContext()
    Dim topics As Table(Of Topics) = db.GetTable(Of Topics)()
    Dim rss = <?xml version="1.0"?>
              <rss version="2.0">
                  <channel>
                      <title>LINQでRSS</title>
                      <link>http://www.hoge.com/</link>
                      <description>LINQでテーブルのデータよりRSSを生成するサンプル</description>
                      <language>ja-JP</language>
                      <pubDate><%= topics.Max(Function(topic As Topics) topic.CreatedDate).ToUniversalTime() %></pubDate>
                  </channel>
                  <items>
                      <%= (From topic In topics _
                          Order By topic.CreatedDate Descending _
                          Select <item>
                                     <title><%= topic.Title %></title>
                                     <link>http://www.hoge.com/topic.aspx?id=<%= topic.Id %></link>
                                     <description><%= topic.Summary %></description>
                                     <pubDate><%= topic.CreatedDate.ToUniversalTime() %></pubDate>
                                     <guid>http://www.hoge.com/topic.aspx?id=<%= topic.Id %></guid>
                                 </item>).Take(10) %>
                  </items>
              </rss>
End Using
一応中でラムダ式なんかも使ってます。
「これぞVB9!」というコードですね。^^

投稿日時 : 2008年4月8日 5:47


コメントを追加

タイトル
名前
URL
コメント