有关字窜替代的问题

wdb

这回可以了 (defun gg (/ str)
(setq str "go in the cinema in an hour ") (repeat (strlen str) (setq
str (vl-string-subst "to" "in" str)
) )
(princ str)
(princ)
)

龙龙仔

(defun GG (/ STR)
(setq STR "abbbbbbb") ;"abbbbbb"!!
(repeat (strlen STR)
(setq
STR (vl-string-subst "a" "ab" STR)
)
)
(princ STR)
(princ)
) ;|
;;
;;Note that the search is case-sensitive
;;(lai_string_replace <字符串> <旧字符串> <新字符串>) (lai_string_replace "abbbbbbb" "ab" "a")
(lai_string_replace "go in the cinema in an hour " "in" "to")
(lai_string_replace "baadeaa" "aa" "abc")
(lai_string_replace "abcab" "a" "ll")
(lai_string_replace "abcab" "e" "ll")
(lai_string_replace "ABDAF" "A" "B") |;
(defun LAI_STRING_REPLACE (STR OLD NEW / LNEW N)
(vl-load-com)
(setq LNEW (strlen NEW)
N 0
)
(while (< N (strlen STR))
(setq STR (vl-string-subst NEW OLD STR N))
(setq N (+ N LNEW))
)
STR
)

wdb

斑竹考虑得很周到，程序的健壮性很值得研究。