使用VB从网页读取具有单个属性的元素

Posted 2021-03-27

我已经花了将近两天的时间从网上获取解决方案以满足我的以下要求。

我需要从以下网页获取参与者名单;

http://www.eurovent-certification.com/en/Certified_products/Access_by_programme.php?rub=04&srub=01&ssrub=&lg=en&select_prog=AHU

我在下面的截图中试图用黄色标记; enter image description here

你能帮我在VB做那个吗？

现在有了我试图获取参与者列表的代码但是无法通过循环执行此操作

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim contentstr As String = New WebClient().DownloadString("http://www.eurovent-certification.com/en/Certified_products/Access_by_programme.php?rub=04&srub=01&ssrub=&lg=en&select_prog=AHU")

    Dim StartIndex As Integer = ContentStr.IndexOf("<span class=""texte"">")
    Dim StrLength As Integer = ContentStr.IndexOf(vbLf, StartIndex) - StartIndex

    textbox1.Text = contentstr.Substring(StartIndex, StrLength)

End Sub

谢谢

答案

Import htmlAgilityPack
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']")

现在使用断点检查ParticipantNodes并确定您要对其执行的操作。