Si, es lo que dice Gorky primero tienes que descargar el archivo. Lo más lógico es utilizar sockets pero hay una forma más sencilla y es utilizando la API
URLDownloadToFile. Aquí tienes un ejemplo que descarga archivo.txt desde
http://www.misitio.com/archivo.txt.Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
DownloadFile "http://www.misitio.com/archivo.txt", "c:\archivo.txt"
End Sub
Ok, supongamos que el archivo ya se ha descargado. Según lo dicho, si disponemos de un archivo de texto en la ruta "C:\archivo.txt", con la instrucción:
Open "C:\datos.txt" For Input Lock Write As #1
podemos abrirlo para lectura impidiendo además su modificación durante el proceso (Lock Write). Le asignamos el número 1 como identificador.
Ahora, para leer su primera línea podemos escribir:
Dim Linea As String
Line Input #1, Linea
La instrucción Line Input leerá la línea actual de un archivo (especificado a través de su número identificador, que en este caso es uno) y la anota en la variable de tipo texto (String) que se le indique como segundo parámetro. Tras ejecutar esta instrucción en la variable Linea tendremos el texto correspondiente a la primera línea del archivo indicado.
Ojo. El puntero de lectura del archivo (la posición actual de lectura) se habrá situado automáticamente al principio de la siguiente línea del archivo, de manera que si ejecutamos otra vez:
Linea contendrá ahora el texto de esta segunda línea.
Creo que ya tienes todo lo que necesitas para hacerlo pero si tienes alguna duda concreta no dudes en preguntar.
Un saludo
Autor
En línea
no me sirve eso.
