如何在tcl mql中读取和写入文件？

我想从包含名称的文本文件中读取，并检查名称是否包含字母a。如果是这样，那么我希望输出为out.txt文件中的y else n

inputs 

noman 
Lily 

####################

这很有效

> set fp [open "input.txt" "r+"] ; set out [open "output.txt" "w"]
>          #loop through warehouse item rel and disconnect
>          while { [gets $fp line] >= 0 } {
>     puts $out $line ; }
> 
> close $fp close $out;

您需要在上述代码中添加条件行：

while { [gets $fp line] >= 0 } {
    if {[regexp {a} $line]} {
       puts $out "y"
    } else {
       puts $out "n"
    }
}

---

你试过什么了吗？是的。。。。。。。。找到了解决办法

> set fp [open "input.txt" "r+"] ; set out [open "output.txt" "w"]
>          #loop through warehouse item rel and disconnect
>          while { [gets $fp line] >= 0 } {
>     puts $out $line ; }
> 
> close $fp close $out;

while { [gets $fp line] >= 0 } {
    if {[regexp {a} $line]} {
       puts $out "y"
    } else {
       puts $out "n"
    }
}