字符串分解组表

aimisiyou · 发表于 2017-10-25 17:30:30

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

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

×

本帖最后由 aimisiyou 于 2017-11-8 17:23 编辑

(defun ffun (str)
  (setq strlst (vl-string->list  str))
  (setq i 1 n (length strlst) vc (list (car strlst)) slst nil)
  (while (<  i n)
(setq va (car vc))
(setq vb (nth i strlst))
(if (> (* (- va 58) (- vb 58)) 0)
      (setq vc (cons vb vc) )
      (progn
            (setq slst (cons (reverse vc) slst) )
            (setq vc (list vb))
      )
   )
(setq i (+ i 1))
  )
(setq strflst  (mapcar 'vl-list->string (reverse (cons (reverse vc) slst))))
(if (> (car (last slst)) 57)
   (mapcar 'list(vl-remove-if'distof strflst)(vl-remove-if-not 'distof strflst))
   (mapcar 'list(vl-remove-if-not'distof strflst)(vl-remove-if 'distof strflst))
)
)

qqqincccken · 发表于 2017-10-25 18:34:29

谢谢提供，学习学习了

HLCAD · 发表于 2017-10-26 08:30:03

做了几个测试：
命令: (FFUN "我的测试")  ==> nil
命令: (FFUN "我的Lisp")  ==> nil
命令: (FFUN "我的Lisp123")  ==> (("我的Lisp" "123"))
命令: (FFUN "我123的456")  ==> (("我" "123") ("的" "456"))
命令: (FFUN "789我123的456")  ==> (("78" "我") ("9" "的"))

不知程序的用途，感觉最后的那条测试有些不对

aimisiyou · 发表于 2017-10-26 09:26:50

HLCAD 发表于 2017-10-26 08:30

非常感谢你的测试。程序目的是将含汉字、数字、字母的字符串按连续的数字为分割，与相邻的非数字字符配对成表，(FFUN "129我123的456你") --》（（“129” “我”）（“123” “的”）（“456” “你”））。

kqqt6236 · 发表于 2017-10-28 00:07:55

不错！

kqqt6236 · 发表于 2017-10-28 00:08:58

不错，不错！

sicky111 · 发表于 2017-11-2 00:15:50

谢谢分享。

aimisiyou · 发表于 2017-11-8 17:26:32

HLCAD 发表于 2017-10-26 08:30

已将判断中的57改为58了，避免数字9出现的问题。

yjch · 发表于 2017-11-28 08:56:31

好好学习天天向上，太谢谢了

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

[研讨] 字符串分解组表

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