Parsing htmlagilitypack (table without id's) vb.net - html

Question

Hope to get some answers from you.
I use vb.net and htmlagilitypack to fetch data and it works, but not the way I want it to =)
I have this html page (part of):
<TABLE WITH=100% BORDER=4>
<TR>
<TH><A HREF="http:/cgi-bin/vplata.py?tgnr=4300&val=Visa+T%C3%A5gnummer&Bek=Visa&sort=Lok" >Lok</A></TH>
<TH><A HREF="http:/cgi-bin/vplata.py?tgnr=4300&val=Visa+T%C3%A5gnummer&Bek=Visa&sort=Avg" >Avgår</A></TH>
<TH><A HREF="http:/cgi-bin/vplata.py?tgnr=4300&val=Visa+T%C3%A5gnummer&Bek=Visa&sort=AvgS" >Station</A></TH>
<TH><A HREF="http:/cgi-bin/vplata.py?tgnr=4300&val=Visa+T%C3%A5gnummer&Bek=Visa&sort=Ank" >Ankommer</A></TH>
<TH><A HREF="http:/cgi-bin/vplata.py?tgnr=4300&val=Visa+T%C3%A5gnummer&Bek=Visa&sort=AnkS" >Station</A></TH>
<TH>Tjänstetyp</TH>
</TR>
<TR>
<TD>R1176</TD>
<TD>Mar-20-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-20-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>B1</TD>
</TR>
<TR>
<TD>R1267</TD>
<TD>Mar-20-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-20-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>B2</TD>
</TR>
<TR>
<TD>R1267</TD>
<TD>Mar-20-2013 22:05:00</TD>
<TD>ET3</TD>
<TD>Mar-20-2013 22:28:00</TD>
<TD>KBÄ</TD>
<TD>D1</TD>
</TR>
<TR>
<TD>R1281</TD>
<TD>Mar-21-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-21-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>D1</TD>
</TR>
<TR>
<TD>R1281</TD>
<TD>Mar-21-2013 22:05:00</TD>
<TD>ET3</TD>
<TD>Mar-21-2013 22:28:00</TD>
<TD>KBÄ</TD>
<TD>B2</TD>
</TR>
<TR>
<TD>RXXXXX</TD>
<TD>Mar-21-2013 22:05:00</TD>
<TD>ET3</TD>
<TD>Mar-21-2013 22:28:00</TD>
<TD>KBÄ</TD>
<TD>B1\B2</TD>
</TR>
<TR>
<TD>R1281</TD>
<TD>Mar-25-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-25-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>D1</TD>
</TR>
<TR>
<TD>R1281</TD>
<TD>Mar-25-2013 22:05:00</TD>
<TD>ET3</TD>
<TD>Mar-25-2013 22:28:00</TD>
<TD>KBÄ</TD>
<TD>D1</TD>
</TR>
<TR>
<TD>R1254</TD>
<TD>Mar-27-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-27-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>B2</TD>
</TR>
<TR>
<TD>RXXXXX</TD>
<TD>Mar-27-2013 13:04:00</TD>
<TD>HBGB</TD>
<TD>Mar-27-2013 21:21:00</TD>
<TD>ET3</TD>
<TD>B1\B2</TD>
</TR>
</TABLE>
<A><A>Senast uppdaterad: Mar-20-2013 18:16:00</A><BR>
<table width="100%" cellpadding="0" cellspacing="0" border="0">
<TR>
<TD width="20%" bgcolor="#009900" align="left">
<IMG src="http://litmgc101.greencargo.com/bottenbild.jpg" alt="Green Cargo" width=800 height=25 border=0>
</TD>
</TR>
<TR>
</table>
What I want to do is to fetch the parts with (for example) "R1176" and the date "Mar-20-2013 13:04:00". (Would prefer to NOT have the time "13:04:00"), but I can delete that in VB.net later if I can't skip it in the parsing phase.
So to simply explain what I want to do is following:
Get all the "R1234" and the date that comes with it then put it in let's say a textbox for the "R4321" and another textbox for the date or something.

Answer 1

In C# I'd do something like this:
var result =
doc.DocumentNode.SelectNodes("//td/a[contains(#href,'Lokindivid')]")
.Select(node => new KeyValuePair<string, DateTime>(node.InnerText, DateTime.Parse(node.SelectSingleNode("./ancestor::tr[1]/td[2]").InnerText).Date));
My VB.NET foo resulted in the following code (which is a literal translation) which works with the sample html you provided:
Dim doc As New HtmlDocument
doc.LoadHtml(Content.Html)
Dim items = doc.DocumentNode.SelectNodes("//td/a[contains(#href,'Lokindivid')]").Select(Function(node) New KeyValuePair(Of String, DateTime)(node.InnerText, DateTime.Parse(node.SelectSingleNode("./ancestor::tr[1]/td[2]").InnerText).Date))
For Each item As KeyValuePair(Of String, Date) In items
Console.WriteLine(item.Key)
Console.WriteLine(item.Value)
Next