楼主:minzyyl 时间:2009-9-03 18:07

最近在用tcl写程序,想读取A文件的每行,然后对匹配的字符写入到B文件中特定的行,请问谁有相关程序?

下面是自己写的一段,但是发现总是写最后一个字符串,没有循环
test.txt文件中的内容大概是:
adf:adf-23
asdflk:23424-234
adf
234
asdf
234:23sdf-9

程序如下:
set infile [open "test.txt" r]
set outfile [open "result.txt" w+]
while {[gets $infile line] >= 0} {
if {[regexp {.*)-[0-9]} $line match aaa]} {
append result "name = $aaa\n"
puts $outfile $result
                                 }  
                                 }                                 
close $outfile
close $infile
unset result
1 楼:minzyyl 时间:2009-9-03 18:08:50
寒,上面图像的地方是:
2 楼:tianguau 时间:2009-9-07 23:32:01
呵呵,
3 楼:pythonlong 时间:2009-9-08 10:47:43

CODE:

if { [file exists $sig ] } {
    if { [file size $sig]} {
       set s [open $sig r]
       while {![eof $s]} {
        gets $s line
        if { [string compare $line ""]} {
          if {! [regexp {#.*} $line]} {
            analyze -format vhdl  $line
          }
        }
       }
       close $s
    }
  }