vb 读取网页数据

Posted 2023-05-11

<TABLE>
<TBODY>
<TR>
<TD>Your Statistics</TD>
<TD>  </TD></TR>
<TR>
<TD># of Website Visits</TD>
<TD><B>0</B> </A></TD></TR></TBODY></TABLE>

如何读取数据0

1. 将网页数据存入字符串变量，假定s1
2. 在s1中定位“<TD># of Website Visits</TD>
<TD><B>”
3. 从定位处读取偏移Len（“<TD># of Website Visits</TD>
<TD><B>”）的长度为N的字符，假定s2
4. 将s2后的非数字字符去掉即可 参考技术A .....不好处理。。。 参考技术B 可以先把网页代码保存下来 然后处理，当成文本来搜索“0”，这种方法需要吗？需要的话就说下

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

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

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

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并确定您要对其执行的操作。