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

我是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  

---

您遇到的第一个问题是，您的最终

join

错误：您需要告诉它使用换行符而不是默认值（单空格）进行连接：

其次，当你制作一条固定宽度的线条时，比如：

AND1_2X 0.1 1.25ff 1.50ns 具体而言，

%3s

表示“在右对齐字符串字段中设置此字段的格式”（在上面的代码中为

$trans

）“宽三个字符，

%-8s

表示“在左对齐字符串字段中设置此字段的格式，宽八个字符”。对于固定宽度的输出来说，这类东西非常好

如果处理固定宽度的输入时偶尔会丢失字段，则需要

scan

（这与

格式有点相反）

最后，绝对是标题行的特殊情况。这非常容易

AND1_2X  0.1  1.25ff  1.50ns
# 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]