小编Kev*_*vin的帖子

我在删除文本文件的内容时遇到了一些麻烦.据我所知,由于我们使用的PLM软件的权限问题,我似乎无法重命名或删除此文件并创建一个具有相同名称的新文件.不幸的是,我独自一人,因为似乎没有人知道到底出了什么问题.

但是,我可以读写这个文件.所以我一直在寻找seek命令并做这样的事情:

set f [open "C:/John/myFile.txt" "a+"]

seek $f 0   
set fp [tell $f]

seek $f 0 end
set end [tell $f]

# Restore current file pointer
seek $f $fp

while { $fp < $end } {
    puts -nonewline $f " "
    incr fp
}

close $f

这似乎用空格替换所有行,但我不确定这是解决这个问题的正确方法.有人可以给我一些指示吗？我还是比较新的Tcl.

谢谢!