elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Duda con txt
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda con txt  (Leído 1,223 veces)
Nessito

Desconectado Desconectado

Mensajes: 22


Ver Perfil
Duda con txt
« en: 22 Abril 2007, 23:35 pm »

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


En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Duda con txt
« Respuesta #1 en: 22 Abril 2007, 23:49 pm »

Código:
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.


« Última modificación: 22 Abril 2007, 23:52 pm por Jareth » En línea

Nessito

Desconectado Desconectado

Mensajes: 22


Ver Perfil
Re: Duda con txt
« Respuesta #2 en: 22 Abril 2007, 23:55 pm »

Código:
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.
En línea

Nessito

Desconectado Desconectado

Mensajes: 22


Ver Perfil
Re: Duda con txt
« Respuesta #3 en: 23 Abril 2007, 00:03 am »

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
En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Duda con txt
« Respuesta #4 en: 23 Abril 2007, 05:49 am »

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:
Código:
Text1.Text = texto
Input #1, texto
y era asi:
Código:
Input #1, texto
Text1.Text = texto


Sancho.Mazorka    :¬¬
En línea

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


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines