字符串替换

小鸟

2. ;;;字符串
   
3. ;;;被替换
   
4. ;;;替换为
   
5. ;;;(tihuanzifu "1234567890423456447" "456" "bb")
   
6. ;;;>> "123bb7890423bb447"
   
7. (defun tihuanzifu (zfc bzfc wzfc / n ii)
   
8.   (setq        ii 0
   
9.         n  (strlen zfc)
   
10.   )
    
11.   (repeat n
    
12.     (setq ii  (vl-string-search bzfc zfc ii)
    
13.           zfc (vl-string-subst wzfc bzfc zfc ii)
    
14.     )
    
15.   )
    
16.   zfc
    
17. )

;;;字符串<br /> ;;;被替换<br /> ;;;替换为<br /> ;;;(tihuanzifu "1234567890423456447" "456" "bb")<br /> ;;;>> "123bb7890423bb447" <br /> (defun tihuanzifu (zfc bzfc wzfc / n ii)<br />   (setq        ii 0<br />         n  (strlen zfc)<br />   )<br />   (repeat n<br />     (setq ii  (vl-string-search bzfc zfc ii)<br />           zfc (vl-string-subst wzfc bzfc zfc ii)<br />     )<br />   )<br />   zfc<br /> )

vitalgg

1. (defun string:subst-all (str-new str-old str / inc len)
   
2.   "用 str-new 替换 字符串中所有的 str-old "
   
3.   "结果字符串"
   
4.   "(string:subst-all \"qwe\"
   
5.     \"abc\"
   
6.     \"mabcpoildabce\")
   
7.   => \"mqwepoildqwee\""
   
8.   (if (> (strlen str-old) 0)
   
9.       (progn
   
10.   (setq len (strlen str-new)
    
11.         inc 0)
    
12.   (while (setq inc (vl-string-search str-old str inc))
    
13.     (setq str (vl-string-subst str-new str-old str inc)
    
14.     inc (+ inc len)))))
    
15.   str)

(defun string:subst-all (str-new str-old str / inc len)<br />   "用 str-new 替换 字符串中所有的 str-old "<br />   "结果字符串"<br />   "(string:subst-all \"qwe\"<br />     \"abc\"<br />     \"mabcpoildabce\")<br />   => \"mqwepoildqwee\""<br />   (if (> (strlen str-old) 0)<br />       (progn<br />   (setq len (strlen str-new)<br />         inc 0)<br />   (while (setq inc (vl-string-search str-old str inc))<br />     (setq str (vl-string-subst str-new str-old str inc)<br />     inc (+ inc len)))))<br />   str)

vitalgg

试试这行代码报错不？

(tihuanzifu "1234567890423456447" "456" "bb")

小鸟

vitalgg 发表于 2023-4-23 11:55
试试这行代码报错不？

(tihuanzifu "1234567890423456447" "456" "bb")

报错了,但是手动按的时候 有结果。 我再研究研究

vitalgg

对比一下我们两个代码的区别就明白了

小鸟

vitalgg 发表于 2023-4-23 14:29
对比一下我们两个代码的区别就明白了

看到了  跳过被替换的字符就不会重复了，把+1 改成+替换的字符长度，我又进步一点点了

vitalgg

https://gitee.com/atlisp/atlisp-lib
@lisp 开源函数库，大量函数期待您的开发与维护。众多开发者协同开发与维护，你不再是一个人在战斗。

在CAD中执行
(@:updatelib)
实时更新函数库。

本贴函数源码:
https://gitee.com/atlisp/atlisp- ... tring/subst-all.lsp