文字的替换删除

统一网名 · 发表于 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)
(setq cnt 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
我怎么用不起来？

有啥提示信息没有

账号		自动登录	找回密码
密码			注册

文字的替换删除

本帖子中包含更多资源

评分