菜鸟求大佬帮助,lisp中read函数的问题.

下山学CAD

有没有办法保留"+"号?

• (setq list1 '("+1" "-2" "=3"));返回 ("+1" "-2" "=3")  建立列表
• (setq list2 (vl-princ-to-string list1));返回 "(+1 -2 =3)"  列表转字符串(输入TXT文件)
• (read list2);返回 (1 -2 =3) 读取字符串(需要+号,但read函数不能读取)
  

这是最后要的结果,但是没有"+"号;
[size=11.115pt]

• (setq list3 (mapcar '(lambda(x)(vl-princ-to-string x))(read list2)));返回 ("+1" "-2" "=3")
  

Andyhon

Command: (type (read "+1"))
INT

Command: (type (read "-2"))
INT

Command: (type (read "=3"))
SYM

下山学CAD

Andyhon 发表于 2024-1-30 16:11
Command: (type (read "+1"))
INT

感谢您的回复,我这边已经找到方法了,把vl-princ-to-string改成vl-prin1-to-string就能显示"+"了;

飞雪神光

那试试改变txt格式呢  改用read-line？

弥勒