[求助]又遇到了一个难题（直接加载字符串或列表）

sandy2002 · 发表于 2005-7-12 14:37:00

请问如下功能我要如何实现：有一字符串内容为

“(setq a 3.0)
   (setq i 1)
   (repeat 10
        (setq a (+ (* a i) a))
      (setq i (1+ i))
    )”（列表也可）

要怎样才能把字符串内的内容转换为程序代码并执行呢？

yshf · 发表于 2005-7-12 15:08:00

;如字符串是如下程序中的列表样式，请试用以下程序
(defun c:cc()
   (mapcar '(lambda(x) (eval (read x)))
            '( "(setq a 3.0)"
        "(setq i 1)"
        "(repeat 10 (setq a (+ (* a i) a)) (setq i (1+ i)))"
      )
   )
)

ZZXXQQ · 发表于 2005-7-13 13:27:00

(DEFUN DOLIST (YLST)

(EVAL (READ (STRCAT "(PROGN " YLST ")")))

)

sandy2002 · 发表于 2005-7-13 19:31:00

厉害！

无痕 · 发表于 2005-7-15 11:58:00

(setq str "(setq a 3.0)(setq i 1)(repeat 10(setq a (+ (* a i) a))(setq i (1+ i)))")

(eval(read(strcat "(progn" str ")"))) ;->11

meflying · 发表于 2005-7-15 13:53:00

无痕发表于2005-7-15 11:58:00 (setq str \"(setq a 3.0)(setq i 1)(repeat 10(setq a (+ (* a i) a))(setq i (1+ i)))\") (eval(read(strcat \"(progn\" str \")\"))) ;->11<...

这个结果没有问题啊

风子 · 发表于 2005-7-15 16:10:00

账号		自动登录	找回密码
密码			注册

[求助]又遇到了一个难题（直接加载字符串或列表）

评分