用lisp操作文本文件

xiaxiang

回复 Andyhon 的帖子

第一个比较简单，可用方式为：
1.Doslib 中的

1. (dos_delete "C:\\WINDOWS\\d.ini")

复制代码

2.vlisp

1. (vl-file-delete "C:\\Windows\\d.ini").

复制代码

3.命令行方式

2. (command "del" "C:\\WINDOWS\\d.ini" "delay" "500")

(command "del" "C:\\WINDOWS\\d.ini" "delay" "500")

但是会出现DOS提示框，比较讨厌。

第二个麻烦一些。
1.用您给的代码再加上自己的笨办法做了一个。

2. (defun c:cs(/ X  YH_FILE )
   
3.   (vl-load-com)
   
4.   (command)
   
5.   (setq x (mapcar '1+
   
6.   (vl-string->list (menucmd "m=$(edtime,$(getvar,date),YYYYMODD)"))
   
7. )
   
8. )
   
9. (progn
   
10.    (setq YH_file (open "C:\\1.txt" "W"))
    
11.   (write-line  (rtos (car x)) YH_file)
    
12.   ;(write-line   (rtos (car(cdr x))) YH_file)
    
13.     (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
14.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
15.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
16.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
17.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
18.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
19.   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)
    
20.    (close YH_file)
    
21.    )
    
22. )

(defun c:cs(/ X  YH_FILE )<br />   (vl-load-com)<br />   (command)<br />   (setq x (mapcar '1+<br />   (vl-string->list (menucmd "m=$(edtime,$(getvar,date),YYYYMODD)"))<br /> ) <br /> )<br /> (progn<br />    (setq YH_file (open "C:\\1.txt" "W"))<br />   (write-line  (rtos (car x)) YH_file)<br />   ;(write-line   (rtos (car(cdr x))) YH_file)<br />     (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />   (write-line   (rtos  (car(setq x (cdr x)))) YH_file)<br />    (close YH_file)<br />    )<br /> )

2.这个比较好一些

2. (defun c:cs(/ X n open_file )
   
3. (setq open_file (open "C:\\Windows\\d.ini" "w") )
   
4. (setq a (substr (rtos (getvar "CDATE") 2 0) 1 8 ) )
   
5. ;(foreach n (mapcar '(lambda (x) (+ x 1)) (vl-string->list a))
   
6. (foreach n (mapcar '1+ (vl-string->list a))
   
7.   (princ n open_file)
   
8.   (princ "\n" open_file)
   
9.   )
   
10. (close open_file)
    
11. )

(defun c:cs(/ X n open_file )<br /> (setq open_file (open "C:\\Windows\\d.ini" "w") )<br /> (setq a (substr (rtos (getvar "CDATE") 2 0) 1 8 ) ) <br /> ;(foreach n (mapcar '(lambda (x) (+ x 1)) (vl-string->list a))<br /> (foreach n (mapcar '1+ (vl-string->list a))<br />   (princ n open_file)<br />   (princ "\n" open_file)<br />   )<br /> (close open_file)<br /> )

xiaxiang

LONGXIN 发表于 2011-2-24 00:32
回复 xiaxiang 的帖子

使用位移加密太弱了吧，可以考虑使用ascii加BOOLE

可否详细说说。。。