通配符查找替换文字

cq_qg68

查找替换文字的lsp程序不少，cad本身的查找替换功能也够用。但是不能实现按通配符查找，有没有类似的lisp程序实现通配符查找替换文字？或者能不能提供算法或者思路？

newer

1、先搜索论坛，看看以前的帖子。
2、你举几个查找替换的例子。

cq_qg68

不好意思，可能我太着急，没有仔细搜索查找到相关内容。
就是类似word那样的通配符查找替换功能。比如*号代表任意字符，？代表一个字符。
今天我就有一个要用到通配符的情况：有很多图号，例如ZC-桥－施－01-钢筋图、ZC-桥－施－02-构造图、……类似的图号。前面字符“ZC-桥－施－”相同，后面的序号变化。序号之后的文字内容也不同。但是序号前面的字符个数是一样的。现在要修改成这样：在序号后面增加一字符G1，改成：ZC-桥－施－01-G1-钢筋图、ZC-桥－施－02-G1-构造图、……
我就想能不能用通配符这么查找替换：ZC-桥－施－？？-改成ZC-桥－施－？？-G1，其中问号就代表一个字符。序号不一样，序号后的文字内容也不一样。这个可能情况稍微特殊一点，因为前面的字符长度一样，能够在指定长度字符串处插入一个字符。我想最一劳永逸的办法就是能实现通配符查找替换。
不知道我的意思说明白了没有，在论坛有我还没有查到相关的资料，烦请出手相助。看能不能编个lisp程序，多谢。

newer

cq_qg68 发表于 2016-11-19 23:12

文字处理的，就把正则表达式弄明白就一切都解决了， 用  正则表达式 搜索论坛，看看介绍。

开源函数库的 xd::string:regexps (正则查找), xd::string:RegExpR (正则替换）

拿你的例子

(defun c:tt ()
  (setq a (list "ZC-桥－施－02-构造图" "ZC-桥－施－01-钢筋图"))
  (setq match "施－[0-9]+-")
  (mapcar '(lambda (x)
             (if (setq str (car (xd::string:RegexpS match x "")))
               (xd::string:RegexpR match x (strcat str "G1-") "")
             )
           )
          a
  )
)

上面的匹配字符串 "施－[0-9]+-"， 意思就是查找 中间 是多个数字 前面是"施－" 后面是 "-"的字符串。 [0-9]+ 正则表达式表示的是多个数字连在一起。


测试下，替换 "ZC-桥－施－02-构造图" "ZC-桥－施－01-钢筋图" 这两个字符串。


命令: tt
("ZC-桥－施－02-G1-构造图" "ZC-桥－施－01-G1-钢筋图")

qqqincccken

谢谢提出来，有能人会来解答的，谢了

yoyoho

正需要，支持楼主大人了！

yjch

好好学习天天向上，谢谢 高手

cq_qg68

谢谢，看来要好好学习下正则表达式了。