关于lisp对file文件操作的疑问。

75215195

我需要把一个TXT文件复制到其他局域网的机器上。
用(vl-file-copy “a”  “b” t）这个命令可以实现，文件第一次复制的时候没有问题。
当a文件，有更新。再一次复制的时候，a的内容只能是添加b文件的内容后。
我需要是覆盖B文件。vl-file-copy 这个命令有没有类似OPEN “w" 这个参数，可以覆盖文件的？
如果没有，如何实现更新后的A文件覆盖 B文件？
下面是复制的一段代码：

1. (setq mz (getstring "\n请输入程式名:"))
   
2. (if (/= (and (vl-file-copy (strcat "f:/"mz"DB.txt") (strcat "X:/"mz"DB.txt") T)     
   
3.                  (vl-file-copy (strcat "f:/"mz"DB.txt") (strcat "W:/"mz"DB.txt") T)                                 
   
4.                  (vl-file-copy (strcat "f:/"mz"DB.hao") (strcat "X:/"mz"DB.hao") T)
   
5.                  (vl-file-copy (strcat "f:/"mz"DB.hao") (strcat "W:/"mz"DB.hao") T)                                 
   
6.                )
   
7.           nil)
   
8.     (princ (strcat "\n===程式 "mz" 已输出到CNC===\n===本地F:/==="))
   
9.     (alert "\nCNC主机没有开机")
   
10.     )
    

(setq mz (getstring "\n请输入程式名:"))<br /> (if (/= (and (vl-file-copy (strcat "f:/"mz"DB.txt") (strcat "X:/"mz"DB.txt") T)     <br />                  (vl-file-copy (strcat "f:/"mz"DB.txt") (strcat "W:/"mz"DB.txt") T)                                  <br />                  (vl-file-copy (strcat "f:/"mz"DB.hao") (strcat "X:/"mz"DB.hao") T)<br />                  (vl-file-copy (strcat "f:/"mz"DB.hao") (strcat "W:/"mz"DB.hao") T)                                  <br />                )<br />           nil)<br />     (princ (strcat "\n===程式 "mz" 已输出到CNC===\n===本地F:/==="))<br />     (alert "\nCNC主机没有开机")<br />     )<br />

当A文件有更改
如何实现更新后的A文件覆盖 B文件？而不是复制到B的内容后面。A和B文件名字和格式都相同，路径不同 A:”f:/1.txt"     B:"E:/1.TXT

eachy

先删除，再复制

75215195

eachy 发表于 2017-9-29 18:12

不错的思路，我钻牛角了。

kqqt6236

学习了。