现在只是个示范程序，后面会修改。因为公司不能访问外网，所以只是在这里写个简单的例子。原意是需要批量修改自动化脚本。

# 在这里读取文件内容，将内容保存在Script变量中。 set Script { TEstCase { prec { asdf } proccdure { PRCF_http_add { %RM_HTTP% } -Params { } PCRF_HTTP_AddSub { %RM_HTTP% } -Params { } PCRF_HTTP_AddSub { %RM_HTTP% } -Params { } } pest { PCRF_HTTP_AddSub { %RM_HTTP% } -Params { } } } } # 找到所有符合条件部分，将所有匹配的所有结果保存在temp变量中 set temp [regexp -all -inline "PCRF_HTTP_AddSub/[/t /]+{/[/t /]*%RM_HTTP%" "$Script"] puts $temp # 将找到的内容修改为自己希望的内容 puts [regsub -all "RM_HTTP" $temp "PGW_MML" newtemp] puts $newtemp # 循环处理，将找到的所有字符串替换为新的字符串 foreach lt $temp lt2 $newtemp { puts "lt-----$lt----lt2---$lt2" puts [regsub "$lt" "$Script" "$lt2" Script] } # 将处理后的Script保存回文件中，单文件处理完成 puts $Script