VB2010 フォームアプリでHTMLファイルから任意のタグで囲まれた部分(例えば内)を TEXTBOXに格納したいと思いますが、いろいろ調べても「これだ」というものが見つかりませんでした。皆さんの知恵を貸してください。

vb2019でHTMLの取得

解決済

質問者：IrohaKujoh
質問日時：2013/03/06 06:31
回答数：1件

VB2010　フォームアプリでHTMLファイルから
任意のタグで囲まれた部分(例えば<body></body>内)を
TEXTBOXに格納したいと思いますが、
いろいろ調べても「これだ」というものが見つかりませんでした。
皆さんの知恵を貸してください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： bybalsendercase
回答日時：2013/03/07 22:12

こんにちは

一例です。
タグの間の表示文字をTextBoxに入力します。

Form1に WebBrowserとTextBoxを貼り付けています。

Public Class Form1
Dim k As Integer
Private Sub f() Handles MyBase.Shown
WebBrowser1.Navigate("http://oshiete.goo.ne.jp/qa/7978798.html")
TextBox1.Dock = DockStyle.Fill
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If k = 0 Then 'カウンターが0の時は処理する
'sender.urlとe.Urlが違う場合はプロシージャを抜ける
If sender.url.ToString <> e.Url.ToString Then
Exit Sub
End If
'要素が"div"でがq_descのときはTextBoxに表示
For Each htm As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
If htm.GetAttribute("classname") = "q_desc" Then
TextBox1.Text &= htm.InnerText & vbNewLine
End If
'classがokw_clearfixの時はループを抜ける
If htm.GetAttribute("classname") = "okw_clearfix" Then
Exit For
End If
Next
End If
k += 1
End Sub
End Class

すいませんどこがどのように違うのかおしえてください。
例
＃タグも取得する。
＃リンクアドレスのみ取得する。など