Perdona por la tardanza, hasta hoy no te he podido contestar.
Te voy a poner el código que he utilizado yo:
Partiendo de este html de muestra:
<html>
<head>
<title></title>
</head>
<body>
<table id="datos2">
<thead>
<tr>
<th>Nombre</th>
<th>Apellidos</th>
<th>Edad</th>
</tr>
</thead>
<tbody>
<tr>
<td> a </td>
<td> b </td>
<td> c </td>
</tr>
<tr>
<td> 1 </td>
<td> 2 </td>
<td> 3 </td>
</tr>
</tbody>
</table>
<table id="datos">
<tr>
<td> a </td>
<td> b </td>
<td> c </td>
</tr>
<tr>
<td> 1 </td>
<td> 2 </td>
<td> 3 </td>
</tr>
</table>
</body>
</html>
He construido una serie de funciones a excepcion de
RellenarListView(que publique hace ya un tiempo...):
Sub ImportarTableHtmlAListView(url As String, nombre As String, lvwDestino As ListView)
If String.IsNullOrEmpty(url) Then Throw New Exception("La url es necesaria.")
If String.IsNullOrEmpty(nombre) Then Throw New Exception("El nombre de la tabla es necesario.")
Dim htmlText As String = LeerURL(url)
If String.IsNullOrEmpty(htmlText) Then Throw New Exception("El código html obtenido está vacio.")
Dim doc As HtmlDocument = ObtenerHTML(htmlText)
If doc Is Nothing Then Throw New Exception("El documento HTML no se ha podido generar.")
Dim tabla As HtmlElement = ObtenerTabla(doc, nombre)
If tabla Is Nothing Then Throw New Exception("No se ha encontrada la tabla indicada.")
Dim datos As DataTable = ObtenerDatos(tabla)
RellenarListview(lvwDestino, datos)
End Sub
Function LeerURL(url As String) As String
Dim client As System.Net.WebClient = New System.Net.WebClient()
Dim html As String = client.DownloadString(url)
Return html
End Function
Private Function ObtenerHTML(texto As String) As HtmlDocument
Using browser As New WebBrowser()
browser.DocumentText = texto
Do
Application.DoEvents()
Loop While browser.ReadyState <> WebBrowserReadyState.Complete
Return browser.Document
End Using
End Function
Private Function ObtenerTabla(doc As HtmlDocument, nombre As String) As HtmlElement
Return doc.GetElementById(nombre)
End Function
Private Function ObtenerDatos(tabla As HtmlElement) As DataTable
Dim dtbDatos As New DataTable()
Dim trHead As List(Of HtmlElement) = GetByTagName(tabla, "THEAD")
Dim trCol As List(Of HtmlElement) = GetByTagName(tabla, "TR")
Dim row As DataRow
If trHead.Count = 0 Then
For Each col As HtmlElement In trCol.FirstOrDefault().All
dtbDatos.Columns.Add()
Next
Else
Dim trHeader As HtmlElement = GetByTagName(tabla, "TR").FirstOrDefault()
For Each element As HtmlElement In trHeader.All
dtbDatos.Columns.Add(element.InnerText)
Next
End If
For Each fila As HtmlElement In trCol
If fila.Parent.TagName <> "THEAD" Then
row = dtbDatos.NewRow
Dim tdCol As List(Of HtmlElement) = GetByTagName(fila, "TD")
For contador As Integer = 0 To dtbDatos.Columns.Count - 1
row(contador) = tdCol(contador).InnerText
Next
dtbDatos.Rows.Add(row)
End If
Next
Return dtbDatos
End Function
Private Function GetByTagName(elemento As HtmlElement, tag As String) As List(Of HtmlElement)
Return elemento.All.Cast(Of HtmlElement)().ToList().Where(Function(a) a.TagName.ToUpper() = tag).ToList()
End Function
Function RellenarListview(ByVal lvw As ListView, ByVal dt As DataTable) As Boolean
Dim bolResultado As Boolean = True
Dim lstElemento As ListViewItem
Try
lvw.Items.Clear()
lvw.Columns.Clear()
For Each col As DataColumn In dt.Columns
lvw.Columns.Add(col.ColumnName, col.ColumnName)
Next
For Each row As DataRow In dt.Rows
lstElemento = New ListViewItem
lstElemento.Text = row(0).ToString()
For intcontador As Integer = 1 To dt.Columns.Count - 1
lstElemento.SubItems.Add(row(intcontador).ToString())
Next
lvw.Items.Add(lstElemento)
Next
lvw.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
Catch ex As Exception
bolResultado = False
End Try
Return bolResultado
End Function
Y para utilizarlo:
ImportarTableHtmlAListView(String.Format("{0}\test.html", Application.StartupPath), "datos", Me.ListView1)
Espero que te sirva.!!
PD: El código es mejorable porque habría que controlar si hay span entre otras cosas....
Javier Torrecilla
Para el correcto funcionamiento, y que otros usuarios se puedan beneficiar de la solucion de esta pregunta por favor marca las respuestas que te hayan ayudado como "Respuesta".
Si la respuesta te ha sido util Votala.
Mi Blog:
Jtorrecilla
Enlace a Faq de Winforms en Ingles Muy bueno
TabControl con Mejoras
