如何将文件的特定部分存储在一个变量中？

Question

我正在尝试检索要保存在变量中的文件内容部分。 例如：

@V08.4.14 F002 qwerty asdfgh zxcvb .....

我将此作为文件中的一行。我只想在变量中存储“V08.4.14F002”，它们之间没有空格。

Answer 1

如果不知道文本如何变化，确实有点难以确定，但regsub命令可以进行此转换：

set myVariable [regsub {^@(V[\d.]+) (F\d+) .*} $data {\1\2}]

要从文件中读取一行（在本例中，只是第一行），请执行以下操作：

set f [open "theFile.txt"]
set data [gets $f]
close $f