用lisp如何将12345变为1123G5

李义东 · 发表于 2004-4-14 12:37:00

用lisp如何将实数12345变为字符123G5,即任意一实数中的4变为G然后返回.
以上请教各位大侠

meflying · 发表于 2004-4-14 14:55:00

实数不行,没有123G5这样的实数,字符串则可以
(setq str "12345")
(strcat (substr str 1 3) "G" (substr str 5 (strlen str)))

龙龙仔 · 发表于 2004-4-14 15:16:00

(vl-string-translate "4" "G" "12345")

meflying · 发表于 2004-4-14 15:27:00

如果是42345呢?

龙龙仔 · 发表于 2004-4-14 16:57:00

樓主說:即任意一实数中的4变为G然后返回
指令: (vl-string-translate "4" "G" "424345")
"G2G3G5"

李义东 · 发表于 2004-4-14 18:12:00

试用成功谢谢两们版主！