SpacoController.vb

Private Function CreateFeed(offset As Integer, count As Integer) As String

    ' ダミーデータ作成
    Dim channelPubDate = Now
    Dim items = New List(Of ComicItem)

    For i = offset + 1 To count
        Dim item = New ComicItem With {
            .Title = "タイトル" & i.ToString,
            .PubDate = Now.AddDays(count - i),
            .ModifiedDate = Now.AddDays(count - i),
            .Link = "http://pronama.jp/?" & i.ToString,
            .Id = i.ToString,
            .Volume = i,
            .IsAvailable = True,
            .MediaUrl = "http://pronama.jp/?media" & i.ToString,
            .ThumbnailUrl = "http://pronama.jp/?thumbnail" & i.ToString,
            .Creator = "Creator",
            .Guid = "http://pronama.jp/?" & i.ToString}

        items.Add(item)
    Next

    ' XDocument 作成
    Dim xml =
    <?xml version="1.0" encoding="UTF-8"?>
    <rss version="2.0"
        xmlns:dc="http://purl.org/dc/elements/1.1/"
        xmlns:dcndl="http://ndl.go.jp/dcndl/terms/"
        xmlns:media="http://search.yahoo.com/mrss/"
        xmlns:p="http://pinga.mu/terms/"
        >
        <channel>
            <title>すぱこー</title>
            <link>http://pronama.azurewebsites.net/tag/spaco/</link>
            <description>高校生の暮井 慧（プロ生ちゃん）と、部活「情報処理研究会」のメンバー 戸増千由莉とフィネス・ヒルヴィレッジが活躍する Web 4コマ漫画「すぱこー」！</description>
            <pubDate><%= channelPubDate.ToString("r") %></pubDate>
            <image>http://pronama.azurewebsites.net/wp-content/uploads/2015/05/spaco_banner.png</image>
            <dc:creator>池村ヒロイチ/プログラミング生放送</dc:creator>
            <%= From i In items
                Select <item>
                            <title><%= i.Title %></title>
                            <dc:creator><%= i.Creator %></dc:creator>
                            <link><%= i.Link %></link>
                            <pubDate><%= i.PubDate.ToString("r") %></pubDate>
                            <description><%= i.Description %></description>
                            <dcndl:volume><%= i.Volume %></dcndl:volume>
                            <dc:modified><%= i.ModifiedDate.ToString("s") %></dc:modified>
                            <p:isAvailable><%= If(i.IsAvailable, "true", "false") %></p:isAvailable>
                            <media:content url=<%= i.MediaUrl %>></media:content>
                            <media:thumbnail url=<%= i.ThumbnailUrl %>></media:thumbnail>
                            <guid isPermaLink="false"><%= i.Guid %></guid>
                        </item>
            %>
        </channel>
    </rss>

    ' XML 文字列を返す
    Return xml.ToString
End Function