我是 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
错误:您需要告诉它加入换行符而不是默认值(单个空格):
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
意思是“在一个左对齐的字符串字段中格式化这个字段八个字符宽”。这种事情对于固定宽度的输出非常有用。
如果您正在处理偶尔缺少字段的固定宽度输入,则需要scan
(与 相反format
)。
最后,绝对是标题行的特殊情况。这要容易得多!
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句