字符串问题

流_星

大家帮忙看看，那有问题，老是报错

(setq a "AB123456-11-7")
(setq a (vl-string-translate "-" " " a) )
(setq a (strcat "(" a ")" ) )
(setq b (read a))
;(princ b)
(setq c1 (nth 0 b))
(setq        c2 (nth 1 b))
(princ  c1 )(princ  c2 )
(setq c4 (strcat  c1 "-" c2))
(princ c4)

烟盒迷唇

都不是字符串肯定报错啊
(setq a "AB123456-11-7" a (vl-string-translate "-" " " a)  a (strcat "(" a ")" )  b (read a))
;(princ b)
(setq c1 (vl-princ-to-string (nth 0 b)) c2 (vl-princ-to-string (nth 1 b)))
(princ  c1 )
(terpri)
(princ  c2 )
(terpri)
(setq c4 (strcat  c1 "-" c2))
(princ c4)