向各位请教了，先谢，已解决

changch · 发表于 2004-10-23 09:35:00

请版主帮帮看看我的这个：能不能修改LISP程序，使输出的文字加上引号，如压缩包中的那个。
LISP为meflying为我编写的程序，再次感谢，能否输出的文字加上LISP中的引号　　"输出文字"

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

王咣生 · 发表于 2004-10-23 09:46:00

把这一行:
(setq str (strcat str (cdr item) "\t"))
改为
(setq str (strcat str (chr 34) (cdr item) (chr 34) "\t"))

changch · 发表于 2004-10-23 09:51:00

向王版主献花以表感谢