每天一个tcl脚本练习-第5天

LRRRUI

于 2023-03-06 21:33:42 发布

阅读量421

点赞数

CC 4.0 BY-SA版权

分类专栏：数字后端文章标签：后端

本文链接：https://blog.youkuaiyun.com/LRRRUI/article/details/129371221

数字后端专栏收录该内容

11 篇文章

订阅专栏

该脚本读取指定文件中的内容，通过正则表达式匹配关键词Beginpoint，然后提取并组合第1和3个字段，将结果存储到新列表中。最后，将列表内容写入新的输出文件。整个过程涉及文件I/O操作和数据处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

提取文本数据并按指定格式输出

set in_f "./in.f
set out_f "./out.f"

set in_con [open $in_f r]
set out_con [open $out_f w]
set pattern "Beginpoint"

while {[gets $in_con line] != -1} {
    if { [regexp $pattern $line ] == 1 } {
         set list1 [lindex [split $line " "] 1]
         set list1 [lindex [split $line " "] 3]
         lappend list "from $list1 to $list2"
         }
 }

foreach i $list {
puts $out_con $i 
}

close $out_con