文字的替换删除

USER2128

缺少文件：文字替换.dcl

统一网名

USER2128 发表于 2023-9-7 10:21
缺少文件：文字替换.dcl

多谢提醒，已经补发了

USER2128

原程序：(tihuanzifu "1222222" "1" "11")
返回：  "11111111222222"，显然不对，我帮你修改了一下:

1. ;(tihuanzifu "1234567890423456447" "456" "bb")  ==> "123bb7890423bb447".
   
2. ;(tihuanzifu "1221221" "1" "11")    ==>  "1122112211"
   
3. ;(tihuanzifu "221122"  "1" "11")    ==>  "22111122"
   
4. ;(tihuanzifu "212121"  "1" "11")    ==>  "211211211"
   
5. (defun tihuanzifu (zfc bzfc wzfc / cnt)
   
6.   (setq  cnt 0)
   
7.   (while (setq cnt (vl-string-search bzfc zfc cnt))
   
8.     (setq zfc (vl-string-subst wzfc bzfc zfc cnt))
   
9.     (setq cnt (+ cnt (strlen wzfc)))
   
10.     )
    
11.   zfc)
    

;(tihuanzifu "1234567890423456447" "456" "bb")  ==> "123bb7890423bb447".<br /> ;(tihuanzifu "1221221" "1" "11")    ==>  "1122112211"<br /> ;(tihuanzifu "221122"  "1" "11")    ==>  "22111122"<br /> ;(tihuanzifu "212121"  "1" "11")    ==>  "211211211"<br /> (defun tihuanzifu (zfc bzfc wzfc / cnt)<br />   (setq  cnt 0)<br />   (while (setq cnt (vl-string-search bzfc zfc cnt))<br />     (setq zfc (vl-string-subst wzfc bzfc zfc cnt))<br />     (setq cnt (+ cnt (strlen wzfc)))<br />     )<br />   zfc)<br />

统一网名

USER2128 发表于 2023-9-7 16:25
原程序：(tihuanzifu "1222222" "1" "11")
返回：  "11111111222222"，显然不对，我帮你修改了一下:

多谢，这个是本论坛一位网友的分享，我直接拿来用了，原来链接地址没有记住。

tomonkey239

厉害学习了