将将字符串的字母转换为不区分大小写通用的查找字符串格式

dyjwyqz5221 · 发表于 2021-5-5 11:24:22

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

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

×

本帖最后由 dyjwyqz5221 于 2021-5-5 13:51 编辑

<blockquote>(defun yqz::string:toUpLowcase (str / lst)

修改这样可能会更通用一些吧，这样转义字符就全包括了。

dyjwyqz5221 · 发表于 2021-5-5 12:03:10

本帖最后由 dyjwyqz5221 于 2021-5-5 14:53 编辑

(defun xd::string:toUpLowcase (str / lst str1)
      (setq lst (xdrx-string-regexps "." "`[]*|?#@.~,")
            str1 (strcat "a-z\\" (xd::list->string lst "\\"))
            str1 (strcat "[" str1 "]|[" "^" str1 "]+" )
      );;;setq
      (apply 'strcat
            (mapcar
                     '(lambda(x)
                              (cond
                                    ((member x lst)
                                             (strcat "`" x)
                                    );;;cond1
                                    ((xdrx-string-regexps "[a-z]" x)
                                             (strcat "[" (strcase x t) (strcase x) "]")
                                    )
                                    (t
                                             x
                                    )
                              );;;if
                     );;;lambda
                     (xdrx-string-regexps str1 str)
            );;;mapcar
      );;;apply
);;;defun

dyjwyqz5221 · 发表于 2021-5-5 12:04:38

修改成这样，转义字符就全部包括进去了。

dyjwyqz5221 · 发表于 2021-5-5 12:07:14

(progn
(setq str (xdrx-text-string (car(entsel))))
(ssget (list '(0 . "text") (cons 1 (xd::string:toUpLowcase str))))
)

大家可用这个测试下。

SHUNDocker · 发表于 2021-5-6 09:39:51

感谢留住分享学习！！！

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

[字符串] 将将字符串的字母转换为不区分大小写通用的查找字符串格式

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