664571221 发表于 2016-4-8 15:04:33

求一个修改括号字符

修改括号内的乘号为加号，并且在最后乘以2，如下图

自贡黄明儒 发表于 2016-4-8 16:22:49

本帖最后由 自贡黄明儒 于 2016-4-8 16:30 编辑

用正则表达式，字符处理尽在掌握中。
(setq str (xd::string:regexps "[^x]+" "(0.35x0.45)x1.7" "I"))
(strcat (car str) "+" (cadr str) "x" (caddr str) "x2")==>"(0.35+0.45)x1.7x2"

shh1980 发表于 2016-4-12 06:53:34

水平实在有限，看不明白，
黄大师，那个是晓东的函数吗？

自贡黄明儒 发表于 2016-4-12 08:45:01

shh1980 发表于 2016-4-12 06:53 static/image/common/back.gif
水平实在有限，看不明白，
黄大师，那个是晓东的函数吗？

(setq str "(0.35x0.45)x1.7")
(setq n (vl-string-search "x" str))
(setq str2 (substr str (1+ n)))
(setq str1 (VL-STRING-RIGHT-TRIM str2 str));头
(setq str2 (VL-STRING-left-TRIM "x" str2));尾
(strcat str1 "+" str2 "x2")

shh1980 发表于 2016-4-12 10:40:34

自贡黄明儒 发表于 2016-4-12 08:45 static/image/common/back.gif
(setq str "(0.35x0.45)x1.7")
(setq n (vl-string-search "x" str))
(setq str2 (substr str (1+ n))) ...

谢谢黄大师赐教，明白了！

664571221 发表于 2016-4-12 12:18:05

自贡黄明儒 发表于 2016-4-12 08:45 static/image/common/back.gif
(setq str "(0.35x0.45)x1.7")
(setq n (vl-string-search "x" str))
(setq str2 (substr str (1+ n))) ...

怎么使用啊老师，我看不懂
页: [1]
查看完整版本: 求一个修改括号字符