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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  leer 5 caracteres de una line de un archivo		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: leer 5 caracteres de una line de un archivo  (Leído 1,724 veces)
ELGRANSOLRAC

Desconectado Desconectado

Mensajes: 91


Ver Perfil
leer 5 caracteres de una line de un archivo
« en: 11 Agosto 2007, 13:17 pm »
Hola a todos:
Tengo un pequeño problemita,abro un archivo de texto y lo que quiero esque lea las lines del archivo y la que empiece por estos 5 caracteres "1a1a1" se visualice toda la linea esa que enpieza por 1a1a1 en un text1.text.
Muchas gracias si alguien save como es el codigo se lo agradeceria
Un saludo
En línea
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: leer 5 caracteres de una line de un archivo
« Respuesta #1 en: 11 Agosto 2007, 13:50 pm »
Imagina q este es el archivo. En mi caso esta en H:\hola.txt:

Código:
asfds2fds64fds
1a1a1Esta la linea =P
dsfsdfds
sd
fsd
f
fsd

fsd
gf
fg

fhjg
j
jk22
l2kj

Ese seria nuestro archivo de texto. Ahora usa este code:

Código
  1. Private Sub Form_Load()
  2.  
  3. Open "H:\hola.txt" For Binary As #1
  4.     Dim Todo As String
  5.     Todo = Space(LOF(1))
  6.     Get #1, , Todo
  7. Close #1
  8.  
  9. Dim Linea As Variant
  10. Linea = Split(Todo, vbNewLine)
  11.  
  12. For n = 0 To UBound(Linea)
  13.     If Left(Linea(n), 5) = "1a1a1" Then
  14.         Text1.Text = Linea(n)
  15.         Exit Sub
  16.     End If
  17. Next n
  18.  
  19. End Sub

Si no kieres q se vea el 1a1a1pon esto:

Código
  1. Private Sub Form_Load()
  2.  
  3. Open "H:\hola.txt" For Binary As #1
  4.     Dim Todo As String
  5.     Todo = Space(LOF(1))
  6.     Get #1, , Todo
  7. Close #1
  8.  
  9. Dim Linea As Variant
  10. Linea = Split(Todo, vbNewLine)
  11.  
  12. For n = 0 To UBound(Linea)
  13.     If Left(Linea(n), 5) = "1a1a1" Then
  14.         Text1.Text = Mid(Linea(n), 6)
  15.         Exit Sub
  16.     End If
  17. Next n
  18.  
  19. End Sub

espero q te sea util ;)
1S4ludo
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Caracteres incorrectos en el nombre de un archivo
Windows 		Kubynx 5 5,997 Último mensaje 15 Marzo 2011, 15:27 pm
por TheInfinityJoker
[Ayuda] Leer unos caracteres y eliminarlos
.NET (C#, VB.NET, ASP) 		Edu 2 1,987 Último mensaje 10 Abril 2011, 18:11 pm
por Edu
[?] Primeros 2 caracteres de un archivo « 1 2 »
Programación C/C++ 		MeCraniDOS 10 5,056 Último mensaje 15 Junio 2013, 19:24 pm
por MeCraniDOS
leer caracteres de un archivo
Programación C/C++ 		m@o_614 8 6,258 Último mensaje 10 Septiembre 2013, 04:25 am
por rir3760
Problema al leer caracteres [C]
Programación C/C++ 		S4ms3pi0l__ 1 1,945 Último mensaje 16 Noviembre 2017, 22:13 pm
por MAFUS
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines