私は、このすべての行を実行した後、この</p> <pre><code>set fp [open "test_one.tcl" r] set file_data [read $fp] set lines [split $file_data "\n"] regsub -all {^\s+} $lines "" </code></pre> <p>を使用したファイル のそれぞれのスタートラインからスペースを削除したいTCL

Question

にファイル内のすべての行の開始から複数のスペースを削除します'test_one.tcl'というファイルがlinesという名前のリストに含まれていますが、先頭のスペースを削除できません。 私を助けてください。

Answer 1

改行で分割する代わりに、改行の影響を受けやすいregsubコマンドを適用できます。

% set fp [open "test_one.tcl" r] 
file2244890 
% set file_data [read $fp] 
     this is 
    one of 
    example 
    input file 

% close $fp 
% regsub -line -all {^\s+} $file_data {} output 
4 
% puts $output 
this is 
one of 
example 
input file 

% 

Answer 2

はこのためにTcllibでより高いレベルのコマンドがあります。

package require fileutil 
package require textutil::trim 

::fileutil::updateInPlace test_one.tcl ::textutil::trim::trimleft 

は、この呼び出しの後、ファイルが左揃えテキストが含まれています。

ドキュメント：fileutilパッケージ、package、textutil::trimパッケージ