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.
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:
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!
Gracias, pero me parece que es mucho más fácil q todo eso. Me suena que se hacía con un WebBrowser...
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
Muchas gracias, ActiveSheet. Es justo lo que necesitaba ;D