USER2128 发表于 2023-9-7 10:21:06

缺少文件：文字替换.dcl

统一网名 发表于 2023-9-7 11:22:20

USER2128 发表于 2023-9-7 10:21
缺少文件：文字替换.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"，显然不对，我帮你修改了一下:

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

tomonkey239 发表于 2023-10-3 11:44:19

厉害学习了
页: 1 [2]
查看完整版本: 文字的替换删除