那位看下什么问题，把ZYtemp.dll,改ZY.dll

离碎

检测到ZY.dll时，没有检测到ZYtemp.dll时直接加载ZY.dll
同时检测到时，删除ZY.dll,再把ZYtemp.dll重命名为Y.dll并加载
(setq FileName (findfile "ZY.dll"))
  (setq tempFileName (findfile "ZYtemp.dll"))
  (if (/= FileName nill)
    (progn
      (if (= tempFileName nill)
        (command "NetLoad" FileName)
        (progn
          (if (= (vl-file-delete FileName) nill)
            (command "NetLoad" FileName)
            (progn
              (vl-file-rename  tempFileName FileName)
              (command "NetLoad" FileName)
              )
            )
          )
        )
      )
    )

飞雪神光

nil 或者 null 没有nill

1. (setq FileName (findfile "ZY.dll"))
   
2. (setq tempFileName (findfile "ZYtemp.dll"))
   
3. (if FileName
   
4.         (if tempFileName
   
5.                 (progn
   
6.                         (vl-file-delete FileName)
   
7.                         (vl-file-rename tempFileName FileName)
   
8.                         (command "NetLoad" FileName)
   
9.                 )
   
10.                 (command "NetLoad" FileName)
    
11.         )
    
12. )

(setq FileName (findfile "ZY.dll"))<br /> (setq tempFileName (findfile "ZYtemp.dll"))<br /> (if FileName<br />         (if tempFileName<br />                 (progn<br />                         (vl-file-delete FileName)<br />                         (vl-file-rename tempFileName FileName)<br />                         (command "NetLoad" FileName)<br />                 )<br />                 (command "NetLoad" FileName)<br />         )<br /> )

离碎

飞雪神光 发表于 2024-8-21 22:55
nil 或者 null 没有nill

调试时发现在删除代码nil,为什么？
我用的以下代码

(setq FileName (findfile "ZY.dll"))
(setq tempFileName (findfile "ZYtemp.dll"))
(if (/= FileName nil)
   (if (/= tempFileName nil)
     (progn
       (vl-file-delete FileName)
       (vl-file-rename  tempFileName FileName)
       (command "NetLoad" FileName)
       )
     (command "NetLoad" FileName)
     )
  )

飞雪神光

离碎 发表于 2024-8-22 12:57
调试时发现在删除代码nil,为什么？
我用的以下代码

/= nil  就是 t  FileName  tempFileName 这两个变量有了值就相当于t了