#!/usr/bin/expect
# Abrir el archivo original para lectura
set input_file [open "ruta/al/archivo.csv" r]
# Abrir el nuevo archivo para escritura
set output_file [open "ruta/al/nuevo_archivo.csv" w]
# Leer cada línea del archivo
while {[gets $input_file line] != -1} {
# Dividir la línea en campos usando la coma como delimitador
set fields [split $line ","]
# Asignar cada campo a una variable
set field1 [lindex $fields 0]
set field2 [lindex $fields 1]
set field3 [lindex $fields 2]
set field4 [lindex $fields 3]
set field5 [lindex $fields 4]
set field6 [lindex $fields 5]
# Comprobar si el tercer campo contiene el patrón "logrado"
if {[string match "*logrado*" $field3]} {
# Escribir la línea en el nuevo archivo
puts $output_file $line
}
}
# Cerrar los archivos
close $input_file
close $output_file