# Используйте код из примера (1.) для чтения всех строк из файла. # Мы продолжаем сразу после: set lines [split $data "\n"] # Удаляем первую строку. set line_to_delete 0 # Если хотите удалить последнюю строку то используйте: # set line_to_delete [expr {[llength $lines] - 1}] # Теперь удаляем строку из списка в памяти. proc K {x y} { set x } set lines [lreplace [K $lines [set lines {}]] $line_to_delete $line_to_delete] # И наконец, перезаписываем файл с новыми данными. set fp [open $fname "w"] puts $fp [join $lines "\n"] close $fp