Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 73Lecturas hoy:
    • 75Lecturas ayer:
    • 132595Total de visitas:
    • 63Hoy:
    • 66Ayer:
    • 600La semana anterior:
    • 1562Visitantes por mes:
    • 77Visitantes por día:
    • 1Visitantes conectados:

Leer un fichero de texto ubicado en una direccion web

Posted by skskynet on 30th mayo 2010


Importamos las librerias

Imports System.IO
Imports System.Net
Function desde_la_web()

Dim linea As String = “”

Try

Dim ClienteWeb As New WebClient

Dim Bufer As Byte() = ClienteWeb.DownloadData(“http://www.*.es/fichero.txt”)

Dim Flujo As New MemoryStream(Bufer)

Dim sr As New System.IO.StreamReader(Flujo)

Recorremos todas las lineas hasta el final

Do While Not sr.EndOfStream

linea = linea + sr.ReadLine ‘+ vbCrLf

Loop

sr.Close()

Catch ex As Exception
MsgBox(“No es posible leer el fichero “)
End Try

Return linea

End Function

Tags:
Posted in Visual Studio | No Comments »