[LISP程序]：按字母/数字分解字符串

lsjjm · 发表于 2004-11-21 10:56:20

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

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

×

按字母/数字分解字符串
[PHP]
(defun c:test (str / ll nn ss)
  (setq nn "" ss "")
  (repeat (strlen str)
(setq s (substr str 1 1))
(if (or (= (ascii s) 46)(wcmatch s "#"))
   (setq nn (strcat nn s)
      ll (append ll (list ss))
         ss "")
   (setq ss (strcat ss s)
         ll (append ll (list nn))
         nn "")
)
(setq str (substr str 2))
  )
  (setq ll (vl-remove "" ll))
  (if (/= nn "")(setq ll (append ll (list nn))))
  (if (/= ss "")(setq ll (append ll (list ss))))
  ll
)
[/PHP]
例如: (test  "XX11D2L31.0ab55")
返回:("XX" "11" "D" "2" "L" "31.0" "ab" "55")

aidraft · 发表于 2004-11-21 12:34:32

代码第一行有误
另外不支持负号和如1e-3等

aeo · 发表于 2004-11-21 14:38:40

"abc31.3.4.5.6abc.abc,-abc-3.-3.34abc,+abc+3.45.56-34.abc"
retry

ll_j · 发表于 2004-11-21 14:58:18

以前就讨论过类似的主题，大家可以看看“字符串数字提取超级缩水篇”。

aeo · 发表于 2004-11-21 15:21:10

最初由 ll_j 发布
[B]以前就讨论过类似的主题，大家可以看看“字符串数字提取超级缩水篇”。 [/B]

应该也不能处理我上面的那几话.

狂刀 · 发表于 2004-11-21 18:24:14

"abc31.3.4.5.6abc.abc,-abc-3.-3.34abc,+abc+3.45.56-34.abc"
31.3.4.5.6 这个该怎么分？没有可依据的合理规则
31.3.4.5.6 一块提取出来，也没有什么用

lsjjm · 发表于 2004-11-22 03:10:58

2楼：谢谢指正。不好意思，代码第一行修改后没仔细复查，斑竹给编辑了，也没见改？
程序的适应性是个问题，但用户满足了，就是程序编成功了。负号不是不能解决，但如何与连接号区别呢？这就要看用户的要求了。。。
3楼：你的要求是可以解决的，但需要你做为用户提出使用条件，要求，否则你再写一个新字符串又得新编一个程序。

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

[LISP程序]：按字母/数字分解字符串

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

相关帖子