我正在尝试使用 (span class=text) 从列表中获取所有参与者名称值,以及使用 (class=contenu) 获取他们的短名称值,并将它们添加到列表视图项目的不同列中,该列将显示为与网页类似. 用户可以看到参与者的全名,也可以单击个人参与者品牌(简称)以获取更多详细信息。
Imports HtmlAgilityPack
Public Class Form1
Dim web As New HtmlWeb
Dim doc As HtmlDocument = web.Load("http://www.eurovent-certification.com/en/Certified_products/Access_by_programme.php?rub=04&srub=01&ssrub=&lg=en&select_prog=AHU")
Dim ParticipantNodesShort As HtmlNodeCollection = doc.DocumentNode.SelectNodes("/html/body/table/tr/td[2]/table[4]/tr[2]/td[2]//a[@class='contenu']")
Dim ParticipantNodesLong As HtmlNodeCollection = doc.DocumentNode.SelectNodes("/html/body/table/tr/td[2]/table[4]/tr[2]/td[2]//span[@class='texte']")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
' Adding ListView Columns
ListView2.Columns.Add("Participant's contact - Full Name", 250, HorizontalAlignment.Left)
ListView2.Columns.Add("Brand Name", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("Brand Name", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("Brand Name", 100, HorizontalAlignment.Left)
ListView2.Columns.Add("Brand Name", 100, HorizontalAlignment.Left)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim web As New HtmlWeb
Dim doc As HtmlDocument = web.Load("http://www.eurovent-certification.com/en/Certified_products/Access_by_programme.php?rub=04&srub=01&ssrub=&lg=en&select_prog=AHU")
Dim ParticipantNodes As HtmlNodeCollection = doc.DocumentNode.SelectNodes("/html/body/table/tr/td[2]/table[4]/tr[2]/td[2]//span[@class='texte'] | /html/body/table/tr/td[2]/table[4]/tr[2]/td[2]//a[@class='contenu']")
Dim participantname(20) As String
Dim brandname(50) As String
Dim participantcount As Integer = 0
Dim brandcount As Integer = 0
For Each item As HtmlNode In ParticipantNodes
If item.Name = "span" Then
Debug.Print(participantname(participantcount))
participantname(participantcount) = item.InnerText.Replace(vbLf, "").Replace(vbCr, "").Replace(vbTab, "")
participantcount = participantcount + 1
Else
If Not item.Attributes.Count = 3 Then
brandname(brandcount) &= String.Format(" [{0}]", item.InnerText.Replace(vbLf, "").Replace(vbCr, "").Replace(vbTab, ""))
brandcount = brandcount + 1
End If
End If
ListView2.Items.Add(participantname(participantcount) & " " & brandname(brandcount))
Next
End Sub
End Class
尽量简化问题;
这是整页中显示参与者姓名及其品牌的部分(其中一些有一个,另一些有两个、三个或四个)
如下所示;Mekar srl(参与者名称)有 4 个不同的品牌,用逗号分隔(Eden、Mekar VENCO、Venticlima)
MEKAR srl (伊甸园, MEKAR, VENCO, VENTILCLIMA)
但其中一些只有一个;
像下面的例子; Menegra Gmbh(参与者名称)只有一个品牌,即 Menegra MENERGA GmbH(Menerga)
所以我会尝试将这些数据与页面几乎相同的逻辑写入列表视图;
第一列将列出参与者姓名,并在第二列与同一行列出品牌名称(或者如果多于一列,则在同一行的第三列和第四列)
无论从列表视图中,我都需要了解保存从网页获取的数据以记录在数组类型字符串中并稍后在列表视图中显示它们。
使用上面的代码,我连续读取所有节点并丢失了它们之间的关系(例如具有多个品牌的参与者名称)
希望这个声明会更清楚,我也希望再次得到更多的支持
问候
阿里