Validar Informacion desde Archivo - VB-MUNDO

MArio85 · #1 (**permalink**) 05-07-2008, 00:19:45

Hola, tengo una aplicacion la cual debe abrir un archivo txt y guardar la unformacion en un arreglo para despues validar infromacion en el arreglo.

Mi problema es que los archivos suelesn ser muy grandes y necesito solo algunas lineas del archivo como por ejemplo los que empiezen con XXXX, por lo que mi pregunta es: se puede validar informacion desde el archivo antes de almacenarlo en un arrelgo?
El codigo que estoy usando es

Dim f As Integer
f = FreeFile

Open "Ruta" For Input As f
Do While Not EOF(f)
ReDim Preserve Y(i)
Line Input #f, Y(i)
i = i + 1
Loop
Close f

lo que yo necesito seria un:
If "Caracteres dentro de la linea del archivo" = "XXXX" then line input #f,Y(i)

Pero no se como hacerlo.
Saludos!

acalanto · #2 (**permalink**) 05-07-2008, 05:46:50

A ver si te sirve esta variante de código

Código:

 
    Dim f        As Integer
    Dim fila     As String
    'Iniciamos puntero de array
    i = 0
    'Abrimos Fichero de datos
    f = FreeFile 
    Open "Ruta" For Input As f
    'Procesamos    
    Do While Not EOF(f)
        Line Input #f, fila
        'Buscamos coincidencia de carácteres
        if Instr(lcase(fila), lcase("xxxxx")) <> 0 then 
            i = i+1
            ReDim Preserve Y(i)
            y(i) = fila
        end if 
    Loop
    Close f