Duda con txt

Iniciado por Nessito, 22 Abril 2007, 23:35 PM

0 Miembros y 1 Visitante están viendo este tema.

Nessito

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

Jareth

#1

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.

Nessito

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

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.

Nessito

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

Sancho.Mazorka

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



Sancho.Mazorka    :¬¬
Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html