vl-file-copy 运行时有时无是怎么回事?

挚友01 · 发表于 2015-4-13 22:02:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(if (setq LHM_tf (getfiled "选择文件" "" "xls" 32))
(if (findfile LHM_tf)
   (startapp "EXCEL" LHM_tf)
   (if (setq tf1 (findfile "接线图程序.xls"))
   (progn
      (vl-file-copy tf1 LHM_tf)
      (startapp "EXCEL" LHM_tf)
   ) )
)
)
非常短的几句,我在前面加入了(VL-load-com) 可在有些机器(vl-file-copy tf1 LHM_tf)运行正常,有些机器好象就没认这条语句,LHM_tf为nil
请大家指点指点...

Free-Lancer · 发表于 2015-4-13 23:28:26

文件不可被占用

挚友01 · 发表于 2015-4-14 10:04:38

您是说“接线图程序.xls” 当时是被打开的，我并没有打开啊，如何避免此类事情的发生？请赐教。。

aeo · 发表于 2015-4-14 15:18:19

findfile 要路径

挚友01 · 发表于 2015-4-14 23:03:46

本帖最后由挚友01 于 2015-4-14 23:05 编辑

接线图程序.xls是在我的搜索路径设置内的，且findfile 是可以返回路径的...

aeo · 发表于 2015-4-15 12:30:13

本帖最后由 aeo 于 2015-4-15 13:24 编辑

Examples
Copy autoexec.bat to newauto.bat:
_$ (vl-file-copy "c:/autoexec.bat""c:/newauto.bat")1417
Copy test.bat to newauto.bat:
_$ (vl-file-copy "c:/test.bat""c:/newauto.bat")nil
The copy fails because newauto.bat already exists, and the append argument was not specified.
Repeat the previous command, but specify append:
_$ (vl-file-copy "c:/test.bat""c:/newauto.bat" T)185
The copy is successful because T was specified for the append argument.

----------------------
不过你的程序的逻辑应该有问题。你说一下你的目的是什么！！！！

假定已经选了一个文件（getfiled选择），excel打开状态，你就不能拷贝覆盖
假定没选文件（getfiled没选择），又怎么会有路径，copy也不会发生。
就算copy发生了，当前有那个文件，你的写法也不会覆盖

挚友01 · 发表于 2015-4-16 09:14:11

本帖最后由挚友01 于 2015-4-16 09:19 编辑

(if (setq LHM_tf (getfiled "选择文件" "" "xls" 32))
返回一个xls为后缀的文件名，只是一个字符串而已 (这里一定要有一个文件名，选择到了就肯定存在直接打开，输入的要看该文件是否存在)
(if (findfile LHM_tf) 在搜索目录下如果 LHM_tf 存在就直接打开...
如果不存在执行(vl-file-copy tf1 LHM_tf)
将"接线图程序.xls" 拷贝成LHM_tf

挚友01 · 发表于 2015-4-17 22:42:38

今天又一台机器出现了同样的问题,高手们明示一下啊...

Free-Lancer · 发表于 2015-4-18 09:56:21

本帖最后由 Free-Lancer 于 2015-4-18 09:57 编辑

挚友01 发表于 2015-4-17 22:42
今天又一台机器出现了同样的问题,高手们明示一下啊...

返回 nil 的几个典型原因包括：

ource-file 与 destination-file 相同

有没有后台打开（Com 方式打开）

挚友01 · 发表于 2015-4-18 14:56:48

应该没有啊,出现上述问题我重启几次机器了,,,,汇报时这个程序直接跳过去了，没讲，郁闷死我了....有没有可能是(getfiled "选择文件" "" "xls" 32)后面的选项的事?

iLisp · 发表于 2015-4-18 15:20:16

挚友01 发表于 2015-4-18 14:56
应该没有啊,出现上述问题我重启几次机器了,,,,汇报时这个程序直接跳过去了，没讲，郁闷死我了....有没有可 ...

princ 下

挚友01 · 发表于 2015-4-18 16:26:40

(if (setq LHM_tf (getfiled "选择文件" "" "xls" 32))
;; prin1 lhm_tf 返回路径名文件名例 c:\123.xls
(if (findfile LHM_tf)
   (startapp "EXCEL" LHM_tf)
   (if (setq tf1 (findfile "接线图程序.xls"))
   (progn
      (vl-file-copy tf1 LHM_tf)
      ; prin1 lhm_tf 此时为nil
      (startapp "EXCEL" LHM_tf)
   ) )
)
)

挚友01 · 发表于 2015-4-18 16:29:21

关键是有些机器运行正常，有些机器就不行...不行的机器我都重启过，内存中没有什么关于excel的程序

挚友01 · 发表于 2015-4-22 10:03:27

?????????????

iLisp · 发表于 2015-4-22 10:22:35

不行的机器什么系统？
目录有没有写权限？

账号		自动登录	找回密码
密码			立即注册

[求助] vl-file-copy 运行时有时无是怎么回事?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评