回复 Andyhon 的帖子
第一个比较简单，可用方式为：
1.Doslib 中的
(dos_delete "C:\\WINDOWS\\d.ini")
2.vlisp
(vl-file-delete "C:\\Windows\\d.ini").3.命令行方式
(command "del" "C:\\WINDOWS\\d.ini" "delay" "500")但是会出现DOS提示框，比较讨厌。
第二个麻烦一些。
1.用您给的代码再加上自己的笨办法做了一个。
(defun c:cs(/ XYH_FILE )
(vl-load-com)
(command)
(setq x (mapcar '1+
(vl-string->list (menucmd "m=$(edtime,$(getvar,date),YYYYMODD)"))
)
)
(progn
(setq YH_file (open "C:\\1.txt" "W"))
(write-line(rtos (car x)) YH_file)
;(write-line (rtos (car(cdr x))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(write-line (rtos(car(setq x (cdr x)))) YH_file)
(close YH_file)
)
)2.这个比较好一些
(defun c:cs(/ X n open_file )
(setq open_file (open "C:\\Windows\\d.ini" "w") )
(setq a (substr (rtos (getvar "CDATE") 2 0) 1 8 ) )
;(foreach n (mapcar '(lambda (x) (+ x 1)) (vl-string->list a))
(foreach n (mapcar '1+ (vl-string->list a))
(princ n open_file)
(princ "\n" open_file)
)
(close open_file)
)
LONGXIN 发表于 2011-2-24 00:32 static/image/common/back.gif
回复 xiaxiang 的帖子
使用位移加密太弱了吧，可以考虑使用ascii加BOOLE
可否详细说说。。。
页:
1
[2]