一个关于字符串的问题

citykunan

如果有多个类似于"ag{eqrkj}faq{fgag}aa","bb{ekj}fxq{fgagag}va"我想把大括号内的字符串去掉返回"agfaqaa","bbfxqva"有没有什么好的办法？

meflying

(defun strTrim(str / n m mn)
(setq n (strlen str))
(while (setq m (vl-string-position (ascii "{") str))
(setq mn (vl-string-position (ascii "}") str))
(setq str (strcat (substr str 1 m)
(substr str (+ 2 mn) (- n mn 1))))
)
str
)

citykunan

谢谢.飞版主总能帮大忙.