【心得分享】关于正则表达式应用的一点心得。

wowan1314 · 发表于 2013-5-14 13:17:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wowan1314 于 2013-8-6 14:10 编辑

经常听说正则表达式在字符串处理方面的强大。也曾看了下正则的文章。但却被哪些乱七八糟的字符吓退了。

今天上午有时间，特意仔细的学习了下。

发现他并没多数人说的那么复杂。特将一点心得分享。供初学者参考。。

1、正则表达式就是处理字符串的“提取”与“替换”的。
2、应用方式为VL方法，代码就六句。

(setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
(vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写,1为忽略
(vlax-put-property regex "Global" 0) ;匹配方式，仅第一个，1为全文
(vlax-put-property regex "Pattern" N1);制定查找规则N1，N1为正则表达式如："^[0-9]+",提取文字的数字前缀。
(setq E2 (vlax-invoke-method regex "Replace" E1 N2));按规则替换，返回替换后的值。E1为被替换的字符如"9PL1" 。N2为替换字符串如"A-"
(vlax-release-object regex);释放正则,传说是要释放。
;得到替换后的值E2，你想怎么处理就随便你了。本例返回值为"A-PL1"

3、主要参数N1。这个正则表达式的写法，
就像是wcmatch后的通配符一样，多看看就会了。起码简单的你肯定能写出来。

今天主要是在看“梁雄啸”的“一刀屠文”的文章了。受益匪浅，感谢之。

但是文章中的两个函数已经不知道哪里可以下载了。所以我模仿的写了个，供大家测试正则表达式的写法。

;;;====================功能对字符串进行正则表达式提取测试. ===================================正则提取字符.
;;参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.
;; str = 字符串
;; key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以

组合使用，或用""
;;返回: 返回匹配的字符列表，或无一匹配返回nil

(defun XXExP( pat str key / regex S str1)
(setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
(if (wcmatch key "*i*,*I*")
(vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
(vlax-put-property regex "IgnoreCase" 1)
)
(if (wcmatch key "*g*,*G*")
(vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
(vlax-put-property regex "Global" 0)
)
(if (wcmatch key "*m*,*M*")
(vlax-put-property regex "Multiline" 1) ;多行模式
(vlax-put-property regex "Multiline" 0)
)
(vlax-put-property regex "Pattern" pat)
(setq s(vlax-invoke-method regex "Execute" str));;将规则运用到STR字符，得到提取出的文字内容
(VLAX-FOR tmp s
(setq str1 (cons (vlax-get-property tmp "value") str1))
);;将内容转换为LISP语言就可以直接观察了
(vlax-release-object regex)
(REVERSE str1)
)

;;;====================功能对字符串进行正则表达式替换测试. ===================================正则替换字符.
;;参数: pat = 提取正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.
;; str = 字符串 STR1替换表达式
;; key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以

组合使用，或用""
;;返回: 返回替换后的字符串

(defun XXExPR( pat str str1 key / regex S str2)
(setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
(if (wcmatch key "*i*,*I*")
(vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
(vlax-put-property regex "IgnoreCase" 1)
)
(if (wcmatch key "*g*,*G*")
(vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
(vlax-put-property regex "Global" 0)
)
(if (wcmatch key "*m*,*M*")
(vlax-put-property regex "Multiline" 1) ;多行模式
(vlax-put-property regex "Multiline" 0)
)
(vlax-put-property regex "Pattern" pat)
(setq STR2 (vlax-invoke-method regex "Replace" STR STR1))
(vlax-release-object regex)
STR2
)

;参数 string = 字串摘自<a href="http://bbs.xdcad.net/space-uid-756.html" target="_blank" class="xw1" style="color: rgb(51, 51, 51); text-decoration: initial; font-weight: 700; font-size: 12px; line-height: 18px; background-color: rgb(229, 237, 242);">Love-Lisp</a>
;; Express = 正则表达式
;; key = 字母 i I m M g G的组合字串
;; i/I = 忽略大小写 m/M = 多行搜索 g/G = 全文搜索
;;测试 (RegExSearch "晓东CAD" "CA" "g") 返回 ((2 2 "CA"))
(defun RegExSearch (STRING EXPRESS KEY / REGEX S POS LEN STR L)
(setq RegEx (vlax-create-object "Vbscript.RegExp"))
(if (and key (WCMATCH key "*g*,*G*"))
(vlax-put-property regex "Global" 1)
(vlax-put-property regex "Global" 0)
)
(if (and key (WCMATCH key "*i*,*I*"))
(vlax-put-property regex "IgnoreCase" 1)
(vlax-put-property regex "IgnoreCase" 0)
)
(if (and key (WCMATCH key "*m*,*M*"))
(vlax-put-property regex "Multiline" 1)
(vlax-put-property regex "Multiline" 0)
)
(vlax-put-property regex "Pattern" ExPress)
(setq s (vlax-invoke regex 'Execute string))
(vlax-for o s
(setq pos (vlax-get-property o "FirstIndex")
len (vlax-get-property o "Length")
str (vlax-get-property o "value")
)
(setq l (cons (list pos len str) l))
(princ (strcat "\n文字位置 = "
(itoa pos)
" 文字长度 = "
(itoa len)
" 值 = ""
str
"""
)
)
)
(vlax-release-object RegEx)
(reverse l)
)

;参数 string = 字串      摘自<a href="http://bbs.xdcad.net/space-uid-756.html" target="_blank" class="xw1" style="color: rgb(51, 51, 51); text-decoration: initial; font-weight: 700; font-size: 12px; line-height: 18px; background-color: rgb(229, 237, 242);">Love-Lisp</a> 
;;     Express = 正则表达式 
;;     key = 字母 i I m M g G的组合字串 
;;          i/I = 忽略大小写 m/M = 多行搜索 g/G = 全文搜索 
;;测试 (RegExSearch "晓东CAD" "CA" "g") 返回 ((2 2 "CA")) 
(defun RegExSearch (STRING EXPRESS KEY / REGEX S POS LEN STR L) 
  (setq RegEx (vlax-create-object "Vbscript.RegExp")) 
  (if (and key (WCMATCH key "*g*,*G*")) 
    (vlax-put-property regex "Global" 1) 
    (vlax-put-property regex "Global" 0) 
  ) 
  (if (and key (WCMATCH key "*i*,*I*")) 
    (vlax-put-property regex "IgnoreCase" 1) 
    (vlax-put-property regex "IgnoreCase" 0) 
  ) 
  (if (and key (WCMATCH key "*m*,*M*")) 
    (vlax-put-property regex "Multiline" 1) 
    (vlax-put-property regex "Multiline" 0) 
  ) 
  (vlax-put-property regex "Pattern" ExPress) 
  (setq s (vlax-invoke regex 'Execute string)) 
  (vlax-for o s 
    (setq pos (vlax-get-property o "FirstIndex") 
          len (vlax-get-property o "Length") 
          str (vlax-get-property o "value") 
    ) 
    (setq l (cons (list pos len str) l)) 
    (princ (strcat "\n文字位置 = " 
                   (itoa pos) 
                   "  文字长度 = " 
                   (itoa len) 
                   "  值 = "" 
                   str 
                   """ 
           ) 
    ) 
  ) 
  (vlax-release-object RegEx) 
  (reverse l) 
)

梁雄啸文章地址：
★“一刀屠文”－在ｌｉｓｐ中应用正则表达式进行字符处理
http://www.xdcad.net/forum/thread-638533-1-1.html
(出处: 晓东CAD家园-论坛)

Lisphk · 发表于 2013-5-14 20:04:07

好帖子，楼主请教个问题，我有个MTEXT文本，我想找出所有平方米前面的数字，怎么用正则表达式找出来？谢谢！

wowan1314 · 发表于 2013-5-14 23:21:50

Lisphk 发表于 2013-5-14 20:04
好帖子，楼主请教个问题，我有个MTEXT文本，我想找出所有平方米前面的数字，怎么用正则表达式找出来？谢谢 ...

把测试字符串发上来！大家的一起研究下！

Lisphk · 发表于 2013-5-14 23:36:04

wowan1314 发表于 2013-5-14 23:21
把测试字符串发上来！大家的一起研究下！

谢谢楼主，我一直希望比如能从EXCEL表格里面读取需要的数据，自动修改设计说明，附件的是个简单的例子，以后可以增加更多的替换的。

我希望根据EXCEL的用地面积，总建筑面积替换已经标准化好的说明（MTEXT），第一次可以替换{1}{2}这样的，但是我想替换后标签就没了，如果以后数据变化了，还需要自动的替换应该的位置，怎么办？

这是两个问题。要让程序能找到哪个地方是总用地的，哪个地方是总建筑面积的。

先一个一个来吧，先给讲讲怎么替换吧。清楚后，楼主再给分析分析以后再修改怎么更自动化，谢谢！
QQ截图20130514232931.png

测试DWG图:

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:test.rar
下载次数:1 文件大小:11.51 KB
下载权限: 不限以上 [免费赚D豆]

wowan1314 · 发表于 2013-5-15 09:46:30

首先本帖只讨论正则。另外我也是新手。对于LISP读取文件，因为没用到，所以也不知道。

回到你提的这个问题。你的文本是多行文字，一般我都没用过多行文字。其中包括了很多格式符号。
复杂程度远超我的想象，如果是单行文字会简单很多。

你可以用"用地面积(.[^平方米]*)平方米"提取用地面积，然后进行替换。建筑面积的提取也类似写法。
但因为是多行文字所以不晓得哪个字中就会有个奇怪的符号，所以并不精确。

/db_自贡黄明儒_ · 发表于 2013-5-15 10:18:37

学习学习!!!

/db_自贡黄明儒_ · 发表于 2013-5-31 16:13:50

搞了半天没明白
请教一下,文字处理"A3.2A3.00", 我想尾数加1,变成"A3.2A3.01", 怎么写?

wowan1314 · 发表于 2013-5-31 18:01:19

/db_自贡黄明儒_ 发表于 2013-5-31 16:13
搞了半天没明白
请教一下,文字处理"A3.2A3.00", 我想尾数加1,变成"A3.2A3.01", 怎么写?

用这个"[0-9]$"提取出来，然后对其+1，然后替换掉就行了

Lispboy · 发表于 2013-5-31 21:12:54

/db_自贡黄明儒_ 发表于 2013-5-31 16:13
搞了半天没明白
请教一下,文字处理"A3.2A3.00", 我想尾数加1,变成"A3.2A3.01", 怎么写?

我找到了个正则表达式测试的工具，看看：http://bbs.xdcad.net/thread-668495-1-1.html

fjb54007 · 发表于 2014-11-14 21:59:24

正需要，谢谢楼主分享真厉害

账号		自动登录	找回密码
密码			立即注册

[他山之石] 【心得分享】关于正则表达式应用的一点心得。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评