2016-10-12 10 views
-1

iは(VB.net)のWeb廃棄問題

を把握することはできません小さな問題といくつかの助けをご希望私は単に代わりのMsgBoxのリッチテキストボックスでこれを表示する必要があるが、私は、私だけを行うとき

For each node in nodes 
    richtextbox3.text = node.innertext 
next 

が^^^^これは動作しません(この場合のみ、最初の文に)テキストの1行を取得し、すべてのヘルプははるかに高く評価します。

Private Sub Scrape() 
    Dim req As WebRequest = WebRequest.Create("http://www.metrolyrics.com/closer-lyrics-the-chainsmokers.html") 
    Dim doc As New HtmlDocument() 
    Using res As WebResponse = req.GetResponse() 
     doc.Load(res.GetResponseStream()) 
    End Using 

    Dim nodes = doc.DocumentNode.SelectNodes("//p[@class='verse']") 
    If nodes IsNot Nothing Then 
     For Each node In nodes 
      MsgBox(node.InnerText) 
     Next 
    End If 
End Sub 

答えて

2

あなたはそうする必要はありません。

For each node in nodes 
    richtextbox3.text += node.innertext 
next 

毎回新しい行を置き換えるためです。

私は本当にこれが悪い質問だと思っています。あなたは問題を解決したり解体したりしていませんでした(問題の核心に行き、他のコードを残してください)。誰もこの質問から恩恵を受けることはありません。タイトルは問題と一致しません

+0

ありがとう、それはそれでした!はい私は知っているが、私はちょうど迅速な答えが必要....あなたは私がこれのための作業コードを取得するために何をしてきたのか分からない。 –