ssget的过滤问题

ndgxy

过滤出文字"M123x456","M12*456"要怎么处理呀？
也就是  前面有一个字母M ，后面跟着 m位数 “x” n位数,m和n是一个范围[1,5]？
求指点，多谢。

Lisphk

不一定非要在SSGET里面过滤出啊，你可以SSGET过滤出字符串，然后再用正则表达式过滤你要的，放到表里面。

ndgxy

谢谢您的回答
但是正则要怎么写呢？求指点

Lisphk

命令: (setq m "M[0-9]{1,5}[x|X][0-9]{1,5}")
"M[0-9]{1,5}[x|X][0-9]{1,5}"

下面只过滤M开头后接1-5个数字然后接X然后接1-5个数字的字符串

命令: (setq txt "M123x356")
"M123x356"

命令: (xd::string:regexps m txt "")
("M123x356")

x改成*，就返回NIL了

命令: (xd::string:regexps m "M123*345" "")
nil

ndgxy

哦，那要用到xd::string:regexps函数呀，如果拷贝给其它人用，也要安装这个函数呀，
请问如果直接用ssget函数，要怎么写呢？求指点

Lisphk

ndgxy 发表于 2018-7-12 22:07
哦，那要用到xd::string:regexps函数呀，如果拷贝给其它人用，也要安装这个函数呀，
请问如果直接用ssget ...

这个函数xd::string:regexps 在开源函数库里面，源码的，拷贝到你代码里面就可以了。
这个函数是LISP里面使用正则，你愿意自己写也行，论坛大把的讨论。

SSGET做不到的，你还纠结什么呢

ndgxy

;选择整数文字
(defun c:SelTextInt ()
  (sssetfirst
    nil
    (ssget
      "_X"
      '(
        (0 . "MTEXT,TEXT")
        (1 . "*#*");这句的前后*是做什么用的呀？
        (1 . "~*[~-0-9]*");这个为什么用了两次~呀？
        (1 . "~?*-*");这里的~是干嘛用的呀？求指点
      )
    )
  )
  (princ)
)

marting

ndgxy 发表于 2018-7-12 22:20
;选择整数文字
(defun c:SelTextInt ()
  (sssetfirst

*代表任意字符
~表示“非”

kqqt6236

学习一下了。

dyjwyqz5221

用ssget还真能做到，就是麻烦点而已，这是我设计的，供参考。
(setq lst '("#" "##" "###" "####" "#####")
        str
        (XD::List->String
                (apply 'append
                        (mapcar
                                '(lambda(x)
                                        (mapcar
                                                '(lambda(y)
                                                        (strcat "M" x "x" y)
                                                );;;lambda
                                                lst
                                        );;;mapcar
                                );;;lambda
                                lst
                        );;mapcar
                );;;apply
                ","
        )
);;;setq
(ssget (list '(0 . "TEXT")(cons 1 str)))

dyjwyqz5221

如果仅过滤出中间带x的，将[x|`*]改为x即可。

dyjwyqz5221

已经修改过来了