tcl对指定文件的列进行依次赋值变量

# 指定文件路径
set filename "C:\\Users\\xu.jiayin\\Desktop\\1.txt"

# 处理文件路径中的空格和其他特殊字符
set filename [string map {" " "\\ " "\t" "\\t"} $filename]

# 打开文件
set f [open $filename r]

# 逐行读取文件并处理
while {[gets $f line] != -1} {
    # 使用正则表达式匹配第一列和第二列
    if {[regexp {^(\S+)\s+(\S+)} $line match a b]} {
        # 打印结果
        puts "a=$a, b=$b"
        # 在这里可以对a和b进行进一步处理
    }
}

# 关闭文件
close $f