wcmatch的用法

Jack_PC

ssget选择一个TEXT，如何用wcmatch的方法取出0~9的数字到表；

例如：
选择一个TEXT为：GH25-Y6K-33-99MF-EE 最后返回表的结果为：(25 6 33 99)

caoyin

楼主说的是多个问题
---------------------------------
ssget选择带数字的文字
(ssget '((0 . "*TEXT")(1 . "*#*")))
--------------------------------------------------
字符串处理（如果字符串中不含小数点）：
(defun TEST (STR)
  (read (strcat "("(vl-list->string
  (mapcar '(lambda (X) (if (<= 48 X 57) X 32))
          (vl-string->list STR)
  ))")"))
)
(test  "GH25-Y6K-33-99MF-EE")->(25 6 33 99)

起子

思路值得借鉴，将字符串转换为字符串代码表进行处理。
按这个思路处理特定分隔符的字符串，比我以前做的要简单得多。

Jack_PC

caoyin 发表于 2011-7-29 02:18
楼主说的是多个问题
---------------------------------
ssget选择带数字的文字

谢谢版主的代码,想学习一下wcmatch的用法,不知是否也能实现?

caoyin

wcmatch只是用于字符串的匹配，而不能够处理

Jack_PC

caoyin 发表于 2011-7-30 08:55
wcmatch只是用于字符串的匹配，而不能够处理

谢谢,之前我一直理解错了这个函数的用法

jackynine

版主功力深厚

jack093

楼主真是高手

vlisp2012

xiabin68

caoyin 发表于 2011-7-29 02:18
楼主说的是多个问题
---------------------------------
ssget选择带数字的文字

学习了，，，，历害版主