Imprimir Página - leer 5 caracteres de una line de un archivo

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

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

Private Sub Form_Load()
 
Open "H:\hola.txt" For Binary As #1
    Dim Todo As String
    Todo = Space(LOF(1))
    Get #1, , Todo
Close #1
 
Dim Linea As Variant
Linea = Split(Todo, vbNewLine)
 
For n = 0 To UBound(Linea)
    If Left(Linea(n), 5) = "1a1a1" Then
        Text1.Text = Linea(n)
        Exit Sub
    End If
Next n
 
End Sub

Si no kieres q se vea el 1a1a1pon esto:

Código

Private Sub Form_Load()
 
Open "H:\hola.txt" For Binary As #1
    Dim Todo As String
    Todo = Space(LOF(1))
    Get #1, , Todo
Close #1
 
Dim Linea As Variant
Linea = Split(Todo, vbNewLine)
 
For n = 0 To UBound(Linea)
    If Left(Linea(n), 5) = "1a1a1" Then
        Text1.Text = Mid(Linea(n), 6)
        Exit Sub
    End If
Next n
 
End Sub

espero q te sea util ;)
1S4ludo

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: ELGRANSOLRAC en 11 Agosto 2007, 13:17 pm