（XD::String:GetWords）按需分解字符串

newer · 发表于 2018-9-5 22:16:36

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

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

×

(defun XD::String:GetWords (str mode / cm cm1 cm2 cm3 cm4 txts)
  (setq cm  "[\\u4e00-\\u9fa5]+"
cm1 "[^\\u4e00-\\u9fa5]+"
cm2 (strcat cm "|" cm1)
cm3 "[\\u4e00-\\u9fa5]"
cm4 "[^\\u4e00-\\u9fa5]"
  )
  (xd::list:flat
(mapcar
   '(lambda (x)
   (cond ((= mode 0) (xd::string:regexps (strcat cm3 "|" cm4) x ""))
         ((= mode 1) x)
         ((= mode 2)
(if (> (ascii (substr x 1 1)) 128)
   (xd::string:regexps cm3 x "")
   x
)
         )
   )
   )
   (xd::string:regexps cm2 str "")
)
  )
)
命令: (XD::STRING:GETWORDS txt 0)
("建" "筑" "C" "A" "D")

命令: (XD::STRING:GETWORDS txt 1)
("建筑" "CAD")

命令: (XD::STRING:GETWORDS txt 2)
("建" "筑" "CAD")

/db_自贡黄明儒_ · 发表于 2018-9-6 08:04:12

有时候我们需要分离出数字来处理，这种情况多一些。

yangjian001 · 发表于 2018-9-6 09:09:24

按需分解字符串

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

[字符串] （XD::String:GetWords）按需分解字符串

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