LISP 调用DOS 【nonsmall】

aicr317

在BAT下执行以下语句

@echo off
set a=e:\
set b=%username%
c:
cd\
cd documents and settings\%b%\桌面

copy *.plt %a% /y

完全没有问题

而在LISP中，执行

(RunDOS
(list

"@echo off"
"set a=e:\"
"set b=%username%"
"c:"
"cd\"
"cd documents and settings\%b%\桌面"

"copy *.plt %a%"

"exit"

))

无法执行

困惑！求助！

aicr317

使用\\也不行

aicr317

提示： 错误，输入的字符串有缺陷

nonsmall

很简单

你用Lisp写出来一个.bat文件

然后用Lisp调用startApp 或者 Wscript对象 去执行一下就行了

aicr317

lisp写BAT？？？就我上面的代码，该如何写啊！

aicr317

试了一个下午，没有结果！！！

nonsmall

open write-line 函数也不会用的话

那就把bat文件手动写好了放一个地方

比如C盘下面 1.bat

然后用startapp函数直接执行好了

(startapp c:\\1.bat)

aicr317

nonsmall发表于2009-10-21 18:23:00open write-line 函数也不会用的话那就把bat文件手动写好了放一个地方比如C盘下面 1.bat然后用startapp函数直接执行好了(startapp c:\\1.bat)

虽然写的有点复杂了，但至少能实现功能！感谢提醒！

(setq f (open "d:\\1.bat" "W"))
(write-line
"
@echo off
set a=D:\\
set b=%username%
c:
cd\\
cd documents and settings\\%b%\\桌面

copy *.plt %a% /y
DEL *.PLT
"
f)

(close f)

(startapp "d:\\1.bat")

(rundos
(list

"del d:\\1.bat"
"exit"
)
)

nonsmall

你做这功能用Lisp都能实现的

vl-file-copy 文件拷贝

vl-file-delete 文件删除

桌面路径用Script对象……

aicr317

nonsmall发表于2009-10-22 11:30:00你做这功能用Lisp都能实现的vl-file-copy 文件拷贝vl-file-delete 文件删除桌面路径用Script对象……

刚刚起步学，献丑了！！！。。。。。^_^