Extraer Fila de un TXT y condicional.
Publicado por Carlos César (2 intervenciones) el 01/08/2019 01:21:42
Hola Buen Día,
Vengo con una duda interesante estoy cerca de conseguirlo pero necesito de su apoyo.
Tengo un archivo TXT que trae una linea de información extensa, quiero extraerla y luego acomodarla en Excel, les pongo un ejemplo:
HDAAAAAMEBBBBBBCRFFFFFFMETTTTTTCRQQQQQQLTMMMMM
es un ejemplo de el archivo, el original es más grande.
la idea es la siguiente los separadores que tengo son HD, ME, CR y LT.
HD es siempre el encabezado en el archivo solo sale 1 vez y mide 5 caracteres.
ME sale varias veces y es de 6 caracteres
CR sale varias veces y es de 6 caracteres
LT solo sale una vez y nos indica el final del archivo y es de 5 caracteres.
lo hice más o menos así:
Y pues ya me pone en la celda A1 HDAAAAA y en la celda A2 MEBBBBBB.
lo que busco hacer es un Ciclo donde me busque HD me lo pone en una celda, ME en otra, el CR en otra, luego volverá a encontrar otro ME y me lo ponga en la que sigue luego otro CR y así sucesivamente hasta el final del archivo que seria en LT.
cabe señalar que los ME y CR siempre son de 6 caracteres y el HD y LT siempre de 5 y estos últimos solo aparecen una vez en el archivo.
espero me haya explicado.
Saludos!
Vengo con una duda interesante estoy cerca de conseguirlo pero necesito de su apoyo.
Tengo un archivo TXT que trae una linea de información extensa, quiero extraerla y luego acomodarla en Excel, les pongo un ejemplo:
HDAAAAAMEBBBBBBCRFFFFFFMETTTTTTCRQQQQQQLTMMMMM
es un ejemplo de el archivo, el original es más grande.
la idea es la siguiente los separadores que tengo son HD, ME, CR y LT.
HD es siempre el encabezado en el archivo solo sale 1 vez y mide 5 caracteres.
ME sale varias veces y es de 6 caracteres
CR sale varias veces y es de 6 caracteres
LT solo sale una vez y nos indica el final del archivo y es de 5 caracteres.
lo hice más o menos así:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Proceso ()
Dim Texto as String
Dim Cadena as String
Dim HD as String
Dim ME as Sting
Archivo = "C:\Ejemplo\Dato.TXT
Open Archivo For Input As #1
Line Input #1, Texto
Cadena = Texto
HD = mid(Cadena,1,7)
ME = mid(Cadena,8,15)
Range("A1").Value = HDRange("A2").Value = ME
End SubY pues ya me pone en la celda A1 HDAAAAA y en la celda A2 MEBBBBBB.
lo que busco hacer es un Ciclo donde me busque HD me lo pone en una celda, ME en otra, el CR en otra, luego volverá a encontrar otro ME y me lo ponga en la que sigue luego otro CR y así sucesivamente hasta el final del archivo que seria en LT.
cabe señalar que los ME y CR siempre son de 6 caracteres y el HD y LT siempre de 5 y estos últimos solo aparecen una vez en el archivo.
espero me haya explicado.
Saludos!
Valora esta pregunta
0
