[VB.NET] استفسار :- html table to datagridview - نسخة قابلة للطباعة

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        WebBrowser1.Navigate("http://k7ar.net/ft8web/Default.aspx?FilterMode=ALL")

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        TextBox1.Clear()

        For Each ele As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")

            TextBox1.Text += vbNewLine + ele.InnerText



        Next



    End Sub

كود :

    <th scope="col">DX Call</th><th scope="col">Time</th><th scope="col">Freq</th><th scope="col">Spotter</th><th class="hidden-xs" scope="col">Prefix</th><th class="hidden-xs" scope="col">Comment</th><th class="hidden-xs" scope="col">State</th>

        </tr><tr style="color:Black;background-color:GhostWhite;height:8px;white-space:nowrap;">

كود :

<td style="width:100px;">R6LZ</td>

<td align="center" style="width:100px;"> <span>26-Mar 1001Z</span></td>

<td align="right" style="width:75px;">14074.0</td>

<td align="center" style="width:100px;">PD5MVH</td>

<td class="hidden-xs" style="width:50px;">UA</td>

<td class="hidden-xs" style="width:300px;">FT8 Ameland Isl qrp/p qrz 600h</td>

<td class="hidden-xs" align="center" style="width:40px;">&nbsp;</td>

كود :

Public Function Demo1() As DataTable

        Dim Document As New HtmlAgilityPack.HtmlDocument()



        Document.LoadHtml(My.Resources.MyHtml)

        Dim table As HtmlAgilityPack.HtmlNode =

            Document.DocumentNode.SelectSingleNode("//table[@cellspacing='2']")



        Dim dt As New DataTable()



        Dim rows = table.SelectNodes("tr")



        For row As Integer = 0 To rows.Count - 1

            'if row = then these are headers

            If row = 0 Then



                Dim cols = rows(row).SelectNodes("th")



                dt.Columns.Add(New DataColumn(cols(0).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(1).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(2).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(3).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(4).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(5).InnerText.ToString()))

                dt.Columns.Add(New DataColumn(cols(6).InnerText.ToString()))

            Else

                Dim cols = rows(row).SelectNodes("td")



                Dim dr As DataRow = dt.NewRow()



                dr(0) = cols(0).InnerText.ToString()

                dr(1) = cols(1).InnerText.ToString()

                dr(2) = cols(2).InnerText.ToString()

                dr(1) = cols(3).InnerText.ToString()

                dr(2) = cols(4).InnerText.ToString()

                dr(1) = cols(5).InnerText.ToString()

                dr(2) = cols(6).InnerText.ToString()

                dt.Rows.Add(dr)



            End If

        Next



        Return dt



    End Function