统一网名 发表于 2023-9-7 08:34:43

文字的替换删除

本帖最后由 统一网名 于 2023-9-7 11:25 编辑

代码是通过学习自己拼凑的，部分函数是直接照搬网友分享的，当时只顾学习没有记住原贴地址，如果有侵权请联系删除

这个替换删除包括整行或部分字符的替换删除，天正的也可以用（cad2020,天正7.0）


多谢 user2128 提醒，补发了dcl文件

USER2128 发表于 2023-9-7 16:25:30

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

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

统一网名 发表于 2023-9-7 17:23:25

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

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

统一网名 发表于 2023-9-7 09:40:56

czb203 发表于 2023-9-7 09:37
最近高产啊，厉害了哦

学习告一段落了，感觉就这 3个有点用就分享给大家。

marcoyuwen 发表于 2023-9-7 09:12:19

连着发了三个作品，厉害。下载下来学习了。

cfc 发表于 2023-9-7 09:17:06

哇，这个不错，支持一下，谢谢分享

lxl217114 发表于 2023-9-7 09:26:30

很给力
连着发了三个作品，厉害。下载来用

czb203 发表于 2023-9-7 09:37:34

最近高产啊，厉害了哦

paulpipi 发表于 2023-9-7 09:44:56

希望有更好的作品

bai2000 发表于 2023-9-7 09:48:04

我怎么用不起来？

wlpkok 发表于 2023-9-7 09:53:13

感谢我大哥无私分享自己的成果

统一网名 发表于 2023-9-7 09:53:51

bai2000 发表于 2023-9-7 09:48
我怎么用不起来？

有啥提示信息没有
页: [1] 2
查看完整版本: 文字的替换删除