url de txt y mandarlo a text

[satan69]

hola vuelvo hacerle otras preguntitas...

com puedo  hacer para conectar con el winsock a un servidor y mandar , por ejemplo  www.ejemplo.com/datos.txt  mandarlo a un text1.text o a una listbox


ejemplo que el  datos..txt sea

hola
hola2
hola3
hola4
'asi sucecivamente..


y gracias de antemano...!!!!1

[~~]

Te refieres a mostrar el contenido del archivo de texto en un textbox??
Pues asi:

Código [Seleccionar] Expandir

open ruta for binary as #1
dim archivo as string
archivo = space(lof(1))
get #1,,archivo
close #1

text1.text = archivo


Si lo kieres ir añadiendo a un list box linea a linea solo tienes q separar las lineas mediante un split:

Código [Seleccionar] Expandir

linea = split(archivo,vbcrlf)

Y lo añades linea a linea siendo linea(0) la primera, linea(1) la segunda...

[satan69]

Te refieres a mostrar el contenido del archivo de texto en un textbox??
Pues asi:

Código [Seleccionar] Expandir

open ruta for binary as #1
dim archivo as string
archivo = space(lof(1))
get #1,,archivo
close #1

text1.text = archivo


Si lo kieres ir añadiendo a un list box linea a linea solo tienes q separar las lineas mediante un split:

Código [Seleccionar] Expandir

linea = split(archivo,vbcrlf)

Y lo añades linea a linea siendo linea(0) la primera, linea(1) la segunda...

gracias.. pero eso ya sabia.. lo qye te taba preguntando es si tengo un archivo .txt en server y quiero mostrarlo en un text o un list box.. sin descargar el archivo

[~~]

Pues sin descargarlo o sin pasarle el contenido del texto al cliente de alguna manera no puedes...
Tienes o que descargar el archivo o simplemente q el servidor te mande el contenido

[Hendrix]

o simplemente q el servidor te mande el contenido

Exacto, haces una peticion HTTP, el servidor te mandara el archivo y lo puedes agregar a un textbox sin tener que guardarlo en el disco duro...

Un Saludo. 

[satan69]

o simplemente q el servidor te mande el contenido

Exacto, haces una peticion HTTP, el servidor te mandara el archivo y lo puedes agregar a un textbox sin tener que guardarlo en el disco duro...

Un Saludo. 

asi es.. hago la peticion del archivo.. pero como lo muestro en e text.. si no lo quiero descargar

[<?BRoWLi?>]

Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes .. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD

[satan69]

Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes .. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD

si funciona ... gracias...!!!!!!!!!!!!!