[求助]：字符串到表的通用函数

snsj · 发表于 2004-1-28 13:50:24

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

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

×

请各位高手亮招
像这样的字符串"fff .00 *123 mmmm ."－－－》(fff .00 *123 mmmm .)
根据字符串的空格分割，要求对所有对象都成立

陌生人 · 发表于 2004-1-28 14:21:52

如果要完全意义上的通用，我认为这是不可能的。
可以对空格分割进行处理，但是未必能构成“表”。
如你举出的例子
测试：
Command: (mmmm.)
错误: no function definition: MMMM
Command: (mmmm . )
错误: 输入中含有多余的闭括号
Command: (ffff .00)
错误: 输入中的点位置不正确
因此，字符必须也要遵循一定的原则，否则处理后也是得不到“表”的形式的。

如果字符串里面写的内容符合表元的要求，且以空格为分隔符，简单的可以考虑用（read str）处理。

zhynt · 发表于 2004-1-28 14:36:46

看看这个：

;;
;;将由相同分隔字符分隔的字符串组成表（忽略“空”字串）
;;
(defun zhy_string_tok (sstring sstr / n1 n2 m2 str_1 string_list)
(setq string_list '())
(setq n1 (strlen sstring))
(setq n2 (strlen sstr))
(while (setq m2 (zhy_string_find sstring sstr))
(setq str_1 (substr sstring 1 (- m2 1)))
(setq sstring (substr sstring (+ m2 n2)))
(if (/= str_1 "")
(setq string_list (cons str_1 string_list))
)
)
(if (/= sstring "")
(setq string_list (cons sstring string_list))
)
(reverse string_list)
)

eachy · 发表于 2004-1-28 17:29:42

最初由 snsj 发布
[B]请各位高手亮招
像这样的字符串"fff .00 *123 mmmm ."－－－》(fff .00 *123 mmmm .)
根据字符串的空格分割，要求对所有对象都成立 [/B]

你最终是要取得其中的数字吗？

snsj · 发表于 2004-1-28 18:44:31

其实可以把问题简单话就是怎么把（“.？？？”）－－－》（.？？？）问号代表任何数字read是无法读出以点开头的字符

黄卫文 · 发表于 2004-1-28 19:05:07

最初由 snsj 发布
[B]请各位高手亮招
像这样的字符串"fff .00 *123 mmmm ."－－－》(fff .00 *123 mmmm .)
根据字符串的空格分割，要求对所有对象都成立 [/B]

象里面的"fff .00 *123 mmmm ."想化为表中的元素情况 .00，好象用LISP是没有办法来实现。其它的编程方法我就不知道了。

陌生人 · 发表于 2004-1-28 19:36:16

最初由 snsj 发布
[B]其实可以把问题简单话就是怎么把（“.？？？”）－－－》（.？？？）问号代表任何数字read是无法读出以点开头的字符 [/B]

可是(.???)也不是表啊。如果把它当成数字，必须在处理过程中在 . 前面加0。
结构类似：
如果 “*(.#”或“* .#”->strcat "0" "." ... -> 转为表

zhang8755 · 发表于 2004-1-29 11:32:12

只需作如下修改

(defun str_to_list(str / i one l strl)
(setq one "")
(setq strl (strlen str))
(setq i 1)
(while (<= i strl)
(if (and (/= ";" (substr str i 1))(/= "," (substr str i 1))
(/= ":" (substr str i 1))(/= " " (substr str i 1)))
(setq one (strcat one (substr str i 1)))
(progn
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
(setq one "")
)
)
(setq i (1+ i))
)
(if (= "." (substr one 1 1))
(setq one (strcat "0" one))
)
(setq l (append l (list (read one))))
l
)

增加对空格的支持
http://www.xdcad.net/forum/showthread.php?threadid=127470

陌生人 · 发表于 2004-1-29 15:28:03

你的适用于字符串提取数据。
但是要从字符串提取表（可嵌套），就不行了。你把点对也改了。
如：
“(a .5 (3 . 4.12))” 有一个点是点对符，前面不能加0

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

[求助] [求助]：字符串到表的通用函数

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

相关帖子

Re: [求助]：字符串到表的通用函数

Re: [求助]：字符串到表的通用函数