Buscar en archivo de texto y devolver

[Sergio]

Sé que con un archivo adjunto todo sería más fácil, pero en estos momentos no lo tengo conmigo....

Tengo un archivo de texto que contiene caracteres de ancho fijo y un rango de celdas en un libro de Excel que contiene valores

Mi deseo (que no consigo encontrar la forma de hacerlo) es crear una macro que busque en el archivo de texto todas las líneas que comienzan por la palabra "FORCE", compruebe si los caracteres de esa linea contenidos entre las posiciones 8 y 17 coinciden con el valor de alguna celda del rango en la hoja y, si coinciden, copie toda la línea del archivo de texto en un archivo nuevo .dat.

Si tenéis una respuesta rápida, lo agradeceré.

Saludos

[joseapm6260]

Hola Sergio:

En principio se me ocurre una posible solución: Pasa el archivo de texto a una hoja de excel y luego filtra la primera columna con la palabra "FORCE" y posteriormente filtra la posicion 8 y 17 con los datos de las celdas pertinentes. Todo esto lo podrias hacer manualmente pero grabando todos los pasos con la grabadora de macros y despues se puede perfeccionar esa misma macro para eliminar las lineas inutiles o inoperantes.

Sin ejemplo es lo primero que se me ocurre, espero que te haya ayudado u orientado.

Andrés

[Sergio]

pepafg, se trata de archivos te texto de hasta 20 gb con millones de líneas (no exagero). Lo que estaba buscando es un proceso que fuese relativamente rápido. Había pensado en introducir en una matriz los textos a comparar, es decir, las posiciones de la 8 a la 17 del archivo de texto, y los valores del rango de celdas de la hoja, pero no sé por qué, me aparecen errores.

[tese1969]

Buenas, Sergio

He creado este pequeño código y parece que funciona.

Obviamente, se deberían configurar rutas, valores, etc....pero bueno, como idea....

Sub prueba_leer()

ruta = ThisWorkbook.Path & "\"

Archivo = Dir(ruta & "*.txt")

Set obj_FSO = CreateObject("Scripting.FileSystemObject")


   'Creamos un archivo con el método CreateTextFile

Set nuevoarchivo = obj_FSO.CreateTextFile(ruta & "Resultado.dat", True)


Open [Archivo] For Input As #1

Do Until EOF(1)

Line Input #1, linea

If Left(linea, 5) = "FORCE" Then

    If Mid(linea, 8, 10) = Range("a1").Value Then

    nuevoarchivo.WriteLine linea

    End If

End If

Loop

nuevoarchivo.Close

Close #1

End Sub

[/CODE]

Un saludo,

Tese

[Sergio]

Algo así había pensado yo, pero no me serviría....

El rango en la hoja de cálculo está compuesto de 23 celdas más o menos. Si el archivo de texto, que tiene un millón de líneas, debe leerse 23 veces, imagina el tiempo que puede tardar en leer 23 millones de líneas....

Te agradezco la respuesta, pero necesitaría algo más rápido.

[tese1969]

Pues quizás se pueda combinar con un bucle que chequee cada uno de esos valores de las 23 celdas, que previamente se hubieran incluido en un Array.

Un saludo,

Tese

[joseapm6260]

Que tal si pruebas una condicional con todos los requisitos, con una sola lectura habría bastante.

Andrés

[tese1969]

Vamos a ver, Sergio, si con un par de modificaciones al primer código que he propuesto se consigue algo.

Sub prueba_leer()


For Each valor In Range("a1:a23")

cadena = valor & "," & cadena

Next valor


ruta = ThisWorkbook.Path & "\"

Archivo = Dir(ruta & "*.txt")

Set obj_FSO = CreateObject("Scripting.FileSystemObject")


   'Creamos un archivo con el método CreateTextFile

Set nuevoarchivo = obj_FSO.CreateTextFile(ruta & "Resultado.dat", True)


Open ruta & Archivo For Input As #1

Do Until EOF(1)

Line Input #1, linea

If Left(linea, 5) = "FORCE" Then

    If InStr(1, cadena, Mid(linea, 8, 10)) > 0 Then

    nuevoarchivo.WriteLine linea

    End If

End If

Loop

nuevoarchivo.Close

Close #1


End Sub[/CODE]

He creado una cadena con los valores y después utilizo InStr para que realice la comparacion de los caracteres 8 a 17 de la línea para ver si esta en dicha cadena.

Un saludo,

Tese

[Sergio]

pepafg, el problema sería que no siempre van a ser 23 datos los que buscar.

tese, tu solución acelera mucho la macro, pero creo que se podría acelerar más.

gracias a los dos por vuestras propuestas.

[bigpetroman]

pepafg, el problema sería que no siempre van a ser 23 datos los que buscar.

tese, tu solución acelera mucho la macro, pero creo que se podría acelerar más.

gracias a los dos por vuestras propuestas.

amigo Sergio, de verdad que sería de mucha ayuda por lo menos tener una muestra de los datos, la solución que propone el amigo tese1969 se ve muy buena, dificilmente creo que se pueda mejorar a menos que tengamos información sobre los datos a procesar para ver si se puede buscar otra solución, pero bueno, si no se puede subir una muestra ni modo, suerte

[tese1969]

Bueno, Sergio y compañía.....al menos no vamos a peor....:friendly_wink:

Quizás y esto es algo que desconozco, se podría usar una especie de ".Find" y su correspondiente ".Findnext" a lo largo del archivo de texto para ir saltando aquellas líneas que no tengan "FORCE" y ese sería el ahorro.

Mejor realizar la comprobación del "Instr" sobre pongamos 150.000 líneas con "FORCE" que pasar por 1.000.000 de líneas.

Por si sirve como idea para seguir acelerando la ejecución.

Un saludo,

Tese