Tengo este codigo para hacer un raspado web , necesito saber como seguir paara guardar el contenido de las tablas por ejemplo
Código:
<TABLE border=1>
<TR><TD>Direccion</TD><TR>
<TR><TD>Daniel</TD><TR>
<TR><TD>Carlos</TD><TR>
<TR><TD>Sofia</TD><TR>
</TABLE>
este es el codigo que le el archivo , como puedo hacer para guardar la lectura que me interesa ?
Código:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim linea As String = ""
Dim leer As Boolean = False
FileOpen(1, "D:/index.htm", OpenMode.Input) ' Abro fichero
While (EOF(1) = False) ' MIENTRAS no sea final de fichero...
linea = LineInput(1) ' Leo una línea
If (InStr(linea, "<TABLE")) Then ' Comienza lectura del contenido de la tabla
leer = True
ElseIf (InStr(linea, "</TABLE>")) Then ' Termina lectura del contenido de la tabla
leer = False
End If
If (leer = True) Then ' SI estoy dentro de la tabla...
' Leo todos los datos que me interesen y los guardo...
End If
End While
FileClose(1)
End Sub