Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ELGRANSOLRAC en 17 Febrero 2006, 00:34 am

Título: Problemas con este codigo ayuda
Publicado por: ELGRANSOLRAC en 17 Febrero 2006, 00:34 am

Hola veran tengo una aplicacion con un Text1 ,Text2 y un command1.Y lo que quiero es que cuando haga click en el command se visualice en el text1 la ultima linea del archivo y en el Text2 la pelultima linea la siguiente.
Tengo este codigo pero lee la primera linea de codigo si algien puede ayudarme gracias.

codigo:

Código:


Private Sub Command1_Click()

Dim nombreleido
fn = FreeFile
Open "D:\pepe.txt" For Input As #fn
Line Input #fn, nombreleido
Text1.text = nombreleido

Close #fn

Título: Re: Problemas con este codigo ayuda
Publicado por: Vitrox en 17 Febrero 2006, 00:51 am

y... no puedes acoplar un open de archivo en Binary, para poder especificar los bytes especificos del text para que se lean, osea, para marcas las filas y penultima, con la instruccion PUT en los archivos Binarios. Sintaxis:

Open "C:\loquesea.bat" for binaru as #1
salu2 :D

Título: Re: Problemas con este codigo ayuda
Publicado por: Ironhorse en 17 Febrero 2006, 23:48 pm

Recorre todo el archivo:

Código:

Private Sub Command1_Click()
Dim Aux As String
  Open "e:\pepe.txt" For Input As #1
  Do While Not EOF(1)
    Text2 = Aux
    Input #1, Aux
    Text1 = Aux
  Loop
End Sub

Saludos