[求助]如何实现FIND的模糊查找替代?

XIAOFEILONG

我用的是CAD2004

在基础内力图中,有大量N=3000,M=500;N=5000,M=600这样的文字

我想把所有的M=**都去掉,只保留N=**这部分,应该如何实现?

请各位帮忙

mccad

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1219

XIAOFEILONG

对这个正则表达式看的有些胡里糊涂了

管理员能不能先就我的问题直接提供一个完整的LISP?

谢谢

mccad

http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=44856&id=57445&skin=0

XIAOFEILONG

我的"N=300,M=5000;N=5000,M=600"

这里"N="和"M="后面数字数目都是不确定的

我看了你的例子,好象给的是位数确定的文字替换

还是不清楚应该如何修改??

另外.(.{2})是什么意思?我看帮助里面好象没有"."的含义啊

mccad

2. (defun c:replacetxt(/ regex s txtstring)
3.   (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
4.   (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
5.   (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处
6.   (setq txtstring "N=300,M=5000;N=5000,M=600")
7.   (setq s txtstring)
8.      ;替换字符
9.   (vlax-put-property regex "Pattern" "N=([0-9]{1,}),M=([0-9]{1,})")
10.      ;;[0-9]{1,}表示正整数
11.   (setq s(vlax-invoke-method  regex "Replace" s "N=$1"))
12.      
13.   (vlax-release-object regex)
14.   (princ (strcat "\n替换前为：" txtstring))
15.   (princ (strcat "\n替换后为：" s))
16.   (princ)
17. )

(defun c:replacetxt(/ regex s txtstring)   (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件   (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写   (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处   (setq txtstring "N=300,M=5000;N=5000,M=600")   (setq s txtstring)      ;替换字符   (vlax-put-property regex "Pattern" "N=([0-9]{1,}),M=([0-9]{1,})")      ;;[0-9]{1,}表示正整数   (setq s(vlax-invoke-method  regex "Replace" s "N=$1"))         (vlax-release-object regex)   (princ (strcat "\n替换前为：" txtstring))   (princ (strcat "\n替换后为：" s))   (princ) )

命令: REPLACETXT
替换前为：N=300,M=5000;N=5000,M=600
替换后为：N=300;N=5000

狂刀无痕

正则表达式是很奇妙的东西，不一定有一种解法。下面的借明总的东风，给字符处理增加一点难度

2. (defun c:rep(/ regex s txtstring)
3.    (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
4.    (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
5.    (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处
6.    (setq txtstring "N=300M=5000;N=5000.03,M=600.6") ;; 故意去掉一个","号,数字字符加小数点
7.    (setq s txtstring)
8.       ;替换字符
9.    (vlax-put-property regex "Pattern" "(,)?M=\\d+((\\.)\\d+)?")
10.       ;;[0-9]{1,}表示正整数
11.    (setq s(vlax-invoke-method  regex "Replace" s ""))
12.       
13.    (vlax-release-object regex)
14.    (princ (strcat "\n替换前为：" txtstring))
15.    (princ (strcat "\n替换后为：" s))
16.    (princ)
17. )
18. ;|
19. (c:rep)
20. 替换前为：N=300M=5000;N=5000.03,M=600.6
21. 替换后为：N=300;N=5000.03
22. |;

(defun c:rep(/ regex s txtstring)    (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件    (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写    (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处    (setq txtstring "N=300M=5000;N=5000.03,M=600.6") ;; 故意去掉一个","号,数字字符加小数点    (setq s txtstring)       ;替换字符    (vlax-put-property regex "Pattern" "(,)?M=\\d+((\\.)\\d+)?")       ;;[0-9]{1,}表示正整数    (setq s(vlax-invoke-method  regex "Replace" s ""))           (vlax-release-object regex)    (princ (strcat "\n替换前为：" txtstring))    (princ (strcat "\n替换后为：" s))    (princ) ) ;| (c:rep) 替换前为：N=300M=5000;N=5000.03,M=600.6 替换后为：N=300;N=5000.03 |;

狂刀无痕

;| 为了方便以后调用，下面改写为函数
|;

2. (defun strrep (txtstring pat1 pat2 / regex s txtstring)
3.    (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
4.    (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
5.    (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处
6.    (vlax-put-property regex "Pattern" pat1)
7.       ;;[0-9]{1,}表示正整数
8.    (setq s (vlax-invoke-method regex "Replace" txtstring pat2))
9.    (vlax-release-object regex)
10.    (princ (strcat "\n替换前为：" txtstring))
11.    (princ (strcat "\n替换后为：" s))
12.    s
13. )

(defun strrep (txtstring pat1 pat2 / regex s txtstring)    (setq regex(vlax-create-object "Vbscript.RegExp"));引用正则表达式控件    (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写    (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处    (vlax-put-property regex "Pattern" pat1)       ;;[0-9]{1,}表示正整数    (setq s (vlax-invoke-method regex "Replace" txtstring pat2))    (vlax-release-object regex)    (princ (strcat "\n替换前为：" txtstring))    (princ (strcat "\n替换后为：" s))    s )

1. ;|
2. 测试:
3. (strrep "N=300M=5000;N=5000.03,M=600.6" "(,)?M=\\d+((\\.)\\d+)?" "") ;;这个方法是去掉 "M=数字" 的内容,如果M前有,号也去掉。
4. 返回:
5. 替换前为：N=300M=5000;N=5000.03,M=600.6
6. 替换后为：N=300;N=5000.03
7. "N=300;N=5000.03"
8. ;使用明总的pattern.
9. (strrep "N=300,M=5000;N=5000,M=600" "N=([0-9]{1,}),M=([0-9]{1,})" "N=$1")
10. 替换前为：N=300,M=5000;N=5000,M=600
11. 替换后为：N=300;N=5000
12. "N=300;N=5000"
13. |;

复制代码

2. ;| 如果不知是M，N呢，比如多字符串是：
3. (setq s "N=300,M=5000;N=5000,M=600;A=0.3,B=30.3;X=300,Y=200.,Z=-100")
4. (strrep s "(,)?M=\\d+((\\.)\\d+)?" "")
5. 返回 "N=300;N=5000;A=0.3,B=30.3;X=300,Y=200.,Z=-100"  显然不符合需要. 改一下pat
6. (strrep s "[^N]=(-)?\\d+((\\.)(\\d+)?)?(;|,)?" "")
7. 返回：
8. "N=300,N=5000,"
9. |;

;| 如果不知是M，N呢，比如多字符串是： (setq s "N=300,M=5000;N=5000,M=600;A=0.3,B=30.3;X=300,Y=200.,Z=-100") (strrep s "(,)?M=\\d+((\\.)\\d+)?" "") 返回 "N=300;N=5000;A=0.3,B=30.3;X=300,Y=200.,Z=-100"  显然不符合需要. 改一下pat (strrep s "[^N]=(-)?\\d+((\\.)(\\d+)?)?(;|,)?" "") 返回： "N=300,N=5000," |;

jxlsp

高手现身了,学习了.