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