提取文本数据并按指定格式输出
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