Блог

Мне просто нужно отобразить это в текстовом поле вместо MsgBox, но когда я это делаю, я получаю только одну строку текста (в данном случае только первое предложение)

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

^^^^ Это не работает.

 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
  

Разве вам не нужно;

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

Потому что вы каждый раз заменяете новую строку.

И я действительно думаю, что это плохой вопрос, вы не проводили никаких исследований и не «разбирали» проблему (перейдите к сути проблемы и оставьте другой код вокруг нее). Никто другой не выиграет от этого вопроса, и заголовок не соответствует проблеме