正则表达式提取多段线XYZ坐标

Lispboy

今天写一个应用的时候，需要把LIST命令列表多段线的内容文件恢复生成多段线，提取里面的坐标的时候用到了正则表达式



API函数

1. (setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")
   
2. (setq pt (xdrx_string_regexps
   
3.                          "(?<=X=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?<=Y=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?<=Z=[ ]*)[(-)?[0-9]+(\\.[0-9]+)?"
   
4.                          n
   
5.                        )
   
6. 
   
7. )
   

(setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")<br /> (setq pt (xdrx_string_regexps<br />                          "(?<=X=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?<=Y=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?<=Z=[ ]*)[(-)?[0-9]+(\\.[0-9]+)?"<br />                          n<br />                        )<br /> <br /> )<br />

执行结果： ("2780.6082" "897.2651" "0.0000")

纯LISP实现

1. (setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")
   
2. (setq pt (xd::string:regexps
   
3.                          "(?!X=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?!Y=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?!Z=[ ]*)[(-)?[0-9]+(\\.[0-9]+)?"
   
4.                          n ""
   
5.                        )
   
6. )
   
7. 
   

(setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")<br /> (setq pt (xd::string:regexps<br />                          "(?!X=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?!Y=[ ]*)(-)?[0-9]+(\\.[0-9]+)?|(?!Z=[ ]*)[(-)?[0-9]+(\\.[0-9]+)?"<br />                          n ""<br />                        )<br /> )<br /> <br />

Lispboy

上面的正则匹配字符串可以简化成：

perl语法
"(?<=X=[ ]*|Y=[ ]*|Z=[ ]*)(-)?[0-9]+(\\.[0-9]+)?"

vbscript语法

"(?!X=[ ]*|Y=[ ]*|Z=[ ]*)(-)?[0-9]+(\\.[0-9]+)?"

Lispboy

再修改下，改成

1. (setq pt (xdrx_string_regexps
   
2.                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"
   
3.                          n
   
4.                        )
   
5. )
   
6. 
   

(setq pt (xdrx_string_regexps<br />                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"<br />                          n <br />                        )<br /> )<br /> <br />

只匹配： *于端点开头的，后面X=*数字 Y=*数字 Z=*数字

测试：

1. (setq n "圆心  X=2780.6082  Y= 897.2651  Z=   0.0000")
   
2. (setq pt (xdrx_string_regexps
   
3.                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"
   
4.                          n
   
5.                        )
   
6. )   
   
7. 
   

(setq n "圆心  X=2780.6082  Y= 897.2651  Z=   0.0000")<br /> (setq pt (xdrx_string_regexps<br />                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"<br />                          n <br />                        )<br /> )   <br /> <br />

返回NIL

1. (setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")
   
2. (setq pt (xdrx_string_regexps
   
3.                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"
   
4.                          n
   
5.                        )
   
6. )   
   
7. 
   

(setq n "于端点  X=2780.6082  Y= 897.2651  Z=   0.0000")<br /> (setq pt (xdrx_string_regexps<br />                          "(?<=^[ ]*于端点.*(X=[ ]*|Y=[ ]*|Z=[ ]*))(-)?[0-9]+(\\.[0-9]+)?)"<br />                          n <br />                        )<br /> )   <br /> <br />

返回：("2780.6082" "897.2651" "0.0000")

这样，就能把多段线列表里面的 端点给提取出来了。

sh_h

一看正则就晕，楼主厉害了！！！

sicky111

谢谢分享。