如何将默认值写入文本档案

690994

文本只能写入字，不能数值

世人皆醉

690994 发表于 2022-7-8 13:46
文本只能写入字，不能数值

那我想让他写入这次的变量值，方便下次读取该咋实现啊

夏生生

霸蛮写出来了，但是您应该达不到自己的目标，方式错了，您把自己的问题好好捋捋，重新提问吧
按例题替换文本中字符串代码如下：

2. (defun c:test (/ f fn lst n tmp tmp1)
   
3.   (setq lst (list '("d1" 200) '("d2" 300) '("d3" 400)))
   
4.   (setq  fn   "d:\\插件\\1.txt"
   
5.   f    (open fn "r")
   
6.   tmp1 nil
   
7.   )
   
8.   (while (setq tmp (read-line f))
   
9.     (setq tmp1 (cons (read tmp) tmp1))
   
10.     )
    
11.   (close f)
    
12. ;;;(vl-file-delete fn)
    
13.   (setq  tmp1 (reverse tmp1)
    
14.   f    (open fn "w")
    
15.   )
    
16.   (foreach n lst
    
17.     (setq
    
18.       tmp1 (mapcar '(lambda (x) (subst n (assoc (car n) x) x)) tmp1)
    
19.       )
    
20.     )
    
21.   (foreach n tmp1
    
22.     (write-line
    
23.       (vl-princ-to-string
    
24.   (mapcar  '(lambda (x) (list (strcat """ (car x) """) (cadr x)))
    
25.     n
    
26.     )
    
27.   )
    
28.       f
    
29.       )
    
30.     )
    
31.   (close f)
    
32.   )
    

(defun c:test (/ f fn lst n tmp tmp1)<br />   (setq lst (list '("d1" 200) '("d2" 300) '("d3" 400)))<br />   (setq  fn   "d:\\插件\\1.txt"<br />   f    (open fn "r")<br />   tmp1 nil<br />   )<br />   (while (setq tmp (read-line f))<br />     (setq tmp1 (cons (read tmp) tmp1))<br />     )<br />   (close f)<br /> ;;;(vl-file-delete fn)<br />   (setq  tmp1 (reverse tmp1)<br />   f    (open fn "w")<br />   )<br />   (foreach n lst<br />     (setq<br />       tmp1 (mapcar '(lambda (x) (subst n (assoc (car n) x) x)) tmp1)<br />       )<br />     )<br />   (foreach n tmp1<br />     (write-line<br />       (vl-princ-to-string<br />   (mapcar  '(lambda (x) (list (strcat """ (car x) """) (cadr x)))<br />     n<br />     )<br />   )<br />       f<br />       )<br />     )<br />   (close f)<br />   )<br />