如何使用Tcl查找文件指定模式行的数值并替换后写入新文件

实现思路 #

因为是大文件，采用逐行读写的方式处理，不会一次性加载整个文件到内存，内存占用极低，处理逻辑如下：

• 逐行读取原文件内容
• 匹配包含abc_x的目标行
• 对目标行的0.34数值做10%上浮计算后替换
• 所有行（修改后+未修改）统一写入新文件

完整可运行代码（带新手注释） #

# 替换为你自己的原文件路径和输出文件路径
set input_path "你的原文件路径.txt"
set output_path "修改后的新文件路径.txt"

# 打开文件句柄：r是只读模式打开原文件，w是覆盖写模式打开新文件
set f_input [open $input_path r]
set f_output [open $output_path w]

# 逐行读取原文件，读到文件末尾时gets返回值小于0，循环结束
while {[gets $f_input line] >= 0} {
    # 判断当前行是否包含abc_x字符串
    if {[string match "*abc_x*" $line]} {
        # 计算0.34上浮10%后的值，需要调整小数位数可以用format格式化
        # 示例：保留2位小数写法 set modified_val [format "%.2f" [expr {0.34 * 1.1}]]
        set modified_val [expr {0.34 * 1.1}]
        # 替换行内的0.34为计算后的值，加-all参数可以替换同一行内所有匹配的0.34
        regsub "0.34" $line $modified_val line
    }
    # 写入当前行到新文件
    puts $f_output $line
}

# 关闭文件句柄，必须执行，否则缓存内容可能不会写入磁盘
close $f_input
close $f_output

puts "处理完成，结果已保存到 $output_path"

新手注意事项 #

• 如果需要替换目标行中所有出现的0.34，可以把regsub修改为regsub -all "0.34" $line $modified_val line
• 如果要修改的数值不是固定的0.34，是该行内任意的浮点数值，可以修改匹配规则，比如用正则匹配\d+\.\d+提取数值后再计算替换
• 代码可以直接复制运行，只需要修改前两行的文件路径即可

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