limipaweb

Public Sub limpiarCodigo(contenidoweb As String)

  Dim a As Integer
  Dim lineas As String[]

  Dim id As String
  Dim nombre As String
  Dim puntos As String
  Dim pais As String

  contenidoweb = Replace$(contenidoweb, "<br>", "")
  contenidoweb = Replace$(contenidoweb, "<tr>", "")
  contenidoweb = Replace$(contenidoweb, "</tr>", "")
  contenidoweb = Replace$(contenidoweb, "<td>", "")
  contenidoweb = Replace$(contenidoweb, "</td>", "")
  contenidoweb = Replace$(contenidoweb, "<th>", "")
  contenidoweb = Replace$(contenidoweb, "</th>", "")
  contenidoweb = Replace$(contenidoweb, "<table>", "")
  contenidoweb = Replace$(contenidoweb, "</table>", "")
  lineas = Split(contenidoweb, "\n\t", "", True)

  For a = 0 To lineas.Max
    lineas[a] = Trim(lineas[a])

  Next
  lineas.Join("\n")
  lineas = Split(contenidoweb, "\n\t", "", True)

  If lineas[0] = "Connected successfully" Then
    GridView1.rows.count = 0 'limpiamos el gridviews
    For a = 1 To lineas.max Step 4
      id = lineas[a]
      nombre = lineas[a + 1]
      pais = lineas[a + 2]
      puntos = lineas[a + 3]
      rellenagridview(id, nombre, pais, puntos)

    Next

  Else
    Message.Error("No ha sido posible leer el marcador online")
  Endif

End