在 tcl 中拆分行以创建变量

Question

我是 TCL 新手，需要的时候偶尔使用一下。

我需要读取一个文件并提取一些数据，我已经完成了下面的sn-p。

我可以阅读第一行 22，但不知道如何在变量中拆分行并提取数字1300.85。相似地 从第 133 行提取数字 1.283，从第 134 行提取数字 -1.338。

想知道是否有人可以提供帮助。

# Open file for reading
set input [open "Data.txt" r]

# # Code # #
set ln 0
while {[gets $input line] != -1} {
    incr ln
    if {$ln == 22} {
        set mass [regexp -all -inline {\S+} $line]
        #[split $line "/n"]
    }
}

输入数据

从文件中读取第 22 行（固定行号）会给出：

Full mass               kg           1300.85

从文件中读取行号 132,133,134（固定行号）将给出这些：

Base (P)       :            2.621 m         (respective to )
                     F:      1.283 m   A/K: +0.489681
                     R:     -1.338 m   R/K: -0.510319

Answer 1

除非文件真的很大（数百兆字节或更多），否则我们最好将其全部读入内存，然后通过换行对其执行split，以便我们可以轻松访问这些行。

set input [open "Data.txt" r]
set lines [split [read $input] "\n"]
close $input

然后，我们可以选择带有lindex 的各个行。有几种方法可以将它们分开。在您的情况下，我们使用一种以下技术：

# With regexps (remember, Tcl indexes from zero):
regexp {kg\s([\d.]+)} [lindex $lines 21] -> value

# With regexps and list indexing:
set value [lindex [regexp -all -inline {\S+} [lindex $lines 21]] 3]

# With string format scanning (looking at how to extract the second value):
scan [lindex $lines 132] " F: %f m A/K: %f" value1 value2
scan [lindex $lines 133] " R: %f m R/K: %f" value3 value4

我想我实际上可能更喜欢 scan 来完成这类工作，尽管我还想非常仔细地研究其他方法来获取不会受到插入额外行的影响的数据。

Answer 2

我假设星号实际上并未出现在您的数据中。如果你能弄清楚哪条线是哪条线，这很容易。假设您将要处理的三行存储在变量line22、line133 和line134 中。然后你可以得到这样的值：

lindex $line22 3
# => 1300.85
lindex $line133 1
# => 1.283
lindex $line134 1
# => -1.338

这当然假定每行上的数据是一个正确的列表，您提供的行就是。如果不是，您需要先split 这些行。

如果您不逐行读取，而是一次读取整个文件并将其分成几行，您可以像这样访问这些值：

set f [open datafile.ext]
set data [split [chan read $f] \n]
chan close $f

set mass [lindex $data 21 3]
set fval [lindex $data 132 1]
set rval [lindex $data 133 1]

通常您会在拆分行之前string trim，但在这种情况下，这可能会更改行号。

请注意，这仅在您的文件保持相同的基本内容时才有效，仅更改其位置的值。任何添加的行或在一行上添加的单词都会使这种提取方案无用。

文档：chan、lindex、open、set、split