【通用函数】：读取、修改任意ini、txt参数设置文件中的参数

kele99kele

2. ;读取参数值(N::GetValue "nice.ini" "ATSTART")
   
3. ;作用：读取nice.ini文件中ASTART参数的属性值设置
   
4. ;返回：ASTART的属性值
   
5. (defun N::GetValue (fle key / value valuetmp)
   
6.   (if (findfile fle)
   
7.     (progn
   
8.       (setq valuetmp (vldos-readfile (findfile fle)))
   
9.       (while (cadr valuetmp)
   
10.         (if
    
11.           (wcmatch key (car (XD::String:Parse (car valuetmp) " ")))
    
12.           (setq value (atoi (cadr (XD::String:Parse (car valuetmp)" "))))
    
13.         )
    
14.         (setq valuetmp (cdr valuetmp))
    
15.       )
    
16.       value
    
17.     )
    
18.     (progn
    
19.       (princ (strcat "\n终止：未找到文件""fle ""请将文件放置于AutoCAD的搜索支持路径下。"))
    
20.       (princ)
    
21.     )
    
22.   )
    
23. )
    
24. ;替换参数值(N::SetValue "nice.ini" "ATSTART" "123")
    
25. ;作用1：将nice.ini文件中ASTART参数的属性值设置为123。
    
26. ;作用2：如果nice.ini文件中没有ASTART参数则在文件的末尾添加ASTART参数并设置为123。
    
27. ;返回：nice.ini文件的存储路径
    
28. (defun N::SetValue (fle key value / lst lsttmp ifset)
    
29.   (if (findfile fle)
    
30.     (progn
    
31.       (setq lsttmp (vldos-readfile (findfile fle))
    
32.         lst '()
    
33.         ifset 0
    
34.       )
    
35.       (while (car lsttmp)
    
36.         (if
    
37.           (wcmatch key (car (XD::String:Parse (car lsttmp) " ")))
    
38.           (progn
    
39.             (setq lst (cons (strcat (car (XD::String:Parse (car lsttmp) " ")) "    " Value) lst))
    
40.             (setq ifset 1)
    
41.           )
    
42.           (setq lst (cons (car lsttmp) lst))
    
43.         )
    
44.         (setq lsttmp (cdr lsttmp))
    
45.       )
    
46.       (if (= ifset 0) (setq lst (cons (strcat key "    " Value) lst)))
    
47.       (vldos-writefile (findfile fle) (reverse lst) T)
    
48.     )
    
49.     (progn
    
50.       (princ (strcat "\n终止：未找到文件""fle ""请将文件放置于AUTOCAD的搜索支持路径下。"))
    
51.       (princ)
    
52.     )
    
53.   )
    
54. )

;读取参数值(N::GetValue "nice.ini" "ATSTART")<br /> ;作用：读取nice.ini文件中ASTART参数的属性值设置<br /> ;返回：ASTART的属性值<br /> (defun N::GetValue (fle key / value valuetmp)<br />   (if (findfile fle)<br />     (progn<br />       (setq valuetmp (vldos-readfile (findfile fle)))<br />       (while (cadr valuetmp)<br />         (if<br />           (wcmatch key (car (XD::String:Parse (car valuetmp) " ")))<br />           (setq value (atoi (cadr (XD::String:Parse (car valuetmp)" "))))<br />         )<br />         (setq valuetmp (cdr valuetmp))<br />       )<br />       value<br />     )<br />     (progn<br />       (princ (strcat "\n终止：未找到文件""fle ""请将文件放置于<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>的搜索支持路径下。"))<br />       (princ)<br />     )<br />   )<br /> )<br /> ;替换参数值(N::SetValue "nice.ini" "ATSTART" "123")<br /> ;作用1：将nice.ini文件中ASTART参数的属性值设置为123。<br /> ;作用2：如果nice.ini文件中没有ASTART参数则在文件的末尾添加ASTART参数并设置为123。<br /> ;返回：nice.ini文件的存储路径<br /> (defun N::SetValue (fle key value / lst lsttmp ifset)<br />   (if (findfile fle)<br />     (progn<br />       (setq lsttmp (vldos-readfile (findfile fle))<br />         lst '()<br />         ifset 0<br />       )<br />       (while (car lsttmp)<br />         (if<br />           (wcmatch key (car (XD::String:Parse (car lsttmp) " ")))<br />           (progn<br />             (setq lst (cons (strcat (car (XD::String:Parse (car lsttmp) " ")) "    " Value) lst))<br />             (setq ifset 1)<br />           )<br />           (setq lst (cons (car lsttmp) lst))<br />         )<br />         (setq lsttmp (cdr lsttmp))<br />       )<br />       (if (= ifset 0) (setq lst (cons (strcat key "    " Value) lst)))<br />       (vldos-writefile (findfile fle) (reverse lst) T)<br />     )<br />     (progn<br />       (princ (strcat "\n终止：未找到文件""fle ""请将文件放置于AUTOCAD的搜索支持路径下。"))<br />       (princ)<br />     )<br />   )<br /> )

一个用来读取，另一个用来修改或写入，用到了黄老大的通用函数以及一个晓东的通用函数，可以在论坛上自己搜索
东拼西凑的东西，不过效果不错，我只发了我写的源码，其他的函数请自行下载。

kele99kele

这些是黄老大以及st788796老兄的函数说明，方便大家理解。

1. ;分割字符串
   
2. ;函数名称:  XD::String:Parse
   
3. ;调用格式:  (XD::String:Parse str ";")
   
4. ;返回值:  将str以";"分割为表
   
5. ;例：(XD::String:Parse str ";")以“；”为分隔符划分字符串“str”为表
   
6. ;函数简介:  任意符号分割字符串为表
   
7. ;函数来源:  晓东论坛XD::AutoLoadLisp函数的内嵌函数
   
8. ;函数作者:  st788796
   
9. ;适用版本:  不限
   
10. ;最后更新时间:  2013-07-10
    
11. ;备注:  九群于2015.9.7将此函数从主函数中剥离并添加说明
    
12. 
    
13. ;●82 [功能] 转换路径中字符 "/" 为 "\" 并返回大写值
    
14. ;●用法: (vldos-formatpath PathStringToFormat[STRING] )
    
15. ;●参数1: 路径字符串
    
16. ;●返回值:转换后的字符串 或者None
    
17. 
    
18. ;●84.18 [功能] 将字符串或表写入文件 (快于 AutoLISP write-line函数)
    
19. ;●用法: (vldos-writefile FileNameString[STRING] ContentStringList[LIST] ModeFlag[BOOLEAN] )
    
20. ;●(vldos-writefile FileNameString[STRING] ContentString[STRING] ModeFlag[BOOLEAN] )
    
21. ;●参数1: 文本文件全路径名. (包括后缀名)
    
22. ;●参数2: 要写入文件的字符串或表
    
23. ;●参数3: 最加或覆盖标志. nil 最加, T 覆盖
    
24. ;●返回值: 文本文件全路径名 or NIL
    
25. 
    
26. ;●84.17 [功能] 读文本文件到表 (快于 AutoLISP read-line函数)
    
27. ;●用法: (vldos-readfile FilenameToRead[STRING] )
    
28. ;●  参数1: 文本文件全路径名. (包括后缀名)
    
29. ;●        只有文本文件才能返回正确结果.
    
30. ;●返回值: 返回包括文件内容的表 or NIL

复制代码

cghdy

你好，XD::String:Parse检索不出来

yu960312

大哥,求XD::AutoLoadLisp函数,找不到此函数

mokson

XD，是晓东论坛开发的插件。

gzsod

好东西 学习·········