如何用Expect/Tcl将无分隔符数字拆分为指定长度的三个变量？

没问题，我来帮你搞定这个数字拆分需求！根据你的要求，我们可以用两种直观的方法来实现：直接字符串截取或者正则表达式匹配，下面分别给你详细说明：

方法一：直接字符串截取（简单直观） #

这种方法利用Tcl的string range命令，直接按位置截取字符，逻辑非常清晰：

• 第一个变量取前3位（索引0到2）
• 第二个变量取接下来的8位（索引3到10，因为10-3+1=8）
• 第三个变量取从第12位开始到结尾的所有剩余字符

代码示例 #

# 定义需要处理的数字列表
set target_numbers {345653987652 87645625398784 3984737645 4657636359487564}

foreach num $target_numbers {
    # 拆分三个变量
    set var1 [string range $num 0 2]
    set var2 [string range $num 3 10]
    set var3 [string range $num 11 end]

    # 打印结果验证
    puts "原数字: $num"
    puts "拆分结果：var1=$var1, var2=$var2, var3=$var3"
    puts "-----------------------------------------"
}

运行结果（对应你的示例） #

• 原数字345653987652 → var1=345, var2=65398765, var3=2
• 原数字87645625398784 → var1=876, var2=45625398, var3=784
• 原数字3984737645 → var1=398, var2=4737645, var3=（空字符串）
• 原数字4657636359487564 → var1=465, var2=76363594, var3=87564

注意：如果原数字长度不足11位（比如第三个示例），var2会自动取到原数字的剩余部分，不会报错。如果需要强制var2为8位（不足补零），可以用format命令处理：

set var2 [format "%08d" [string range $num 3 10]]

方法二：正则表达式匹配（更灵活） #

如果需要确保输入是纯数字，或者想更严谨地处理各种长度情况，可以用Tcl的regexp命令通过正则分组来捕获：

代码示例 #

set target_numbers {345653987652 87645625398784 3984737645 4657636359487564}

foreach num $target_numbers {
    # 正则匹配：前3位数字 + 接下来8位数字 + 剩余所有内容
    if {[regexp {^(\d{3})(\d{8})(.*)$} $num -> var1 var2 var3]} {
        puts "原数字: $num"
        puts "拆分结果：var1=$var1, var2=$var2, var3=$var3"
    } else {
        # 处理长度不足11位的情况，强制var2补零到8位
        set var1 [string range $num 0 2]
        set var2_raw [string range $num 3 end]
        set var2 [format "%08d" $var2_raw]
        set var3 ""
        puts "原数字: $num（长度不足11位，已补零处理）"
        puts "拆分结果：var1=$var1, var2=$var2, var3=$var3"
    }
    puts "-----------------------------------------"
}

运行结果（针对短数字的优化） #

对于第三个示例3984737645，会进入补零逻辑，最终得到：var1=398, var2=47376450, var3=

两种方法都能满足你的需求，你可以根据实际场景选择：如果输入长度都足够，选方法一更简单；如果需要兼容短数字并强制var2为8位，方法二更合适。

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