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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


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

Desconectado Desconectado

Mensajes: 91


Ver Perfil
Problemas con este codigo ayuda
« 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




En línea

Vitrox

Desconectado Desconectado

Mensajes: 190



Ver Perfil
Re: Problemas con este codigo ayuda
« Respuesta #1 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


En línea

El Conocimiento es poder, el poder es Superioridad
Ironhorse

Desconectado Desconectado

Mensajes: 150



Ver Perfil
Re: Problemas con este codigo ayuda
« Respuesta #2 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
En línea

Pégense una vuelta por Cracton :)
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema:Windows detuvo este dispositivo porque informó de problemas.(Código 43)
Windows
indorama 8 23,118 Último mensaje 31 Agosto 2011, 12:24 pm
por indorama
Problemas complilando (sin que el código esté mal) [edito: Resuelto]
Java
w_kats 0 2,283 Último mensaje 24 Octubre 2011, 02:54 am
por w_kats
Problemas con código ASM
ASM
Cristhian_Rider 0 3,137 Último mensaje 16 Noviembre 2011, 21:38 pm
por Cristhian_Rider
[Resuelto] Problemas con un código de JS
Desarrollo Web
noaptebuna 6 2,645 Último mensaje 14 Septiembre 2015, 15:51 pm
por noaptebuna
Ayuda con este problemas con métodos!!
Java
Berman 2 1,735 Último mensaje 7 Mayo 2016, 21:56 pm
por + 1 Oculto(s)
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines