VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

WebBrowserでHTMファイルの表示データの一部だけを取得(VB.NET) ( No.0 ) 　[親スレッドへ]

日時： 2007/09/07 14:20
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[インターネット][][]                                                *
* キーワード：通信,HTML,WEB,,,                                                    *
***********************************************************************************

元質問：ソースの一部取得は？ - st 　2006/02/15-13:28No.3117

WebBrowserで表示させて表示されたWebのソース(ちなみに取得したソースはテキストボックスに表示させています。)を、一部分だけとりだして他のテキストボックスに表示させたいのです。

-----------------------------------------------------------------------------------
Re^3: ソースの一部取得は？ - YAS 　2006/02/15-16:11 No.3121
-----------------------------------------------------------------------------------
VB2005であったらこんな感じでしょうか。

Public Class Form1
    WithEvents WebBrowser1 As New WebBrowser
    Dim TextBox1 As New TextBox
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Multiline = True
        Me.TextBox1.Dock = DockStyle.Fill
        Me.Controls.Add(Me.TextBox1)
        Me.WebBrowser1.Navigate("http://www.yahoo.co.jp")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _
    Handles WebBrowser1.DocumentCompleted
        Dim Document As HtmlDocument = Me.WebBrowser1.Document
        Dim HtmlElements As HtmlElementCollection = Document.GetElementsByTagName("a")
        For Each HtmlElement As HtmlElement In HtmlElements
            If HtmlElement.GetAttribute("href") _
            .StartsWith("http://rd.yahoo.co.jp/toppage/topics/") Then
                Me.TextBox1.Text += HtmlElement.InnerText & ControlChars.CrLf
            End If
        Next
    End Sub
End Class