如何将表中非数字元素转换成字符串？

丹霞岭

请问，如何将表中非数字元素转换成字符串？例如有一个表（中国  广东  广州），表中的元素不是数字，如何将其中的第二元素“广东”转成字符串赋给一个变量？有这样的转换函数吗？我试过用rtos是不行的。

nzl1116

vl-princ-to-string

丹霞岭

非常感谢！

434939575

我也感谢各位了！

llsheng_73

(mapcar'VL-PRINC-TO-STRING(vl-remove-if'(lambda(x)(member(type x)'(INT REAL)))'(中国 广东 20.5 广州 020)))
;;;("中国" "广东" "广州")
(setq a'(中国 广东 20.5 广州 020))
(mapcar'VL-PRINC-TO-STRING(vl-remove-if'(lambda(x)(member(type x)'(INT REAL)))a))
;;;("中国" "广东" "广州")
或者
(SETQ A'(中国1 广东 20.5 广州  20))
;;(中国1 广东 20.5 广州 20)
(VL-REMOVE-IF'(labda(x)(=(rtos(atof x))x))(mapcar'vl-princ-to-string a));;此办法不知道对于实数位是否有要求不清楚，所以虽然简单但不一定保险
;;("中国1" "广东" "广州")
至于赋值可以用SET
(mapcar'set'(a1 a2 a3 a4)'("中国" "广东" "广州"))
然后看看a1,a2,a3吧

1. (vl-remove-if'(lambda(x)(distof x))(mapcar'vl-princ-to-string'(中国1 广东 20.5 广州 020)))

(vl-remove-if'(lambda(x)(distof x))(mapcar'vl-princ-to-string'(中国1 广东 20.5 广州 020)))

1. (mapcar'set'(a1 a2)(vl-remove-if'(lambda(x)(distof x))(mapcar'vl-princ-to-string'(中国1 广东 20.5 广州 020)))

(mapcar'set'(a1 a2)(vl-remove-if'(lambda(x)(distof x))(mapcar'vl-princ-to-string'(中国1 广东 20.5 广州 020)))

328302216

命令: (mapcar '(lambda(x)(vl-princ-to-string x)) '(中国1 广东 20.5 广州 020))
返回:("中国1" "广东" "20.5" "广州" "20")

依然低调

感谢各位！
vl-princ-to-string把列表转成了字符串，并可配合alert使用了。