A raíz el artículo en el que explicaba como leer un fichero de texto desde excel, un lector del blog, me preguntó como podía automatizar la tarea de leer solo una parte en concreto, de un fichero de texto. Como su pregunta no me quedaba clara, le dije que me mandara el fichero y que me dijera qué es lo que quería leer concretamente, y vería si era capaz de resolver su duda.
Cuando abrí el fichero, y leí lo que quería hacer, vi rápidamente la utilidad de escribir este artículo. Y en eso estamos. Para que entendáis la idea, imaginad un fichero de texto plano, generado por un software cualquiera, que tiene X líneas, pero de las cuales, nos interesa obtener solo unas cuantas, y además, de esas cuantas líneas, solo nos interesa una parte del texto comprendido en ellas. ¿Un poco lioso, verdad?. Bueno, vamos a verlo con el mismo ejemplo que me pasó el amigo Victor Fajardo, pues me ha autorizado a hacerlo público.
Imaginad que tenemos un fichero de texto como este (pantallazo de un fragmento del fichero), que contiene información topográfica:
Ahora la cuestión radica en poder obtener una serie de datos que hay en el fichero de texto. En concreto aquellos valores que indican el punto geodésico, la latitud sur, la longitud oeste, la altura elipsoidal, la coordenada norte, la coordenada este, la altura ortométrica, y el factor de escala de proyección.
Quizás te preguntes ¿y dónde está todo eso?. Pues esa misma pregunta me la hice yo, pero el amigo Fajardo, ya me la resolvía antes de planteársela. Me dijo que esos datos figuraban en el fichero de texto, y eran los que aparecían coloreados en la siguiente imagen:
Perfecto, ya iba entendiendo lo que quería hacer. Quería obtener una serie de datos que se repetían cada X líneas, para pasarlos a un fichero de excel, sin tener que hace un copiar y pegar, o sin tener que escribirlos a mano, mientras los leía en el fichero de texto. Vamos, que quería obtener una tabla de excel como esta:
Fantástico. Ya tenemos todos los datos necesarios para empezar a plantear el problema. Tenemos el fichero de texto, sabemos qué datos queremos obtener, y sabemos como queremos presentarlos. Lo único que nos queda es resolver el problema.
Cuando se nos presenta un problema de este tipo, lo primero que tenemos que hacer es pensar si el fichero de texto sigue un patrón de comportamiento común. Si lo tiene, nuestro problema se resuelve de una forma más sencilla.
Veamos si existe ese patrón de comportamiento. Lo primero que observamos, es que el fichero de texto tiene una cabecera donde nos aparece lo que puede ser el software que lo ha generado (haced doble clic en la primera imagen que aparece en este artículo, para poder ampliar la imagen del fichero de texto), y algunas líneas más de carácter general. Luego, un poco más abajo, vemos que hay una serie de bloques de texto, que contienen datos homogéneos. En concreto hay 8 líneas de texto, luego 1 línea en blanco, luego otras 8 líneas de texto, y así sucesivamente, hasta llegar al final del fichero.
Para poder obtener los datos relativos al punto geodésico, a la latitud sur, a la longitud oeste, a la altura elipsoidal, a la coordenada norte, a la coordenada este, a la altura ortométrica, y el factor de escala de proyección, podemos utilizar varias técnicas. Por ejemplo, para obtener la Longitud Oeste (el dato que hay detrás del texto "Lon: W"), a bote pronto, se me ocurre que lo más sencillo va a ser hacer lo siguiente, pues existe un patrón de comportamiento idéntico en los datos del fichero:
1.- Buscaremos en todas las líneas, aquellas que contengan el texto "Lon: W".
2.- Una vez hayamos encontrado ese texto, nos quedaremos con los siguientes 21 caracteres, pues a partir de ese carácter ya obtenemos otro dato diferente a la longitud oeste.
3.- Como además el amigo Victor Fajardo quería añadir los grados, minutos y segundos, deberemos descomponer esos 21 caracteres, en tres grupos. Caca uno de ellos estará separado por un espacio vacío, y contendrá un bloque de números. El primer grupo serán los que representaremos con grados, el segundo con los minutos, y el tercero con los segundos.
Pues bien, eso nos sirve para obtener el dato correspondiente a la longitud oeste, pero ¿y el resto de los datos?. Pues exactamente igual. Para el resto de datos que queramos importar, haremos exactamente lo mismo, pero seleccionando aquellos caracteres que nos definan las variables a importar. En lugar de "Lon: W", serán " hgt:", "n:", etc.
Para el caso concreto del primer dato que queremos obtener, es decir, el punto geodésico, como no hay ningún texto a partir del cual sepamos que lo que hay detrás es lo que nos sirve, yo he optado por hacer lo siguiente:
1.- Hemos buscado la palabra "(meters)", que está en la 2ª línea de esos bloques de los que hablábamos antes, y que estaban formados por 8 líneas de texto.
2.- Hemos retrocedido una línea, para pasar a la línea 1 (recordemos que "(meters)" está en la segunda línea).
3.- Nos hemos quedado con los 19 primeros caracteres de esa primera línea.
Como veis, solo es cuestión de buscar el patrón de comportamiento del fichero de texto, para a partir de él, obtener cada uno de los datos que necesitamos.
Y no hay más secreto... Bueno sí. Para ahorrarnos dolores de cabeza, lo primero que hemos hecho, ha sido importar todo el fichero de texto, en una zona de la hoja de cálculo que no nos moleste, y luego a partir de esos datos, es con los que hemos trabajado (el fichero de texto, una vez importado todo él, lo cerramos). Una vez tengamos todo listo, y bien bonito en nuestra hoja de cálculo, borraremos todos esos datos que nos han servido de borrador (todos los datos importados a lo bruto y que hemos escrito en una zona de la hoja de cálculo en la que no estorbe).
El código que nos permite importar todos esos datos, será este:
Sub leer_fichero_de_texto()
On Error Resume Next
'Ocultamos el procedimiento
Application.ScreenUpdating = False
'eliminamos todo lo que haya escrito desde A6 hasta abajo
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
'informamos del nombre del fichero de texto
fichero_de_texto = "datos.txt"
'Creamos el objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Abrimos el fichero. Si el fichero de texto no está
'en la misma ruta que el fichero de excel donde tenemos
'este macro, deberemos poner la ruta de esta forma:
'Set archivo = fso.OpenTextFile("E:\excel\" & fichero_de_texto, 1)
'Como supondremos que tenemos el fichero de texto
'en la misma ruta, pondremos esto otro:
ruta = ActiveWorkbook.Path
Set archivo = fso.OpenTextFile(ruta & "\" & fichero_de_texto, 1)
'Cargamos en una variable todas las líneas
contenido = archivo.readall
'Cerramos el fichero
archivo.Close
'Limpiamos los objetos
Set fso = Nothing
Set archivo = Nothing
'creamos un array con los datos,
'y los separamos por los intros que haya
'en el fichero de texto (cada "intro" es
'una línea nueva). Tecla intro = vbCrLf
contenido = Split(contenido, vbCrLf)
'empezamos a escribir en la celda I6
Range("I6").Select
'Para todos los elementos del vector...
For i = 0 To UBound(contenido)
'Vamos escribiendo línea a línea
ActiveCell = contenido(i)
'Pasamos a la siguiente línea
ActiveCell.Offset(1, 0).Select
Next 'seguimos con el bucle
'fichamos la celda hasta la que hemos llegado
'para extraer la fila deonde estamos
fila_final = ActiveCell.Row
'Nos situamos en la columna I, a partir de I6
Range("I6").Select
'Ahora vamos a coger los datos que nos interesan,
'para todo el rango de filas que van desde la
'fila 1, hasta la fila_final
For i = 1 To fila_final
'fichamos la celda donde estamos, para volver a ella
celda = ActiveCell.Address
'******************************************
' PUNTO GEODÉSICO
'******************************************
'si la fila contiene la palabra " (meters) ", fichamos la fila de arriba
'que es la que contiene el punto geodésico
If InStr(LCase(ActiveCell), " (meters) ") > 1 Then
'cogemos los 19 primeros caracteres, pues a partir
'del 20, ya aparece la fecha y la hora
punto_geodesico = Left(ActiveCell.Offset(-1, 0), 19)
'Escribimos los datos a partir de A6
Range("A6").Select
'Escribimos el título
ActiveCell = "PUNTO GEODÉSICO"
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = punto_geodesico
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' LATITUD SUR
'******************************************
'si la fila contiene la palabra " Lat: S ", fichamos la fila
'que contiene la latitud sur
If InStr(LCase(ActiveCell), " lat: s ") > 1 Then
'cogemos desde el caracter 35, hasta el 56,
'es decir, 21 caracteres más, a partir del 35,
'con "trim" quitaremos los espacios vacíos de delante y detrás
lati_sur = Trim(Mid(ActiveCell, 35, 21))
'descomponemos el valor en los tres elementos,
'con el delimitador de espacio " "
latitud_sur = Split(lati_sur, " ")
'añadimos los grados, minutos y segundos, a cada elemento (el 0, el 1, y el 2)
'pues los elemenos del vector, empiezan por 0
latitud_sur = latitud_sur(0) & "º" & latitud_sur(1) & "'" & latitud_sur(2) & """"
'Escribimos los datos a partir de B6
Range("B6").Select
'Escribimos el título
ActiveCell = "LATITUD SUR"
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = latitud_sur
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' LONGITUD OESTE
'******************************************
'si la fila contiene la palabra " Lon: W ", fichamos la fila
'que contiene la longitud oeste
If InStr(LCase(ActiveCell), " lon: w ") > 1 Then
'cogemos desde el caracter 35, hasta el 56,
'es decir, 21 caracteres más, a partir del 35,
'con "trim" quitaremos los espacios vacíos de delante y detrás
long_oeste = Trim(Mid(ActiveCell, 35, 21))
'descomponemos el valor en los tres elementos,
'con el delimitador de espacio " "
longitud_oeste = Split(long_oeste, " ")
'añadimos los grados, minutos y segundos, a cada elemento (el 0, el 1, y el 2)
'pues los elemenos del vector, empiezan por 0
longitud_oeste = longitud_oeste(0) & "º" & longitud_oeste(1) & "'" & longitud_oeste(2) & """"
'Escribimos los datos a partir de C6
Range("C6").Select
'Escribimos el título
ActiveCell = "LONGITUD OESTE"
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = longitud_oeste
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' ALTURA ELIPSOIDAL
'******************************************
'si la fila contiene la palabra " Hgt: ", fichamos la fila
'que contiene la altura elipsoidal
If InStr(LCase(ActiveCell), " hgt: ") > 1 Then
'cogemos desde el caracter 35, hasta el 56,
'es decir, 21 caracteres más, a partir del 35,
'con "trim" quitaremos los espacios vacíos de delante y detrás
altura_elipsoidal = Trim(Mid(ActiveCell, 35, 21))
'Escribimos los datos a partir de D6
Range("D6").Select
'Escribimos el título
ActiveCell = "ALTURA ELIPS."
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = altura_elipsoidal
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' COORDENADA NORTE
'******************************************
'si la fila contiene la palabra " N: ", fichamos la fila
'que contiene la coordenada norte
If InStr(LCase(ActiveCell), " n: ") > 1 Then
'cogemos desde el caracter 58, hasta el 71,
'es decir, 13 caracteres más, a partir del 58,
'con "trim" quitaremos los espacios vacíos de delante y detrás
coordenada_norte = Trim(Mid(ActiveCell, 58, 13))
'Escribimos los datos a partir de E6
Range("E6").Select
'Escribimos el título
ActiveCell = "COORD. NORTE"
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = coordenada_norte
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' COORDENADA ESTE
'******************************************
'si la fila contiene la palabra " E: ", fichamos la fila
'que contiene la coordenada este
If InStr(LCase(ActiveCell), " e: ") > 1 Then
'cogemos desde el caracter 58, hasta el 71,
'es decir, 13 caracteres más, a partir del 58,
'con "trim" quitaremos los espacios vacíos de delante y detrás
coordenada_este = Trim(Mid(ActiveCell, 58, 13))
'Escribimos los datos a partir de F6
Range("F6").Select
'Escribimos el título
ActiveCell = "COORD. ESTE"
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = coordenada_este
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' ALTURA ORTOMÉTRICA
'******************************************
'si la fila contiene la palabra " Orth: ", fichamos la fila
'que contiene la altura ortométrica
If InStr(LCase(ActiveCell), " orth: ") > 1 Then
'cogemos desde el caracter 61, hasta el 71,
'es decir, 10 caracteres más, a partir del 61,
'con "trim" quitaremos los espacios vacíos de delante y detrás
altura_ortometrica = Trim(Mid(ActiveCell, 61, 10))
'Escribimos los datos a partir de G6
Range("G6").Select
'Escribimos el título
ActiveCell = "ALTURA ORTO."
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = altura_ortometrica
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
' FACTOR DE ESCALA DE PROYECCIÓN
'******************************************
'si la fila contiene la palabra " Grid Scale: ", fichamos la fila
'que contiene el factor de escala de proyección
If InStr(LCase(ActiveCell), " grid scale: ") > 1 Then
'cogemos desde el caracter 67, hasta el 79,
'es decir, 12 caracteres más, a partir del 79,
'con "trim" quitaremos los espacios
'vacíos de delante y detrás
factor_escala = Trim(Mid(ActiveCell, 67, 12))
'Escribimos los datos a partir de H6
Range("H6").Select
'Escribimos el título
ActiveCell = "FACTOR ESCALA PROY."
'lo ponemos en negrita, subrayado, y en rojo
With Selection
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
.Font.ColorIndex = 3
End With
'buscamos la primera celda vacía
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'y escribimos el dato x
ActiveCell = factor_escala
End If
'volvemos donde estábamos
Range(celda).Select
'******************************************
'ahora bajamos una fila
ActiveCell.Offset(1, 0).Select
Next 'continuamos con el bucle
'finalmente eliminamos los datos que
'habíamos escrito en la columna I
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
'nos situamos en A6
Range("A6").Select
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub
|
Quizás ese código puede que os parezca un poco largo, pero en realidad, como estamos usando la misma técnica para importar la latitud sur, la longitud oeste, la altura elipsoidal, etc., pues nos bastará con copiar y pegar determinadas partes del código, para retocarla posteriormente.
Una vez ejecutemos ese macro (con el fichero de texto llamado "datos.txt", y en la misma carpeta que el fichero de excel), obtendremos esto:
Con este macro, lo que conseguimos es que cada vez que tengamos que trabajar con el fichero de tiempo, no perdamos horas (da igual lo largo que sea el fichero de texto), haciendo un copiar y pegar, o bien transcribiendo a mano los datos del fichero de texto, directamente en excel. Ahora con tan solo pulsar un botón en la hoja de cálculo, obtendremos los datos deseados del fichero de texto.
Si deseáis ver esto con vuestros propios ojos, desde aquí podéis
descargar un fichero comprimido que contiene tanto la hoja de cálculo, como el fichero de texto que he utilizado en este artículo.
