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:
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:
linea = split(archivo,vbcrlf)
Y lo añades linea a linea siendo linea(0) la primera, linea(1) la segunda...
Cita de: E0N en 3 Junio 2007, 13:22 PM
Te refieres a mostrar el contenido del archivo de texto en un textbox??
Pues asi:
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:
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 ;)
Cita de: E0N en 3 Junio 2007, 20:22 PM
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. ;)
Cita de: Hendrix. en 3 Junio 2007, 23:28 PM
Cita de: E0N en 3 Junio 2007, 20:22 PM
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
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
Cita de: BRoWLi en 4 Junio 2007, 01:07 AM
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...!!!!!!!!!!!!! ;D ;D ;D ;D