唯她
频道主
将字符串中某个特征字符串替换为其它字符串（本例为删除），仅保留最后一个特征字符串。
** 一般方法
```lisp
(progn
(setq str "外形(投)1/3样板钻Φ2.7的中心孔3个,正面镶钻套，展开2/3钻Φ2.7的中心孔11个,正面镶钻套3/3钻Φ2.7的中心孔20个,正面镶钻套。")
(setq lst-str (string:to-list str "正面镶钻套"))
(strcat (string:from-list (reverse (cdr(reverse lst-str)))"") "正面镶钻套"(last lst-str)))
```
** VB正则法
```lisp
(setq str "外形(投)1/3样板钻Φ2.7的中心孔3个,正面镶钻套，展开2/3钻Φ2.7的中心孔11个,正面镶钻套3/3钻Φ2.7的中心孔20个,正面镶钻套。")
(setq res nil)
(while (/= res str)
(if res (setq str res))
(setq res (re:replace "/(正面镶钻套)(.*)(\\1)/g" str "$2$3")))
```
2024-11-19
浏览124
开发相关
登录后评论
2
3
2