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

世人皆醉

各位大佬，假设我建立两个数值，我想把这两个数值写到一个文本档案里面固定位置，示例如下
(setq d1(500)）
(setq d2(2500)）
这两个是我要写的数值

(("d1" 598.5)("d2" 3000))
(("d3" 598.5)("d4" 3000))
这个是要写入文档里的内容

D:\\插件\\1.txt
这个是文档的位置


那么我如何能够将d1、d2的数值写入D盘插件中1.TXT中的d1.d2的数值里面去呢

夏生生

可以参考这个帖子http://bbs.mjtd.com/forum.php?mo ... 1&highlight=ini

夏生生

2. ;;;=============================================
   
3. ;;;      通用函数  写字符串表到文件
   
4. ;;;参数：filename----文件名
   
5. ;;;      strlst------需写入文件字符串表
   
6. ;;;返回值：文件名
   
7. (defun xty-sys-makeFbylst (filename strlst / f n)
   
8.   (setq f (open filename "w"))
   
9.   (foreach n strlst
   
10.     (if        (eq (type n) 'STR)
    
11.       (write-line n f)
    
12.       (write-line (vl-princ-to-string n) f)
    
13.       )
    
14.     )
    
15.   (close f)
    
16.   filename
    
17.   )
    

;;;=============================================<br /> ;;;      通用函数  写字符串表到文件<br /> ;;;参数：filename----文件名<br /> ;;;      strlst------需写入文件字符串表<br /> ;;;返回值：文件名<br /> (defun xty-sys-makeFbylst (filename strlst / f n)<br />   (setq f (open filename "w"))<br />   (foreach n strlst<br />     (if        (eq (type n) 'STR)<br />       (write-line n f)<br />       (write-line (vl-princ-to-string n) f)<br />       )<br />     )<br />   (close f)<br />   filename<br />   )<br />

yshf

; ;; (write-text "D:\\插件\\1.txt" (list '("d1" 598.5) '("d2" 3000)))
(defun write-txt(Xwjm Xsjb / fff sjb)
    (setq fff (open Xwjm "w"))
    (foreach sjb Xsjb
         (write-line (strcat (car sjb) " " (vl-princ-to-string (cadr sjb))) fff)
    )
    (close fff)
)

世人皆醉

yshf 发表于 2022-7-8 09:09
; ;; (write-text "D:\\插件\\1.txt" (list '("d1" 598.5) '("d2" 3000)))
(defun write-txt(Xwjm Xsjb  ...

大佬，这个程序运行显示错误啊
你第一行要不要加SETQ
我要写入的是500和2500都没有体现啊

世人皆醉

世人皆醉 发表于 2022-7-8 09:41
大佬，这个程序运行显示错误啊
你第一行要不要加SETQ
我要写入的是500和2500都没有体现啊

还有这个XWJM 和XSJB是啥啊，第一行是不是函数啊，是的话前面为啥加分号啊，分号不是标注吗

世人皆醉

夏生生 发表于 2022-7-8 08:57

(if        (eq (type n) 'STR)
大佬，这个后面戴尔‘str是啥意思啊

夏生生

世人皆醉 发表于 2022-7-8 11:24
(if        (eq (type n) 'STR)
大佬，这个后面戴尔‘str是啥意思啊

如果是字符串

世人皆醉

夏生生 发表于 2022-7-8 11:49
如果是字符串

按照这种方式写入里面会替换掉里面的所有数据，而且数据格式也会发生改变，原本里面是
(("d1" 598.5)("d2" 3000))
(("d3" 598.5)("d4" 3000))

结果替换后里面是这样的
d1598.5
d23000

没了D3和d4,而且我下次读取也读不出来了

世人皆醉

唉，两位大佬都没答到点子上，我是想让D1和D2的值以表的方式替换掉文本中的(("d1" 598.5)("d2" 3000))不是直接取代，假如D1=548.5 D2=2500,替换后的应该是(("d1" 548.5)("d2" 2500))，而不是
D1548.5
D22500