如何从p0,p1里读值呢

tiantiansayy

  (setq f (open "D:\\aaa.txt" "r"))
  (setq n 0)
  (while (setq zn (read-line f))
    (setq n (+ n 1))
    (set (read(strcat "p" (itoa n))) zn)
  )

文本如下：

111 222 333

444 555 666

将文本内容写进p0,p1里了，如何从p0,p1里读值呢？

(setq cName (strcat "p" (itoa i)))这句语句怎么不对呢？

tengte

首先要指出的是：你的程序中，文本内容写进的是p1,p2，而不是p0,p1。

读值的语句可以为：(setq cName (vl-symbol-value (read (strcat "p" (itoa i)))))

tiantiansayy

非常感谢你，是这样读