set srcfile myres.resset dstfile dtest.txtif {[catch {open $srcfile r} res]} { puts ＂Failed to open the source file: $srcfile; $res＂ return 0}set hSrc $resif {[catch {open $dstfile w+} res]} { puts ＂Failed to open the destination file: $dstfile; $res＂ return 0}set hDst $resforeach line [split [read $hSrc] \n] { if {[regexp {rdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} { puts $hDst ＂Rise Delay is $sub1＂ } if {[regexp {fdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} { puts $hDst ＂Fall Delay is $sub1＂ }}close $hSrcclose $hDst...