 Autor
|
Tema: Mostrar texto en textbox desde archivo en servidor (Leído 7,431 veces)
|
rapbyone
 Desconectado
Mensajes: 173
|
Mi consulta es la siguiente, tengo un código que me muestra en un textbox el contenido de un archivo.txt que esta en mi pc, mi pregunta es. Como podría hacer lo mismo con un archivo de texto que esta en un servidor ? El codigo es este: Private Sub Form_load()
Dim linea As String
Dim c As String
' Muestra en textbox el contenido de archivo local version.txt
Open "c:/version.txt" For Input As #1
linea = ""
Me.Text4.Text = ""
While Not EOF(1)
c = Input(1, #1)
If c = "," Then
Me.Text4.Text = Me.Text4.Text + linea + vbNewLine
linea = ""
Else
linea = linea + c
End If
Wend
If linea <> "" Then Me.Text4.Text = Me.Text4.Text + linea
Close #1
' Muestra en textbox el contenido de archivo version.txt desde servidor
Open "http://miweb/updatepatch/version.txt" For Input As #1
linea = ""
Me.Text3.Text = ""
While Not EOF(1)
c = Input(1, #1)
If c = "," Then
Me.Text3.Text = Me.Text3.Text + linea + vbNewLine
linea = ""
Else
linea = linea + c
End If
Wend
If linea <> "" Then Me.Text3.Text = Me.Text3.Text + linea
Close #1
End Sub Así se ve en mi programa:  Muchas, pero muchas gracias por la paciencia  Enviado desde mi GT-I9300 usando Tapatalk
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Podrías hacer algo como esto Private Sub Form_Load() Dim Msxml2 As Object Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0") Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False Msxml2.send Text1.Text = Msxml2.responseText End Sub
Saludos
|
|
|
|
|
En línea
|
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
Podrías hacer algo como esto Private Sub Form_Load() Dim Msxml2 As Object Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0") Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False Msxml2.send Text1.Text = Msxml2.responseText End Sub
Saludos Me funciono perfecto, el problema es que al cambiar el contenido del archivo en el servidor, no cambia en el textbox, sigue mostrando el anterior :S Es como si descargara el archivo y después tomara los datos de ahí y no del servidor. Muchas gracias 
|
|
|
|
« Última modificación: 19 Octubre 2013, 16:38 pm por rapbyone »
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Debería funciona al llamar la función otra vez.
|
|
|
|
|
En línea
|
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
Tienes toda la razon  muchas gracias tema resuelto |
|
|
|
« Última modificación: 20 Octubre 2013, 00:26 am por rapbyone »
|
En línea
|
|
|
|
juandiegov
Desconectado
Mensajes: 9
|
Podrías hacer algo como esto Private Sub Form_Load() Dim Msxml2 As Object Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0") Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False Msxml2.send Text1.Text = Msxml2.responseText End Sub
Saludos No me sirve :'( asi lo tengo Private Sub Form_Load() Dim Msxml2 As Object Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0") Msxml2.open("GET", "http://localhost/versionf.txt", False) Msxml2.send() Text1.Text = Msxml2.responseText
Tambien tengo el textbox llamado text1   q tengo mal? uso vb 2008
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Que error te da? tal vez así: Dim webClient As New System.Net.WebClient Dim result As String = webClient.DownloadString("http://localhost/versionf.txt") Text1.Text=result
Saludos |
|
|
|
|
En línea
|
|
|
|
juandiegov
Desconectado
Mensajes: 9
|
Que error te da? tal vez así: Dim webClient As New System.Net.WebClient Dim result As String = webClient.DownloadString("http://localhost/versionf.txt") Text1.Text=result
Saludos gracias por responder tan rapido no no me da error pero no se muestra nada en el textbox 
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Coloca el textbox en multilinea.
Saludos
|
|
|
|
|
En línea
|
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
Yo tampoco pude, asi que envés de textbox use un control webbrowser, si te interesa, te doy el código amigo
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
AYUDA CON ARCHIVO DE TEXTO Y TEXTBOX
Programación Visual Basic
|
Xephiro
|
3
|
2,450
|
29 Abril 2006, 05:21 am
por Xephiro
|
|
|
|
¿Sacar el texto de un archivo y meterlo en un TextBox?
Programación Visual Basic
|
DProduct
|
2
|
1,853
|
10 Febrero 2008, 01:28 am
por cassiani
|
|
|
|
[BATCH]Mostrar Suma de las lineas de un archivo de texto.
« 1 2 »
Scripting
|
FranciskoAsdf
|
10
|
11,955
|
1 Julio 2011, 09:27 am
por WaAYa HaCK
|
|
|
|
Archivo de texto desde HTML
Desarrollo Web
|
Flamer
|
2
|
2,718
|
11 Octubre 2013, 21:08 pm
por Flamer
|
|
|
|
Pasar informacion de un textbox a un archivo de texto.
.NET (C#, VB.NET, ASP)
|
sadfud
|
1
|
2,960
|
20 Febrero 2015, 18:38 pm
por Eleкtro
|
 |
