如何替换文字中的特殊字符？

tm20038175

搜了几个程序，发现都不支持"."替换，这个圆点(.)好难替换啦。


附录：（参考替换程序）
1.
(defun strreplace(repstr curstr str / i returnstr)
  (setq i 1 returnstr "")
  (while (< i (+ (strlen str) 1))
    (if (= curstr (substr str i (strlen curstr)))
      (setq returnstr (strcat returnstr repstr)
            i (+ i (strlen curstr))
      )
      (setq returnstr (strcat returnstr (substr str i 1))
            i (+ i 1)
      )
    )
  )
  returnstr
)

2.
恩 可以简化一点
(defun strreplace(a b str)
(while (/= str (setq str (vl-string-subst a b str))))
str
)
(strreplace "89例" "m" "mddam达到a里撒旦发生 wm mm")
返回"89例dda89例达到a里撒旦发生 w89例 89例89例"

3.

(while (vl-string-search curchar str)
    (setq str (vl-string-subst newchar curchar str))
  )

tm20038175

还有如何使用通配符查找点（.*），好像有些不一样。

Andyhon

(ssget "X" '((1 . "*`.*")))

crazylsp

是的啊好像subst,entmod都败在小圆点下嘿嘿

tm20038175

Andyhon 发表于 2012-2-17 17:30
(ssget "X" '((1 . "*`.*")))

不是选择图元，是对文字处理。
在其他软件中有这样的数字，
例如：.56，.823，-.536，分别对应
0.56，0.823，-0.536，我就是在编写这样的数据转换时候碰到了问题。

tm20038175

不知道有没有高手处理过类似的数据格式转化的问题，这个不好办啦。。。。

Andyhon

Command: (setq str ".56")
".56"

Command: (atof str)
0.56

Command: (setq str ".823")
".823"

Command: (atof str)
0.823

Command: (setq str "-.536")
"-.536"

Command: (atof str)
-0.536

tm20038175

Andyhon 发表于 2012-2-17 19:07
Command: (setq str ".56")
".56"

太帅了，完美解决，都不用替换逗号了，直接绕过玛琪偌防线。。。。。。

cabinsummer

楼主看我的帖子http://bbs.mjtd.com/thread-89647-1-1.html

tm20038175

cabinsummer 发表于 2012-2-18 16:26
楼主看我的帖子http://bbs.mjtd.com/thread-89647-1-1.html

谢谢，十几年前的程序都这么牛，哈哈。。。