webbrowserでAmebaブログを開きブログの作成日時をTextBoxに表示するには？ (ID:147361)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

それは RSS 2.0 なページでは無く、XHTML 1.0 なページですよね。
http://ameblo.jp/takahashiai-blog/page-2.html
に対するフィードは
http://rssblog.ameba.jp/takahashiai-blog/rss20.xml
なので、この URL から取得してみてください。

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim URL As String = "http://rssblog.ameba.jp/takahashiai-blog/rss20.xml"

Dim ds As New DataSet()
        Dim table As DataTable = ds.Tables.Add("rss")
        table.Columns.Add("書式日付")
        table.Columns.Add("title")
        table.Columns.Add("link", GetType(Uri))
        table.Columns.Add("pubDate", GetType(DateTimeOffset))
        table.Columns.Add("description")

DataGridView1.Columns.Clear()
        DataGridView1.Columns.Add(New DataGridViewLinkColumn() With { _
                .DataPropertyName = "link", .HeaderText = "link", .Name = "link"})
        DataGridView1.DataSource = table

Dim doc As XDocument = XDocument.Load(URL)
        For Each item In From x In doc.<rss>.<channel>.<item> _
                         Where Not x.<link>.Value().StartsWith("http://rss.rssad.jp/")
            Dim title As String = item.<title>.Value()
            Dim link As String = item.<link>.Value()
            Dim pubDate As String = item.<pubDate>.Value()
            Dim description As String = item.<description>.Value()
            Dim dt As DateTimeOffset = DateTimeOffset.Parse(pubDate)

table.Rows.Add( _
                dt.ToString("yyyy-MM-dd HH:mm:ss"), _
                title, _
                New Uri(link), _
                dt, _
                description _
            ).AcceptChanges()
        Next

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        If DataGridView1.Columns(e.ColumnIndex).Name = "link" Then
            Dim url As String = DataGridView1(e.ColumnIndex, e.RowIndex).Value.ToString() & "#main"
            WebBrowser1.Navigate(url)
        End If
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る