Leer un txt colgado en una web.

[Scratz]

Hola.

Leer un .txt del pc es fácil, pero necesito saber cómo leer un .txt de una web. Ej: www.loquesea.com/texto.txt.

Una vez lo supe hacer, pero ya hace mucho tiempo que no programo.

Saludos.

[APOKLIPTICO]

Tenes que conectarte a la página, en el puerto que sea (Normalmente 80), y despues mandarle una request http. Por ejemplo, un servidor local (127.0.0.1) en el puerto 100 simulando ser un Firefox, queriendo sacar un archivo llamado texto.txt en la raiz del site:

Código [Seleccionar] Expandir

GET /texto.txt HTTP/1.1
Host: 127.0.0.1:100
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 3000
Connection: keep-alive

Creo que funciona, sino buscá sobre request http y armate una que te convenga. Saludos!

[Scratz]

Gracias, pero me parece que es mucho más fácil q todo eso. Me suena que se hacía con  un WebBrowser...

[ActiveSheet]

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Url As String
Private Sub cmdExt_Click()
    Url = txtURL.Text
    If Len(Url) > 11 Then
        txtCode.Text = intCon.OpenURL(Url)
        MsgBox "ya esta el code we", vbOKOnly, ""
    Else
        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
    End If
End Sub


jejeje esto lo avia echo para sacar el codigo fuente html pero = te sirve
por que saca los txt

[Scratz]

Muchas gracias, ActiveSheet. Es justo lo que necesitaba