Question

我正在为tcl中的文件写多行。虽然我写的很成功，但也希望在几行之后有一个空行并为每一行添加注释。

这是我的代码。

set tmpdir "set_var tmpdir  $tmpdir_path"
set vdd  "set vdd $voltage"
set gnd "set gnd 0.0"
set temp "set temp $temperature"
set rundir "set topdir $topdir"




set filename  "char_run.tcl"
set fileId [open $filename "w"]
puts $fileId $tmpdir
puts $fileId $vdd
puts $fileId $gnd
puts $fileId $rundir
close $fileId

请建议如何为每一行添加空行和注释。

Answer 1

只需使用puts“”添加空白行。或者使用，将“\ n”添加到某些文本后添加换行符。编写注释就像写任何其他行 - 只是该行以哈希开头。

% puts line1; puts ""; puts line2
line1

line2
%

% puts #line1; puts ""; puts line2
#line1

line2
%

Answer 2

select
    ix.rdb$index_name as index_name,
    sg.rdb$field_name as field_name,
    rc.rdb$relation_name as table_name
from
    rdb$indices ix
    left join rdb$index_segments sg on ix.rdb$index_name = sg.rdb$index_name
    left join rdb$relation_constraints rc on rc.rdb$index_name = ix.rdb$index_name
where
    rc.rdb$constraint_type = 'PRIMARY KEY'

当然，你可以这样做：

puts $fileId "$tmpdir\t;# a comment and a blank line\n"

puts $fileId "$tmpdir\n# a comment on its own line and then a blank line\n"

puts $fileId "# a comment, a command invocation, and a blank line\n$tmpdir\n"

这样，您将获得一个输出数据库，您可以将不同的样式应用于。

文档：foreach，format，lappend，puts，set，string

在tcl中将多行写入文件，如何添加空行和注释

2 个答案: