TCL，替換文本文件中的字符串

Question

可以說我打開了一個文件，然后將其解析為幾行。 然后我使用一個循環：

foreach line $lines {}

例如，如果文件包含以下字符串：

XYDATA, NAME1

我想提出ACC_后XYDATA得到ACC_NAME1 ，如果文件中包含一個以上的字符串XYDATA ，把VEL_ ， DSP_和Prs_等

Answer 1

使用tcllib的textutil::split包，以及讓foreach同時迭代多個列表的功能

package require textutil::split

set line {XYDATA, foo, bar, baz, qux}
set prefixes {ACC_ VEL_ DSP_ Prs_}

set fields [textutil::split::splitx $line {, }]
set new [list]

if {[lindex $fields 0] eq "XYDATA"} {
    lappend new [lindex $fields 0]
    foreach prefix $prefixes field [lrange $fields 1 end] {
        lappend new $prefix$field
    }
}
puts [join $new ", "]

XYDATA, ACC_foo, VEL_bar, DSP_baz, Prs_qux

---

或者，使用單個regsub調用生成一些代碼

set code [regsub -all {(, )([^,]+)} $line {\1[lindex $prefixes [incr counter]]\2}]
set counter -1
puts [subst $code]