Solved

Htmlagilitypack -> Selecting columns from tables

Posted on 2014-02-19
1
1,867 Views
Last Modified: 2014-03-07
Hi all,

I am looking to select 3 colums from every table within the webpage that has a specific id...

im using the following code to do this

Imports System.IO
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports HtmlAgilityPack
Partial Class Grayhounds_home
    Inherits System.Web.UI.Page
    '  Gettodaysmatches(cominguptable, "https://www.betfair.com/sport/football?selectedTabType=TODAY", ".//div[contains(@class, 'match event-information ui-event')]", ".//span[@class='home-team-name']", ".//span[@class='away-team-name']", ".//span[@class='ui-no-score']")

    Private Sub Grayhounds_home_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim webGet As New HtmlWeb() 'open the system
        Dim doc As HtmlDocument = webGet.Load("http://www.greyhoundpredictions.co.uk/results.php") '' get the html from the webpage

        Dim tables As HtmlNodeCollection = doc.DocumentNode.SelectNodes(".//table[@id='inner']")
        Dim rows As HtmlNodeCollection = tables(0).selectNodes(".//tr")

        Dim makeSpace As String = vbLf & vbLf

        For i As Integer = 1 To rows.Count - 1
            Dim cols As HtmlNodeCollection = rows(i).SelectNodes(".//td")

            Dim Pred As String = cols(0).InnerText
            Dim Act As String = cols(1).InnerText
            Dim Odds As String = cols(4).InnerText


            Console.WriteLine("Pred : " & Pred & vbLf)
            Console.WriteLine("actual : " & Act & vbLf)
            Console.WriteLine("Odds : " & Odds & vbLf)

            Console.WriteLine(makeSpace)
        Next

    End Sub
End Class

Open in new window



The thing is im getting nothing returned?????

here is the snippit of the table html
<table id="inner" border="1" width="25"><h3>20:25 07/02/2014
 S3
</h3><th>Pred</th><th>Act</th><th>Name</th><th>Age</th><th>Odds</th><tr><td>1 (44.8)</td><td>2</td><td align ="center" width="8">Grandads Rifle</td><td>50</td><td>6/4F</td></tr>
<tr><td>2 (39.1)</td><td>3</td><td align ="center" width="8">Rosario Girl</td><td>33</td><td>3/1</td></tr>
<tr><td><b>3 (38.6)</b></td><td><b>1</b></td><td align ="center" width="8"><b>Zulu Hondo</b></td><td><b>33</b></td><td><b>6/1</b></td></tr>
<tr><td>4 (37.6)</td><td>6</td><td align ="center" width="8">Lethal Tiger</td><td>53</td><td>9/4</td></tr>
<tr><td>5 (33.4)</td><td>4</td><td align ="center" width="8">Redstone Bo Dhu</td><td>33</td><td>6/1</td></tr>
<tr><td>6 (27.8)</td><td>5</td><td align ="center" width="8">Corgrigg Candy</td><td>25</td><td>8/1</td></tr>
</table id="inner">

Open in new window


can anyone figure out why im getting no results?
0
Comment
Question by:runnerjp2005
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 96

Accepted Solution

by:
Bob Learned earned 500 total points
ID: 39873323
I ran this code against that URL, and I got 542 tables.

   Dim webGet As New HtmlWeb()

        ' Get the html from the webpage
        Dim doc As HtmlDocument = webGet.Load("http://www.greyhoundpredictions.co.uk/results.php")
        
        Dim tables As HtmlNodeCollection = doc.DocumentNode.SelectNodes(".//table[@id='inner']")
        Dim rows As HtmlNodeCollection = tables(0).SelectNodes("tr")

        For Each row As HtmlNode In rows
            Dim cols As HtmlNodeCollection = row.SelectNodes("td")

            Dim pred As String = cols(0).InnerText
            Dim act As String = cols(1).InnerText
            Dim odds As String = cols(4).InnerText

            Console.WriteLine("Pred : " & pred & vbLf)
            Console.WriteLine("actual : " & act & vbLf)
            Console.WriteLine("Odds : " & odds & vbLf)

            Console.WriteLine(vbLf & vbLf)
        Next

Open in new window

0

Featured Post

How Do You Stack Up Against Your Peers?

With today’s modern enterprise so dependent on digital infrastructures, the impact of major incidents has increased dramatically. Grab the report now to gain insight into how your organization ranks against your peers and learn best-in-class strategies to resolve incidents.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Problem Hi all,    While many today have fast Internet connection, there are many still who do not, or are connecting through devices with a slower connect, so light web pages and fast load times are still popular.    If your ASP.NET page …
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
Are you ready to implement Active Directory best practices without reading 300+ pages? You're in luck. In this webinar hosted by Skyport Systems, you gain insight into Microsoft's latest comprehensive guide, with tips on the best and easiest way…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question