如何将默认值写入文本档案
各位大佬，假设我建立两个数值，我想把这两个数值写到一个文本档案里面固定位置，示例如下(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?mod=viewthread&tid=185701&highlight=ini ;;;=============================================
;;; 通用函数写字符串表到文件
;;;参数：filename----文件名
;;; strlst------需写入文件字符串表
;;;返回值：文件名
(defun xty-sys-makeFbylst (filename strlst / f n)
(setq f (open filename "w"))
(foreach n strlst
(if (eq (type n) 'STR)
(write-line n f)
(write-line (vl-princ-to-string n) f)
)
)
(close f)
filename
)
; ;; (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)
)
本帖最后由 世人皆醉 于 2022-7-8 09:44 编辑
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
页:
[1]
2