[求助]：怎么去掉列表里各元素的引号?

taner · 发表于 2006-2-17 22:01:24

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

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

×

怎么去掉列表里各元素的引号?
如下表:("0" "com" "comd" "glass" "pi" "point" "seal" "seg" "segd"
"top")

enid · 发表于 2006-2-18 00:25:55

我也想知道

ljpnb · 发表于 2006-2-18 07:55:43

这个返回值全为大写了，不知道如何变为小写
[PHP]
(defun c:test ()
  (setq lst '("0" "com" "comd" "glass" "pi" "point" "seal" "seg" "segd"
      "top")
  )
  (setq i 0
lst1 '()
  )
  (repeat (length lst)
(setq str (list (read (nth i lst))))
(setq lst1 (append str lst1))
(setq i (1+ i))
  )
  (setq lst1 (reverse lst1))
  (princ lst1)
  (princ)
)
[/PHP]

ll_j · 发表于 2006-2-18 08:34:42

可以更简单：
(mapcar 'read lst)

返回的表由数字和符号构成，符号不是字符串，无大小写之分。

还有一种常用的类似情况，就是将由 read-line 读取的包含空格的字符串转换为表：
(setq str "This a sample")
(setq lst (read (strcat "(" str ")")))

雨箭风刀 · 发表于 2006-2-18 11:03:18

symbol-name

taner · 发表于 2006-12-18 08:35:20

[FONT=courier new]
;;;搞定
(defun th-del-quote (lst)
(setq lst (mapcar
'read
lst
)
)
)
[/FONT]

tdgc · 发表于 2006-12-18 12:32:56

最初由 ll_j 发布
[B]可以更简单：
(mapcar 'read lst)

返回的表由数字和符号构成，符号不是字符串，无大小写之分。

还有一种常用的类似情况，就是将由 read-line 读取的包含空格的字符串转换为表：
(setq str "This a sample")
... [/B]

为什么我的返回的字符口串全是大写的,即使原来是小写的?

mbyd · 发表于 2006-12-18 16:09:53

(setq lst1 (read lst1),)原来lst1表里元素带""的就都去掉了

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

[求助] [求助]：怎么去掉列表里各元素的引号?

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

相关帖子