Question

我是Tcl的新手，我想从文件中读取数据，例如说text.txt，文件内容为

Name     Delay  Trans  Load   
----------------------------
AND1_2X  1.50ns  0.1  1.25ff  
AND1_3X  1.75ns  0.2  1.98ff  
AND2_3X  2.37ns  0.3  2.27ff  
AND2_4X  1.82ns  0.5  2.54ff  
NAND1_2X 2.14ns  0.2  1.69ff  
NAND2_3X 2.48ns  0.3  2.11ff

现在我想读取数据并像空格一样重新排列

Name     Trans   Load  Delay  
-----------------------------
AND1_2X  0.1  1.25ff  1.50ns  
AND1_3X  0.2  1.98ff  1075ns  
AND2_3X  0.3  2.27ff  2.37ns  
AND2_4X  0.5  2.54ff  1.82ns  
NAND1_2X 0.2  1.69ff  2.14ns  
NAND2_3X 0.3  2.11ff  2.48ns

我已经尝试过代码，并且得到的输出为

Name Trans  Load Delay -----------------------------     AND1_2X 0.1  1.25ff 1.50ns AND1_3X 0.2  1.98ff 1.75ns AND2_3X 0.3  2.27ff 2.37ns AND2_4X 0.5  2.54ff 1.82ns NAND1_2X 0.2  1.69ff 2.14ns NAND2_3X 0.3  2.11ff 2.48ns

代码是

set fp [open "file1.txt" r+]  
set l1 {} 
while { [gets $fp data] >= 0 } {  
 set data1 [split $data "\n"]  
puts [lindex $data 0]  

 foreach line $data1 {  
 set cline [regsub " +" $line " "]  
 set dat1 [split $cline]  
 puts $dat1  
 puts [lindex $dat1 5]  
 lappend l1 [lindex $dat1  0]  
 lappend l1 [lindex $dat1  3]  
lappend l1 [lindex $dat1  4]  

 lappend l1 [lindex $dat1  5]  
 lappend l1 [lindex $dat1  1]  
}  
}  
puts $l1  
set x [join $l1]  
set fp1 [open "input.txt" w+]  
puts $fp1 $x  
close $fp1  
 close $fp

Answer 1

您遇到的第一个问题是您遇到了最后一个join错误：您需要告诉它使用换行符代替默认行（单个空格）：

set x [join $l1 "\n"]

第二，当您生成固定宽度的线时，例如：

AND1_2X  0.1  1.25ff  1.50ns

您应该使用format命令来执行此操作。如果您知道C的printf()，应该会发现它很直观。否则，请使用以下内容：

# First, this is how to pick out the fields, assuming they're always present
set fieldData [regexp -all -inline {\S+} $line]

# Let's get some good names instead of using loads of lindex calls
lassign $fieldData name delay trans load

# Now let's transform that into the output line
lappend l1 [format "%-8s %3s  %5s  %6s" $name $trans $load $delay]

特别地，%3s的意思是“格式化此字段”（来自上面代码中的$trans）“在一个三字符宽的右对齐字符串字段中”，而%-8s表示“将该字段格式化为八个字符宽的左对齐字符串字段”。对于固定宽度的输出，这种类型的东西是 great 。

如果您要处理固定宽度的输入，并且偶尔会缺少字段，则需要scan（与format的倒数相对）。

最后，绝对是特殊情况下的标题行。这要容易得多！

输入输出文件处理和重新排列数据

1 个答案: