[求助]：如何将文件中读入的字符串从[字符类型]转换成[表类型]

wyhdream · 发表于 2004-9-26 12:47:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我将表以字符的格式存入文件,再从文件读入,这时读入的字符类型,我需要将之转换成表类型可以吗哪位高手能告诉我怎么才能实现,万分感谢!

ll_j · 发表于 2004-9-26 14:26:07

(read (strcat "(" string ")"))

wzg · 发表于 2004-9-26 15:38:13

请问黄金长老：
有一表(2 3 4 5 )，我想用alert把它显示出来，如何做，谢谢

zhang8755 · 发表于 2004-9-26 17:02:58

(vl-load-com)
(setq a '(1 2 3 4))
(alert (vl-princ-to-string a))
怎么样？

wyhdream · 发表于 2004-9-27 00:03:52

命令: (read (strcat "("gogo")"))
错误: 无效点对
试过这样不行啊！

lsjjm · 发表于 2004-9-27 04:36:53

4楼: 不必用(vl-load-com)
5楼: gogo是字符串吗?  or (read (strcat "(" "gogo" ")"))
  or (setq gogo "2 3 4 5")
   (read (strcat "(" gogo ")"))

wyhdream · 发表于 2004-9-27 09:58:57

gogo是从文件中读入的表：((0 . "text")(10 9 8 0)(1 . "best"))
我用:(setq gogo(read-line "suse.txt" "r"))
然后：命令: (read (strcat "("gogo")"))
错误: 无效点对
另如果就算这样能转换成表类型，但是这样我读入的表就多了个外括号了，和原来的表不一样了（((0 . "text")(10 9 8 0)(1 . "best"))）
还请教！

aidraft · 发表于 2004-9-27 11:41:10

(read gogo) should be OK!
You should show us the contents of suse.txt?
or typing !gogo in command line!

zhang8755 · 发表于 2004-9-27 23:11:42

其实我还没弄清那些函数需要vl-load-com的支持，是vl-开头的，还是vla-,vlax- ??

jx2008 · 发表于 2006-12-7 20:21:53

大家有谁知道，我这段代码怎么执行不了啊？再点选一点的时候，pt的类型为什么不是表list阿？(defun c:test()
(Initget 128); "M X")

(Setq pt (Getpoint "\n输入构件号引出点或[标志(M)]/退出(X) "))
  (cond
   ((= (strcase pt) "M") (if (= (type pt) 'str) (princ "\n 字符")))
   ((= (strcase pt) "X") (if (= (type pt) 'str) (princ "\n 字符")))
   ((= (type PT) 'list) (princ "\n 表"))
  )

(princ)
)

zxq0220 · 发表于 2006-12-8 11:39:26

(Initget 128); "M X")
改成
(INITGET 128 "M X")

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

[求助] [求助]：如何将文件中读入的字符串从[字符类型]转换成[表类型]

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子