문제
나는 정직하게 이것을하는 법을 모른다. 그리고 나는 매우 붙이게된다. 내 코드는 공유 할 가치가 없을 수도 있지만 질문을하기 위해 최선을 다할 것입니다.
<div class="pricing-table">
<div class="span4">
<div class="plan">
<h3>PPTP <span>$0</span></h3>
<ul>
<li><b>IP:</b> " (hidden)"</li>
<li><b>Username:</b> " Guest"</li>
<li><b>Password:</b> " (hidden)"</li>
<li><b>Unlimited</b> " Bandwidth"</li>
<li><b>Torrents</b> " Allowed"</li>
<li><b>No</b> " Logging"</li>
</ul>
</div>
</div>
</div>
(이것은 두 번째 것이다)
<div class="span4">
<div class="plan most-popular">
<h3>Open<span>$0</span></h3>
<div class="plan-ribbon-wrapper">
<div class="plan-ribbon">
Popular
</div>
</div>
<ul>
<li><b>Username:</b> user</li>
<li><b>Password:</b> (hidden)</li>
<li><b>TCP</b> 80, 443</li>
<li><b>UDP</b> 53, 40000</li>
<li><b>Unlimited</b> Bandwidth</li>
<li><b>Torrents</b> Allowed</li>
<li><b>No</b> Logging</li>
</ul><a class="btn btn-large btn-primary" href=
"%20(hidden)">Download</a>
</div>
</div>
<ul>
<li><b>Username:</b> user</li>
<li><b>Password:</b> (hidden)</li>
<li><b>TCP</b> 80, 443</li>
<li><b>UDP</b> 53, 40000</li>
<li><b>Unlimited</b> Bandwidth</li>
<li><b>Torrents</b> Allowed</li>
<li><b>No</b> Logging</li>
</ul>
이 HTML 코드를 사용하여 사용자 이름과 암호를 복사하여 양식의 레이블에 넣고 싶습니다.
여기 내 코드가있다.
Imports HtmlAgilityPack
Public Class Form1
Dim Prev_Pass, Prev_User, Currt_Pass, Currt_User, Info
Dim counter As Integer
Dim web As New HtmlWeb()
Dim htmldoc As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument
Dim htmlnodes As HtmlAgilityPack.HtmlNodeCollection = Nothing
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
htmldoc = web.Load("website")
htmlnodes = htmldoc.DocumentNode.SelectNodes("//div[@class=""pricing-table""]")
For Each node As HtmlAgilityPack.HtmlNode In htmlnodes
Dim releaseNode = node.SelectSingleNode("//div[@class=""plan most-popular""]")
Info = releaseNode.SelectSingleNode("//ul/li/b[contains(text(), 'Username: ')]").InnerText
Next
Label3.Text = Info
End Sub
End Class
수락 된 답변
다음 주석을 고려하십시오.
<li>
<b>Username:</b> <!-- Use XPath to obtain this element. -->
" user" <!-- This is the next sibling. -->
</li>
이러한 특수 효과를 염두에두고
이미했던 것처럼 XPath를 사용하여 <b> 요소를 가져온 다음 NextSibling 속성을 사용하여 사용자 이름이나 암호 텍스트에 액세스 할 수 있습니다.
Dim username =
htmldoc.DocumentNode.SelectSingleNode(
"//ul/li/b[text()='Username:']").NextSibling.InnerHtml
Dim password =
htmldoc.DocumentNode.SelectSingleNode(
"//ul/li/b[text()='Password:']").NextSibling.InnerHtml
첫 번째 요소 대신 두 번째 요소의 요소에 액세스하려면보다 구체적인 XPath를 사용하거나 SelectNodes 를 사용하여 다음과 같이 인덱서 를 통해 두 번째 인덱스에있는 요소를 가져와야합니다.
Dim username =
htmldoc.DocumentNode.SelectNodes(
"//ul/li/b[text()='Username:']")(1).NextSibling.InnerHtml