用tcl写一个从版图提取edtext的脚本

好的，以下是一个简单的Tcl脚本，用于从版图中提取edtext：

# 设置输入文件名和输出文件名
set input_file "path/to/layout_file"
set output_file "path/to/output_file"

# 打开输入文件
set fp [open $input_file r]

# 读取文件内容并关闭输入文件
set file_content [read $fp]
close $fp

# 正则表达式匹配edtext
set regex {\[edtext\]\{(.*?)\}\{.*?\}\[/edtext\]}

# 在文件内容中查找edtext
if {[regexp -all -inline $regex $file_content match]} {
  # 将匹配结果写入输出文件
  set fp [open $output_file w]
  puts $fp [join [lmap m $match {lindex $m 1}] "\n"]
  close $fp
} else {
  puts "No edtext found."
}

你可以将 `path/to/layout_file` 替换为你的版图文件路径，将 `path/to/output_file` 替换为你想要保存提取结果的文件路径。运行该脚本后，将在输出文件中得到所有匹配的 edtext。