Como podría hacer lo mismo con un archivo de texto que esta en un servidor ?
El codigo es este:
Código:
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
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