[求助]：列表转换问题（已解决！）

xyp1964 · 发表于 2004-11-17 23:55:52

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

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

×

晕！
求函数取消左右括号：
(1 4 90 4.5)→1 4 90 4.5

lsjjm · 发表于 2004-11-18 03:04:51

转换成什么？一串字符，一组数字？

自由的鱼 · 发表于 2004-11-18 11:57:11

是单行文本？

xyp1964 · 发表于 2004-11-18 13:01:31

求函数取消左右括号：
(1 4 90 4.5)→1 4 90 4.5
应该是单行文本或一串字符。

silen618 · 发表于 2004-11-18 13:29:16

推荐一款简便方法：

(setq lis "")(foreach e '(3 6 7) (setq lis (strcat lis (rtos e) " ")))

不知你的表中都有些什么？

xyp1964 · 发表于 2004-11-18 13:40:31

最初由 silen618 发布
[B]推荐一款简便方法：

(setq lis "")(foreach e '(3 6 7) (setq lis (strcat lis (rtos e) " ")))

不知你的表中都有些什么？ [/B]

[php]
基本可以。
命令: test
"3.000 6.000 7.000 "

问题：
1. 如何保留原内容，位数不要变化。
2. 如果包含文本，rtos函数就不能用了。
如：
'(3 晓 6 东 7 空 8 间)
怎么办？
[/php]

zxq0220 · 发表于 2004-11-18 16:17:06

这样行吗？
(DEFUN LST-STR (LST / L I)
(SETQ F (OPEN "TEMP.TXT" "w"))
(SETVAR "DIMZIN" 8)
(SETQ L (LENGTH LST) I 0)
(REPEAT L (PRINC (NTH I LST) F) (IF (/= I L) (PRINC " " F)) (SETQ I (1+ I)))
(CLOSE F)
(SETQ F (OPEN "TEMP.TXT" "r"))
(SETQ L (READ-LINE F))
(CLOSE F)
L
)

aidraft · 发表于 2004-11-18 16:24:35

_$ (SETQ LST '(3 晓 6 东 7 空 8 间))
(3 晓 6 东 7 空 8 间)
_$ (vl-string-trim "()" (vl-princ-to-string LST))
"3 晓 6 东 7 空 8 间"
_$

xyp1964 · 发表于 2004-11-18 18:16:17

楼上的可以了，谢谢，爽！

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

[已解决] [求助]：列表转换问题（已解决！）

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

相关帖子