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

飞雪神光

xiaocainiao 发表于 2023-12-12 12:27
这种不行的、之前有朋友说过这种方法、用这种方法的结果始终都是"红线"

你不在 注册表里写入信息他永远返回的是nil  还有你注意看 readzc 后面的col 是带单引号的

e2002

如何读写注册表并变量赋值，如何组织数据，楼主先想清楚后再写比较好。

kozmosovia

不是组织数据问题，是语言表达问题，说了这么多，问问题都没说清楚是啥问题。

xiaocainiao

xiaocainiao 发表于 2023-12-12 10:36
我现在就是有很多这样的代码、每次都是重复的、比较乱、所以想搞一个自定义函数

Null函数我知道的、经常用、我这个只是一个示例、就是想知道能不能搞成自定义函数

xiaocainiao

start4444 发表于 2023-12-12 12:47
换个思路会不会简单点
(defun READZC (key mrz /)
        (cond ((= key "col") (if (setq col (vl-registry-re ...

其实我就是想研究一下注册表里面的主键、能不能搞成自变量的形式、研究了好久没找到方法

xiaocainiao

e2002 发表于 2023-12-12 15:07
如何读写注册表并变量赋值，如何组织数据，楼主先想清楚后再写比较好。

不好意思、应该是我没表达清楚

(defun READZCB (col /)
        (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\\" "col"))
)
我就是想让 (READZCB la)的结果等于下面这个
(setq la (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\\" "la"))

xiaocainiao

kozmosovia 发表于 2023-12-12 15:11
不是组织数据问题，是语言表达问题，说了这么多，问问题都没说清楚是啥问题。

(defun READZCB (col /)
        (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\\" "col"))
)
我就是想让 (READZCB la)这个表达式的运行结果等同于下面这个
(setq la (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\\" "la"))

这样说不知道能不能理解

start4444

xiaocainiao 发表于 2023-12-13 11:11
(defun READZCB (col /)
        (setq col (vl-registry-read "HKEY_CURRENT_USER\\Software\\num\\" "col"))
...

感觉你没搞清楚自定义函数参数，假如现在 READZCB 这个函数已经成功了，那你实际应该是怎么用的，写一小段出来看看就很清楚要的效果了

xiaocainiao

start4444 发表于 2023-12-13 12:06
感觉你没搞清楚自定义函数参数，假如现在 READZCB 这个函数已经成功了，那你实际应该是怎么用的，写一小 ...

(READZCB la)
(READZCB col)
(READZCB lts)
实际就是这样用啊、不过自定义函数里面的内部不止是一段代码、还有其他的内容、我是为了让大家看懂、就放了最主要这个

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"
_$