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

 

 


Tema destacado:


+  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,829 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 6,384 Último mensaje 15 Marzo 2011, 15:27 pm
por TheInfinityJoker
[Ayuda] Leer unos caracteres y eliminarlos
.NET (C#, VB.NET, ASP)
Edu 2 2,147 Ú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,521 Último mensaje 15 Junio 2013, 19:24 pm
por MeCraniDOS
leer caracteres de un archivo
Programación C/C++
m@o_614 8 6,549 Último mensaje 10 Septiembre 2013, 04:25 am
por rir3760
Problema al leer caracteres [C]
Programación C/C++
S4ms3pi0l__ 1 2,124 Último mensaje 16 Noviembre 2017, 22:13 pm
por MAFUS
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines