-1
を把握することはできません小さな問題といくつかの助けをご希望私は単に代わりの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
ありがとう、それはそれでした!はい私は知っているが、私はちょうど迅速な答えが必要....あなたは私がこれのための作業コードを取得するために何をしてきたのか分からない。 –