Autor
|
Tema: url de txt y mandarlo a text (Leído 1,628 veces)
|
satan69
Desconectado
Mensajes: 341
|
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
|
|
|
En línea
|
|
|
|
~~
|
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...
|
|
|
En línea
|
|
|
|
satan69
Desconectado
Mensajes: 341
|
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
|
|
|
En línea
|
|
|
|
~~
|
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
|
|
|
En línea
|
|
|
|
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.
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
satan69
Desconectado
Mensajes: 341
|
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
|
|
|
En línea
|
|
|
|
<?BRoWLi?>
Desconectado
Mensajes: 109
Kien mira por ti?
|
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
|
|
« Última modificación: 4 Junio 2007, 01:16 am por BRoWLi »
|
En línea
|
Si TRaTaS D SeR JusTo SoLo Es JuSTo EL CoRaZóN, LoS DeMaS OrGaNoS TRaTaRaN De KiTaRLe La RaZoN - DobleV Piratas.com.es
|
|
|
satan69
Desconectado
Mensajes: 341
|
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...!!!!!!!!!!!!!
|
|
|
En línea
|
|
|
|
|
|