字符串两个问题

xiaoliu · 发表于 2004-3-22 09:07:00

请问如何在几个字符串之间加上空格,然后返回一个大字符串呢
还有,如何将这个大字符串在分解为这几个小的字符串呢?

meflying · 发表于 2004-3-22 10:37:00

(strcat str1 " " str2 " " str3)(mapcar '(lambda (e) (vl-symbol-name e))(read (strcat "(" str ")")))

ljcgq · 发表于 2004-3-22 11:49:00

meflying简洁厉害!!!!

龙龙仔 · 发表于 2004-3-23 08:03:00

;;(setq STR "WWW RR RRR");OK
(setq STR "123 456 789");當是數字時,則不行
(mapcar '(lambda (E) (vl-symbol-name E))
(read (strcat "(" STR ")"))
)
;;改用vl-princ-to-string會比較好
(mapcar '(lambda (E) (vl-princ-to-string E))
(read (strcat "(" STR ")"))
)

字符串两个问题

发表回复

精选推荐