难题求教！让字符串成为一个变量

xiaocainiao

2. ;判断注册表是否存在并设置默认值
   
3. (defun READZC (col mrz /)
   
4.   (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\" "col"))
   
5.   (if col
   
6.     (setq col col)
   
7.     (setq col mrz)
   
8.   )
   
9. )
   
10. 
    
11. (READZC la "8")

;判断注册表是否存在并设置默认值<br /> (defun READZC (col mrz /)<br />   (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\" "col"))<br />   (if col <br />     (setq col col)<br />     (setq col mrz)<br />   )<br /> )<br /> <br /> (READZC la "8")

想搞个这样的自定义函数、但是"col"不知道怎么让他成为一个变量、求教各位大神有没有好的办法

llsheng_73

1. (defun READZC(str val / va)
   
2.   (set(read str)
   
3.       (if(setq va(vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\"" str))
   
4.         va val))
   
5.   )

(defun READZC(str val / va)<br />   (set(read str)<br />       (if(setq va(vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\"" str))<br />         va val))<br />   )

_$ (defun READZC(str val)
  (set(read str)
      (if(set(read str)(vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\"" str))
        str val))
  )
READZC
_$ la
nil
_$ col
nil
_$ (READZC "col"1)
1
_$ col
1
_$ (READZC"la""图层1")
"图层1"
_$ la
"图层1"
_$(vl-registry-write "HKEY_CURRENT_USER\\Software\\NUM\"" "la""图层2")

"图层2"


$ (READZC"la""图层1")
"图层2"
_$ la
"图层2"
_$

xiaocainiao

飞雪神光 发表于 2023-12-12 10:06
把引号去掉就对应了 (vl-registry-read relj key) 我这里发的你是看都没看吗

2. ;设置颜色
   
3. (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\" "col"))
   
4. (if col
   
5.         (setq col col)
   
6.         (setq col "8")
   
7. )
   
8. 
   
9. ;设置图层
   
10. (if la
    
11.         (setq la la)
    
12.         (setq la "0")
    
13. )
    
14. 
    
15. ;设置线型比例
    
16. (setq lts (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\" "lts"))
    
17. (if lts
    
18.         (setq lts lts)
    
19.         (setq lts "1")
    
20. )

;设置颜色<br /> (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\" "col"))<br /> (if col <br />         (setq col col)<br />         (setq col "8")<br /> )<br /> <br /> ;设置图层<br /> (if la <br />         (setq la la)<br />         (setq la "0")<br /> )<br /> <br /> ;设置线型比例<br /> (setq lts (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\" "lts"))<br /> (if lts <br />         (setq lts lts)<br />         (setq lts "1")<br /> )

我现在就是有很多这样的代码、每次都是重复的、比较乱、所以想搞一个自定义函数

飞雪神光

1. (read "col")或 'col 就是变量了
   
2. ;;说明:获取注册表值 有则读取 无则新建
   
3. ;;参数:relj:注册表路径
   
4. ;;参数:key:键
   
5. ;;参数:va:键值
   
6. ;;返回getrelj relj "kehu1" 1)
   
7. (defun getrelj(relj key va /)
   
8.         (if (vl-registry-read relj key)
   
9.                 (setq bl(vl-registry-read relj key))
   
10.                 (vl-registry-write relj key (setq bl va))
    
11.         )
    
12.         bl
    
13. )

(read "col")或 'col 就是变量了<br /> ;;说明:获取注册表值 有则读取 无则新建<br /> ;;参数:relj:注册表路径<br /> ;;参数:key:键<br /> ;;参数:va:键值<br /> ;;返回<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />getrelj relj "kehu1" 1)<br /> (defun getrelj(relj key va /)<br />         (if (vl-registry-read relj key)<br />                 (setq bl(vl-registry-read relj key))<br />                 (vl-registry-write relj key (setq bl va))<br />         )<br />         bl<br /> )

xiaocainiao

飞雪神光 发表于 2023-12-12 08:10

谢谢、不过你这个好像变量值太多了、你看下我发的那个代码、我想要自定义函数里面只有col和mrz这两个、注册表的主键值想让他不固定、不知道有没有办法实现

kucha007

不知道是不是这个意思？

1. (set (read "STR") "你的值") -->>等于 (setq STR "你的值")
   

(set (read "STR") "你的值") -->>等于 (setq STR "你的值")<br />

lijiao

2. ;判断注册表是否存在并设置默认值
   
3. (defun READZC (col mrz / mrz1)
   
4.   (setq        mrz1 (vl-registry-read
   
5.               "HKEY_CURRENT_USER\\Software\\NUM\\"
   
6.               "col"
   
7.             )
   
8.   )
   
9.   (if mrz1
   
10.     (set col mrz1)
    
11.     (set col mrz)
    
12.   )
    
13. )
    
14. 
    
15. 
    
16. (READZC 'la "8")

;判断注册表是否存在并设置默认值<br /> (defun READZC (col mrz / mrz1)<br />   (setq        mrz1 (vl-registry-read<br />               "HKEY_CURRENT_USER\\Software\\NUM\\"<br />               "col"<br />             )<br />   )<br />   (if mrz1<br />     (set col mrz1)<br />     (set col mrz)<br />   )<br /> )<br /> <br /> <br /> (READZC 'la "8")

xiaocainiao

lijiao 发表于 2023-12-12 09:29

你好、我现在想要要解决的是注册表主键中的"col"、怎么让他和(READZC la "8")中的la是对应的

飞雪神光

xiaocainiao 发表于 2023-12-12 09:37
你好、我现在想要要解决的是注册表主键中的"col"、怎么让他和(READZC la "8")中的la是对应的

把引号去掉就对应了 (vl-registry-read relj key) 我这里发的你是看都没看吗

xiaocainiao

飞雪神光 发表于 2023-12-12 10:06
把引号去掉就对应了 (vl-registry-read relj key) 我这里发的你是看都没看吗

看了啊、但是你应该没太明白我的需求、我那个获取注册表主键代码中是有两个col的、我是想将这两个col作为同一个自变量来使用的

飞雪神光

没明白你说的 但是代码应该是这个意思 你在纠结变量名？变量多了也不行？

1. (defun readzc (col mrz /)
   
2.   (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\\" col))
   
3.   (if col
   
4.     (setq col col)
   
5.     (setq col mrz)
   
6.   )
   
7.         col
   
8. )

(defun readzc (col mrz /)<br />   (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\NUM\\" col))<br />   (if col <br />     (setq col col)<br />     (setq col mrz)<br />   )<br />         col<br /> )