Tcl如何替换输入指定的txt文件内对应工具版本号

• 变量名错误：循环内读取的行存储在line变量中，代码中出现的line1未定义，导致读取失败
• 文件句柄错误：调用open打开文件时返回的句柄保存在fp变量中，后续gets用的是未定义的fh句柄，无法读取文件内容
• 语法错误：Tcl中if语句的判断条件必须包裹在花括号{}中，字符串相等判断应该用eq操作符而非==，条件后的执行代码如果多行也需要用花括号包裹
• lset用法错误：lset第一个参数必须是列表变量的名称，不能传入[lindex $line1]这种命令返回值，正确写法是lset 变量名 索引 新值
• 缺少写回逻辑：当前只以只读模式打开文件，修改后的行内容没有写回原文件，修改不会生效

可以用regsub实现需求，也可以直接用lset修改列表元素，两种方式都可以正常运行，下面是修正后的完整可运行代码：

方案1：用lset直接修改（更适合结构化的空格分隔文本） #

# 读取原文件所有内容
set fp [open tool_version r]
set content [split [read $fp] \n]
close $fp

# 接收用户输入的process名
puts "请输入要修改的process名："
set process [gets stdin]

# 遍历每一行找匹配的process
set line_idx 0
foreach line $content {
    # 跳过空行和注释行
    if {$line eq "" || [string match "#*" $line]} {
        incr line_idx
        continue
    }
    set fields [regexp -all -inline {\S+} $line]
    if {[lindex $fields 0] eq $process} {
        puts "当前Aa版本：[lindex $fields 1]"
        puts "当前Bb版本：[lindex $fields 2]"
        puts "请输入要修改的工具名（Aa/Bb）："
        set tool [gets stdin]
        puts "请输入新的版本号："
        set new_version [gets stdin]
        
        # 修改对应位置的版本号
        if {$tool eq "Aa"} {
            lset fields 1 $new_version
        } elseif {$tool eq "Bb"} {
            lset fields 2 $new_version
        } else {
            puts "工具名输入错误，未修改"
            incr line_idx
            continue
        }
        # 替换原内容中的对应行，用制表符对齐保持格式
        lset content $line_idx [join $fields "\t"]
        break
    }
    incr line_idx
}

# 写回原文件
set fp [open tool_version w]
puts $fp [join $content \n]
close $fp
puts "修改完成"

方案2：用regsub实现版本替换 #

如果不想用列表操作，也可以用正则替换实现匹配行的版本修改：

# 匹配到对应行后用regsub替换的核心逻辑
if {[lindex $fields 0] eq $process} {
    puts "当前Aa版本：[lindex $fields 1]"
    puts "当前Bb版本：[lindex $fields 2]"
    puts "请输入要修改的工具名（Aa/Bb）："
    set tool [gets stdin]
    puts "请输入新的版本号："
    set new_version [gets stdin]
    
    if {$tool eq "Aa"} {
        regsub {Aa/\S+} $line $new_version line
    } elseif {$tool eq "Bb"} {
        regsub {Bb/\S+} $line $new_version line
    }
    lset content $line_idx $line
    break
}

内容的提问来源于stack exchange，提问作者tongtong