每天一个tcl脚本练习-第5天

提取文本数据并按指定格式输出

set in_f "./in.f
set out_f "./out.f"

set in_con [open $in_f r]
set out_con [open $out_f w]
set pattern "Beginpoint"

while {[gets $in_con line] != -1} {
    if { [regexp $pattern $line ] == 1 } {
         set list1 [lindex [split $line " "] 1]
         set list1 [lindex [split $line " "] 3]
         lappend list "from $list1 to $list2"
         }
 }

foreach i $list {
puts $out_con $i 
}

close $out_con