從文本文件中提取數據並將其寫入其他地方

Question

如何讀取文件並將其中的元素放入列表並將內容寫入其他文件？

該文件的內容是

 
this is my house and it is very good 
this is my village and it is the best 

good和best必須被重複10次。

幫我如果可能的話

Answer 1

你的意思是這樣嗎？

set fi [open "filename"] 
set fo [open "outputfile" w] 
while {[gets $fi line]!=-1} { 
    if {$line!=""} { 
    for {set i 0} {$i<10} {incr i} { 
     puts $fo $line 
    } 
    } 
} 
close $fi 
close $fo 

Answer 2

你的問題還不清楚。

您的意思是包含「好」或「最好」的行需要重複10次？

set fin [open infile r] 
set fout [open outfile w] 
while {[gets $fin line] != -1} { 
    switch -glob -- $line { 
     *good* - 
     *best* { 
      for {set i 1} {$i <= 10} {incr i} { 
       puts $fout $line 
      } 
     } 
     default { 
      # what to do for lines NOT containing "good" or "best"? 
     } 
    } 
} 
close $fin 
close $fout 

如果你指的是實際的話需要重複10次：基於

set str "these goods are good; that bestseller is the best" 
puts [regsub -all {\y(good|best)\y} $str {& & &}] 
# prints: these goods are good good good; that bestseller is the best best best 

更新：

while {[gets $fin line] != -1} { 
    puts $fout [regsub -all {\y(good|best)\y} $line {& & & & & & & & & &}] 
} 

爲regsub命令的一個示例你的意見，你可能想要：

array set values {good 10 best 20} 
while {[gets $fin line] != -1} { 
    regsub -all {\y(good|best)\y} $line {&-$values(&)} line 
    puts $fout [subst -nobackslashes -nocommands $line] 
}