几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]如何实现find的模糊查找替代? (http://www.dimcax.com/hust/showthread.php?t=11076)

yang686526 2009-04-26 12:45 PM

[求助]如何实现find的模糊查找替代?
 
[求助]如何实现find的模糊查找替代?
www.dimcax.com
[求助]如何实现find的模糊查找替代?
我用的是cad
d

d
对这个正则表达式看的有些胡里糊涂了
管理员能不能先就我的问题直接提供一个完整的lisp?
谢谢
d

d
我的"n=300,m=5000;n=5000,m=600"
这里"n="和"m="后面数字数目都是不确定的
我看了你的例子,好象给的是位数确定的文字替换
还是不清楚应该如何修改??
另外.(.{2})是什么意思?我看帮助里面好象没有"."的含义啊
d
( c:replacetxt( regex s txtstring)
( regex( "vbscript.regexp"));引用正则表达式控件
( regex "ignorecase" 0); 不忽略大小写
( regex "global" 1);全文匹配,而不是只匹配第一处
( txtstring "n=300,m=5000;n=5000,m=600")
( s txtstring)
;替换字符
( regex "pattern" "n=([0-9]{1,}),m=([0-9]{1,})")
;;[0-9]{1,}表示正整数
( s( regex "replace" s "n=$1"))

( regex)
( ( "\n替换前为:" txtstring))
( ( "\n替换后为:" s))
()
)
命令: replacetxt
替换前为:n=300,m=5000;n=5000,m=600
替换后为:n=300;n=5000


所有的时间均为北京时间。 现在的时间是 05:32 PM.