Test Foro de elhacker.net SMF 2.1

Hola, estoy empezando con vb y tengo unad duda que no doy solucionado. En un form tengo un textbos y un command button. Yo quiero que al darle al command button me aparezca en el textbox un texto k esta guardada en un archvio .txt. Entonces en el codigo del command button pongo:

Private Sub Command1_Click()
Open "C:\yo.txt" For Input As #1
Dim texto
Text1.Text = texto
Input #1, texto
Close #1
End Sub

Supongo que es una tontería lo que va mal pero es que le di muchas vueltas a la cabeza y nada.

Salu2


Open "C:\yo.txt" For Input As #1
Dim texto as string
texto = Input(LOF(1), #1)
Close #1
text1.text=texto

Espero que te sirva.
Saludos.

Cita de: Jareth en 22 Abril 2007, 23:49 PM

Código [Seleccionar] Expandir


Open "C:\yo.txt" For Input As #1
Dim texto as string
texto = Input(LOF(1), #1)
Close #1
text1.text=texto

Espero que te sirva.
Saludos.

Me funciono, muchas gracias.

El codigo que puso Jareth funciona bien solo que si escribes dos lineas te pone las dos juntas. Pero ya le encontré solución  ;)

Private Sub Command1_Click()
Open "C:\yo.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
Text1.Text = texto
End Sub

Así solo te lee la primera línea y si quiers que lea más olo tienes que añadir más variables

Nessito usa el "Insertar Codigo", y no te iba a funcionar nunca xq primero asignabas el texto al textbox y luego lo cargabas a la variable:
Text1.Text = texto
Input #1, texto
y era asi:
Input #1, texto
Text1.Text = texto