ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 384004|回复: 663

[原创] 正则表达式入门与提高---VBA平台的正则学习参考资料

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2014-6-10 23:10 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:文本处理和正则
本帖最后由 liu-aguang 于 2014-6-17 14:02 编辑

正则表达式入门与提高
      有一位美国佬编写的<<精通正则表达式>>专业书籍是世人公认的正则权威著作.但它不太适合初学者,尤其是没有相关编程语言背景及书中所及的种种计算机技术知识的读者.其中很多晦涩难懂的内容在VBA中用不上或者对你来说根本无用的,而初学者的你却根本不知道怎样取舍.事实上,本人还没有发现一本针对VBA平台的正则专业书籍.网络可见到少量VBA正则教程,但内容多是点到为止”.
      鉴于此,有此贴文.在这里感谢本论坛liucqa老师的鼓励,在之前本人写过一篇正则对象操作的短文,liucqa老师留贴建议多写一点,但一致未能成文.此帖算是对liucqa老师的交代.

内容提要
      顺利迈越初期学习正则障碍的最好方法是:首先鸟览正则的全貌,在头脑中建立正则地图的概貌,然后按图索骥描绘充实每个细节.
    ”基础篇的第一章希望为你构建一个正则体系的"地图“轮廓.第二章详细解读了正则在VBA中的实现(即正则对象的操作).第三至第六章分类介绍VBA中可使用的全部元字符(序列).它相当于VBS程序员手册中的正则内容范围.但充实了更多在实践中会遇到的细节
    “元字符进阶篇”,讨论了元字符的应用环境以及对若干个常用元字符(序列)的深入辨析和应用探索.
    “原理篇”:正则表达式工作原理是最重要同时也是最难以掌握的知识.研究这个问题有时的确很枯燥,然而弄懂正则表达式的工作原理,才是真正理解正则的关键.正则工作原理可以让你根据任务编制出正确高效的正则表达式,也可以帮助你理解别人编写的正则表达式,另外也帮你分析”为什么是这个匹配结果?的真正原因,从而更精准地调较正则表达式.
    “技巧篇”:不要指望背诵单词和掌握语法就可以写出漂亮的文章.掌握正则的方法也是需要大量阅读与实践的,本篇提供了一些现实世界的实例,供你参考和探讨.望它能给你一些编制正则表达式的灵感.
目录
第一篇 基础篇
一、        正则表达式概论理解正则表达式
二、        正则表达式与VBA的交互正则表达式的实现
三、        正则元字符字符的表示法
四、        正则元字符数量的表示法
五、        正则元字符位置的表示法
六、        正则元字符分组及控制表示法
第二篇 进阶篇
一、        元字符与字符集
二、        ^$的位置到底是哪里
三、        字符组内部元字符转义规则
四、        字符组与多选结构“|”
五、  否定环视与否定字符组
六、  顺序环视的多角度理解与应用
第三篇 原理篇
一、匹配的基本术语
二、匹配总原则
三、正则表达式匹配的基本过程
四、回溯
五、回溯的总结
六、回溯与效率
七、灾难回溯
第四篇 技巧篇
一、匹配具有多种形态结构的字符串
二、匹配特定位置上的字符串
三、匹配其内部由相似结构字符串构成的字符串
四、在一大段文本中,匹配一对特定字符串之间的字符串
五、匹配一对特殊字符界定的之间的字符串,但其内部包含两端的界定字符


点评

写得很详细,这里有几本正则书的介绍http://www.cnblogs.com/zxhoo/archive/2011/04/04/2005305.html  发表于 2014-6-11 20:33

评分

89

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-10 23:19 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-11 22:26 编辑


第一篇 基础篇

一、正则表达式概论----理解正则表达式

      文本处理是一项常见的工作任务,比如:在一段文本或数据中,查找、替换、提取、验证、分离和删除等特定字符或字符串。在几乎所有文本编辑器中(如word/excel/VBE等)都提供了字符串的查找/替换功能;在编程语言的世界里更是提供了丰富的字符处理函数和方法。VBA中有Find(查找某字符串)、Replace(用一字符串去替换文本中的另一字符串)、LIke(判断某字符串是否存在)等等。
     编程语言本身提供的字符处理函数或方法,具有用法简单、处理快速和使用便捷的特点。不过这些函数或方法也存在很大缺陷:它们通常都是对非常具体的字面文字进行操作,假如要处理某一类具有某些相似特征的字符或字符串,就显得力不从心了。举个例子,要求在一大段文本中,查找所有的符合规范的电子邮箱。如果用VBA本身提供的字符处理函数来处理,显然不是一件容易的事。可见,在现实的世界里对复杂动态文本的处理,仅靠编程语言本身是不够的。为此,人们找到了一种功能更为强大的文本处理解决方案----正则表达式方案。
     正则表达式是强大、便捷、高效的文本处理工具。利用它使用者可以描述和分析任何复杂的文本,配合编程语言或文本编辑器提供的支持,正则表达式能够查找、替换、提取、验证、添加、删除、分离和修整各种类型的文本和数据。当今主流编程语言(如:java/C#/C++/.net/php/pcre/perl等)几乎都提供了对正则表达式的支持;有些文本编辑器(如Dreamweaver)在编辑查找框中也可直接输入正则表达式,实现不限于字面文字的搜索与替换.VBA虽然只是对正则提供简单支持,但是它也可以完成一些用VBA函数或方法难以处理的文本处理任务。
(一)正则表达式方案处理文本的基本思路
      1、显然,无论进行何种文本处理操作,首先要在目标文本中找出指定的字符串,而要查找它们必须得描述出该字符串的特征。比如,你要验证用户输入的是否是一个正确的电子邮箱,肯定不可能去枚举世界上所有存在的电子邮箱,因而首先得依据电子邮箱规范,建立一个电子邮箱的模式,然后比照该模式到文本中去查找验证,从而判断目标文本中是否存在与模式相吻合的字符串(这个过程也称之匹配过程,查找到的结果叫匹配”)。一个简单的电子邮箱模式可以表示为:
^\S+@\S+$
    这个代码模式就是电子邮箱的正则表达式,所以正则表达式是一种可以在许多现代应用程序和编程语言中使用的特殊形式的代码模式。编制这样的代码模式,也就是编制正确高效的正则表达式,是我们学习和研究正则表达式的主要任务。
      2、如何将编制好的正则表达式应用于编程语言,实现我们真正的需要,这是学习和使用正则的第二个问题,在这一点上,不同的编程语言其实现方式是不一样的.庆幸的是,较之编制正则表达式,掌握它们是非常简单的事。我们会在本篇的第二章“正则与VBA的交互”中详细论述。
(二)正则表达式的基本组成单元—元字符(序列)
     从电子邮箱的正则表达式(^\S+@\S+$)可以看到,正则表达式是由一些特殊字符组成的。人们常常把这些组成正则表达式的特殊字符称之为元字符。元字符是正则表达式事先规定或约定的,用来表示字符、位置、数量和控制的专用符号。在组成正则表达式的元素中,有的是由两个或多个特殊字符组成一个单元,表示单一意义。如上面电子邮箱正则中,”\S”表示一个非不可见字符,我们可以称之为元字符序列.在正则表达式中也可以有字面字符,如邮箱正则的字符“@,在这时表示的是字面上”@”.所以从形式上观察,正则表达式是由元字符、元字符序列或字面字符组成的,用于描述字符或字符串特征的一个代码模式.正则表达式也可以仅由字面字符组成,正则ABC”.
     你是否有一种似曾相识的感觉?!这不是什么新鲜的想法.远古的DOS时代,前辈门就曾用*号代表任意多个字符,?号代表一个任意字符,那时称之为“通配符”;当下的VBA中Like函数的参数里有更多的特殊字符或结构,用来描述字符或字符串模式.不过,正则表达式里,那些特殊字符更多,语法规则更丰富,可以认为,它相当于是一门微型语言.
       接下来,本章会把所有的元字符(序列)分类展示给你,不是要你立马记住或掌握它,目的是让你有个概貌,避免在以后的学习中迷失方向.


评分

18

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-10 23:21 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-16 19:17 编辑

1.正则表达式规定了多种方法或符号用来表示世界各国使用的文字字符。如:
捕获10.PNG


下面列举了VBA中正则表示字符的所有元字符(序列),在以后的章节中会详细介绍.
(1)  常用不可打印字符:\n、\t、\f、\r、\v
(2)  八进制转义:\num    (num是一个八进制数)
(3)  十六进制转义:\xnum (num是一个十六进制数)
(4)  Unicode转义:\unum  (num是unicode代码点)
(5)  控制字符:\cchar       (char是A-Z之间的任意字母)
(6)  普通字符组:[a-z]和[^a-z]
(7)  几乎能匹配任何字符的元字符:英文句点
(8)  字符组缩略表示法:\w、\d、\s、\W、\D、\S

2.表示字符或字符串数量(连续出现的次数)的元字符:*、?、+、{n}、{n,m} 例:
捕获.PNG

3.表示位置的元字符(序列)^$\b\B(?=…)(?!...)例:
捕获8.PNG
4.在正则表达式中起分组、捕获和控制作用的元字符(序列)
(…)(?:…)\1…|…|…*?+???{num,num}?
:

捕获9.PNG
捕获.PNG

评分

13

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-10 23:42 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-12 08:13 编辑

(三)用正则处理文本的一个例子
     我们已经认识了几个简单的元字符(序列),并能用它们构建一些实用的正则表达式,那么,怎样把它们应用于VBA中呢?,下面我们用正则在VBA中来完成一个简单的任务:
     目标文本:”正则表达式其实很简单     “
     任务:删除目标文本中行尾空格.
    分析:
    1.\s可表示空格,+表示出现一个或多个字符,所以可用”\s+”表示连续多个空格.$表示一行的行尾,于是可用以下正则表达式描述行尾的若干空格:
    \s+$
    2.我们把上面的正则代码表达式作用于目标文本,查找与模式吻合的字符(串),并用空字符替换,从而达成实现删除空格任务。
    下面是完整的VBA代码:
Sub Test()
    Dim regx, S$, Strnew$
    S = "正则表达式其实很简单     "
    Set regx = CreateObject("vbscript.regexp")
    regx.Pattern = "\s+$"
    regx.Global = True
    Strnew = regx.Replace(S, "")
    MsgBox Strnew
End Sub
    这个简单的例子说明了正则实现的一般步骤:
1、        创建变量:这个例子中,变量regx是一个对象,S是字符串变量;Strnew也是字符串变量.
2、        把目标文本赋值给变量S
3、        创建一个正则对象regx
4、        设置正则对象regx的pattern属性,即把正则表达式以字符串形式赋值给pattern.
5、        设置正则regx对象的其它属性,例子中设置Global属性为真
6、        应用对象提供的方法,实现相应功能.例子中,利用regx对象的Replace方法实现替换.
7、        输出处理后的字符串.
    到这里,你已经完全了解了用正则处理文本的基本过程和思路,以及在VBA中使用正则的代码框架.以后的任务是全面掌握正则的所有元字符和它们的工作原理,另外还需要进一步了解正则对象的各种属性和方法.
    要提醒的是,”基础篇”的应用实例或许并不是解决该任务的最佳方案,也或许是一些看似很无聊的例子,但请不要忽视它们.正是透过这些简单的实例,揭示了概念的本质.


补充内容 (2014-6-20 19:04):
最近看了liucqa老师一个贴子,在处理"大字符串"时,即使可用VBA函数或方法处理,但不如用正则处理速度快.比如:用Split将用逗号连接的10万个数字字符串转化的为数组,如果用正则处理,只需要一半的时间.

补充内容 (2016-6-8 07:30):
本页例中的regx.Global=True语句,此时不是必须的,只是为了说明属性的应用.

评分

6

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 08:35 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-12 08:15 编辑

.正则与VBA的交互正则表达式的实现
      在继续学习正则元字符特性或编制自己的正则表达式时,常常需要对其测试.你可以用一些专门的正则测试工具(推荐RegxBuddy);也可以自己编制VBA代码进行测试。不过建议初学者,经常编写VBA代码进行测试,这样可以提高今后实际应用正则的能力。所以,在进一步学习正则元字符特性之前,我们先介绍正则与VBA的交互的相关知识。你可以快速阅读或越过本章内容,在以后具体应用时,再经常回头查阅。当然也可以用上一章学到的知识详细研究本章内容,在以后的学习中专注于正则表达式本身.
      用正则处理文本,是通过正则表达式与程序设计语言的交互来实现的。其交互方式在不同编程语言中分为三大类:
      一是集成式。Perl语言本身内建正则操作符,可以直接作用于正则表达式.操作符作用于正则表达式就像数学的+-号作用于数字一样.不需要构建正则对象。例如:任务是要把变量$text保存的文本中的空行替换为标签(<P>)。
正则表达式
^$         表示空行.
Perl语言中,可以用一句代码实现替换:$text=~ s/^$/<p>/g
      二是函数式处理。Java等语言,为正则处理提供了一些便捷函数,以节省工作量.用户不需要首先创建一个正则对象,而是用静态函数提的临时对象来完成正则处理,处理完后把临时对象抛弃. 正则表达式对于函数相当于一个参数, 这种方式的优点是随手可用,但不适宜在对时间要求很高的循环中使用.所以java也提供了下面讲到的面向对象的程序式处理.
     三是面向对象的程序式处理。这是大多数编程语言的正则处理方式。VBA平台采用的也是这种方式。面向对象的程序式处理方式,首先必须创建一个正则对象的实例,然后设置对象必要的属性,最后用对象的方法来完成指定的任务。(提示:不同编程语言的正则对象具有的属性和方法,其项目多少或功能强弱有所不同,所以,在VBA中使用正则如果发现没有某种其它语言的方法或属性,请不要感到困惑)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 08:38 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-14 21:03 编辑

      在上一章中,我们给出了一个用VBA删除行尾空格的正则处理例子,它代表了一般的代码框架模式,下面再看一看它的结构特点,并对每一部分的代码段进行剖析:
Sub test()
    Dim regx,S$,Strnew$                                       1.定义变量代码段
    S=”正则表达式其实很简单     “                   2.目标文本字串变量赋值代码段
    Set regx=createobject(“vbscript.regexp”)   3.创建正则对象代码段
    Regx.pattern=”\s+$”                                       4.设置正则对象的pattern属性代码段
    Regx.global=true                                              5.设置正则对象的其它属性代码段
    Strnew=regx.replace(s,””)                              6.应用正则对象方法代码段
    Msgbox strnew                                                 7.处理返回值代码段
End sub
1.定义变量代码段
      不必讲解了吧.
2.目标文本字符串赋值代码段
      目标文本,可能存在于文本文档、Word文档、HTML文档或Excel文档等文档之中。正则对象并不能直接作用于这些文档,只能作用于它们的副本。所以用VBA正则处理这些文档,必须首先从这些文档中读出字符串并赋值于字符变量。如果任务是修改文本,那么,你可能需要编写额外的代码将修改后的文本字符串重新写回原文档中.
      例:假如目标文本存在于当前表格A1单元格中.可使用下列代码赋值于字符变量S
       S=Activesheet.[a1]
     目标文本也可能分别存在于一个数组中,那么,你可能需要通过循环逐一处理.
     你也可以直接以输入的方式,赋值给字符变量,就像上面的例子.这时特别注意的是:半角双引号是VBA语言中的保留字符,如果目标文本中本身含有半角双引号,则必须转义,转义方法是:用重复的双引号表示一个双引号.
     例:目标文本为:”我们用汗牛充栋学富五车形容一个人读的书、拥有的知识多。”.
     将之赋值给S的代码为:
      S=”我们用””汗牛充栋””””学富五车””形容一个人读的书、拥有的知识多。

评分

3

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 08:42 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 liu-aguang 于 2014-6-17 18:33 编辑

     3.创建正则对象代码段
     文本处理的各种操作,都是通过操作正则对象来完成的.所以必须创建正则对象.VBA创建或声明正则对象有两方式:早期绑定和后期绑定,你可以根据自己喜好选择其一:
     早期绑定: (需要在VBE--工具--引用中勾选Microsoft VBScript Regular Expressions 5.5)
     Dim regx AS RegExp
     Set regx=new regexp (或dim regx as new regexp)
    后期绑定:
            Set regex = CreateObject("VBScript.RegExp")
     利用上述两种方式创建或声明正则对象,实际上是调用Microsoft VBScript脚本的regexp正则对象。Microssoft VBScript脚本,包含在Internet Eeplorer 5.5以及之后的版本中.该脚本中的正则表达式执行的是ECMA-262第3版所规定的标准,与JavaScript脚本中的正则执行标准是相同的。1.0版只是为了向后兼容的目的,功能很弱。
      (提示:在VBA中也可调用JavaScript(Jscript)或ruby等脚本中的正则对象,Jscript的元字符及特性与VBscript是一样的,但它的方法或属性要多一点,或者说对正则的支持更强一些.ruby本人不懂,不太了解它的元字符集,只是看到论坛上有人使用)
     4.设置对象的pattern属性
    语法:object.pattern=”正则表达式”
    Object是一个正则对象.
   把自己编制的正则表达式,以字符串的形式赋值给pattern属性。注意要用英文双引号将正则表达式包围起来.
   并且要在对象名与属性名之间用英文点号隔开.属性名pattern是保留字,固定不变的,对象名是用户自定义的。
   接下来的两个步骤是对正则对象的操作,通过设置或使用正则对象的属性和方法,以实现对文本的处理.正则对象的属性和方法不多,列表于下:


捕获1.PNG

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 08:53 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-11 10:22 编辑

5.设置对象的其它属性
      除Pattern属性外,正则对象还有其它三个属性,其属性值有False和True,默认值都是False。如果要使用默认属性,可以不用显示设置;如果要改变默认属性,则需要显示设置:
      Global               当属性值为False时,只要在目标文本中,找到一个匹配时,即停止搜索。如果想要找出目标文本中的所有匹配,那么需要把它的属性值设置为True。
      IgnoreCase        设置对英文字母大小写是否敏感。默认值False, 对大小写敏感;设置为True,忽略大小写.
      MultiLine            它影响且只影响元字符^和$的意义。值为False,无论目标文本是多少行,整个文本中则只有一个开始位置,^表示第一行的开始;只有一个行结束位置,$表示文本末尾位置。值为True,那么,^和$分别表示每一行的行首和行尾位置。
      下面来完成一个简单的任务,再具体认识各属性的使用方法:
      有一两行的文本:
      Aaa
      Bbb
      任务要求:
      1.在文本开始和结束处,分别插入一个”@”符号;
      2.在文本每行的开始和行尾分别插入”@”符号。
      正则表达式:
      ^|$                表示匹配行开始或结束位置
      任务1代码:
Sub test1()
    Dim reg, s$
    s = "Aaa" & vbLf & "bbb"   '这里用vblf 表示行之间的换行符
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^|$"
    reg.Global = True
    s = reg.Replace(s, "@")
    MsgBox s
End Sub
讨论:
        Msgbox 最后显示的结果为:
@Aaa
Bbb@
      代码中修改了global的默认属性值,设置为true;目的是保证能找到并替换全部的开始或结束位置。如果保持默认属性,则只会在开始处插入一个@号。
      正则对象Reg的其它两个属性保持为默认。因为本任务无关乎字母大小问题,所以IgnoreCase属性无需要设置为Ture(当然如果设置为true,对最后结果也无影响);由于Mutiline属性保持默认,其值为False,所以整个文本只有一个开始位置和一个结束位置。
       代码中使用了对象reg的replace方法,它的作用是,将在目标文本中找到的匹配(开始和结束位置)替换为”@”字符,在这里实际上是插入。然后把修改后的文本返回,重新赋值给字符变量S。
      任务2代码:
Sub test2()
    Dim reg, s$
    s = "Aaa" & vbLf & "bbb"
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^|$"
    reg.Global = True
    reg.MultiLine = True
    s = reg.Replace(s, "@")
    MsgBox s
End Sub
     讨论:
      任务2代码与任务1代码唯一区别是修改了mutiline默认属性,设置为True。这就意为着,该文本的每一行都存在一个开始位置和结束位置。所以Msgbox最后显示的结果为:
@Aaa@
@Baa@

评分

9

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 09:00 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 liu-aguang 于 2014-6-15 23:05 编辑

      6.应用对象的方法代码段
      VBScirpt正则对象的方法共有三个:你可以根据任务要求选择使用一个或多个方法.
      (1)TEST方法
      语法:Object.Test(string)
      Test方法只是简单测试目标文本中,是否包含正则表达式所描述的字符串。如果存在,则返回True,否则返回False。
      例:用代码检测用户的输入是否是一个电子邮箱。
Sub ChkEmail()
    Dim reg, s$
    s = InputBox("请输入一个电子邮箱:")
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^\S+@\S+$"
    If reg.Test(s) Then
        MsgBox "你输入的电子邮箱格式正确:  " & s
    Else
        MsgBox "你输入的电子邮箱格式不正确!"
    End If
End Sub
     讨论:
     代码从用户那里获得字符串,然后赋值与字符变量S。验证邮箱的正则表达式非常简略,元字符序列"\S"表示不是空格的任意一个字符,后面紧跟一个+号表示一个以上字符。这个表达式事实上只验证了用户的输入里,在字符串之间是否有一个@符号。它甚至认为”0@中”都是正确的。下面给出一个更为严格的电子邮箱正则表达式:“^[\w.-]+@[\w.-]+$”当然要严格按电子邮箱规范写出正则表达式,可能就十分复杂,由于我们刚刚接触正则,就不在详细讨论了。
      这里要关注的是,test方法的语法,在方法与正则对象之间也是用英文点号隔开,作为参数,目标字符串用英文括号包围。在这个例子中,如果Test返回的是true,表示目标文本S中找到了正则模式的匹配。则显示正确结果,否则显示错误提示。
     (2)Replace方法
     替换在目标文本中用正则表达式查找到的字符串。
     前面例子中语句体现其语法:s=reg.replace(s,”@”)
     后面括号中的参数S,代表前面代码中设置的目标文本字符串.也就是正则表达式将要作用的目标文本.”@”是用来替换的字符串参数.前面的s是Replace方法返回的结果,它是目标文本被替换后的一个副本. 如果没有找到匹配的文本,将返回与目标文本一样的一个副本.
    下面继续讨论Replace方法的第二个参数:
     例子中"@"是一个字面字符,要用一对双引号包围起来。第二个参数还可以是变量、表达式。如果是变量或函数则不能用双引号包围,这一点和VBA代码规则是一致的.
     上一章我们知道了如果在正则表达式中使用了元字符序列()括号,那么被圆括号包围的内容会存储在特殊变量$1中。在有些编程语言中,可以直接在正则代码外使用$1变量,而VBScript中可以并只可以在Replace方法中,作为第二参数来调用。
     例子:在目标文本中的数字数据后增加上单位:KG
     目标文本:“他们体重分别是:张三56,李四49,王五60。”
     结果文本要求: “他们体重分别是:张三56KG,李四49KG,王五60KG。”
     正则表达式:(\d+)
     替换文本:        $1KG
Sub testrep()
    Dim reg, s$
    s = "他们体重分别是:张三56,李四49,王五60。"
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "(\d+)"
    reg.Global = True
    s = reg.Replace(s, "$1KG")
    MsgBox s
End Sub
    讨论:
     用正则表达式(\d+),Replace方法将在目标文本中找到三个匹配,其值分别是56,49,60。并分别把每个值保存于每一个匹配对象的$1变量中。
     替换文本:”$1KG”表示每一个匹配中的$1变量值与字面字符”KG”联结,组成新字符串,用来替换找到的数据字符串。
     $1是一个很特殊的变量,它由美元符号与数字编号组成.如果正则表达式中有两个或两个以上的捕获性括号,则按照左括号”(“从左到右顺序编号,自动命名为$1,$2,$3….,共支持99组.要指出的是,如果找到多个匹配,那么每个匹配中的特殊变量名是一样的.这个例中共有三个匹配其值分别为56,49,60.第一个匹配的变量名是$1,第二和第三个匹配的变量名仍然是$1,只是每个匹配中$1保存的值是不一样的.
    最后一点,作为替换参数的一部分,$1变量与字面字符共同组成替换字符串时,它们之间不用 & 符号连接,并且 $1 必须放在一个双引号中;而如果是用其它普通变量与字面字符联结组成替换文本时,则必须用 & 符号联接,这一点与VBA代码使用方法相同.
     在Replace方法的第二个参数中,还有几个很少用到的特殊变量:
    捕获3.PNG
   一个较特殊的状况,如果上面所述的特殊变量符不是作为变量使用,而是要以它们作为字面字符的替换文本,那么就要对它们转义,方法是在它们之前加一个美元符号$.$$&

评分

6

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-11 09:12 | 显示全部楼层
本帖最后由 liu-aguang 于 2014-6-11 18:46 编辑

     (3)Execute方法
     在目标文本中执行正则表达式搜索。
     语法:set mh=object.execute(s)
     其中mh是用户自定的对象变量,S是值为目标文本的字符串变量.object是正则对象.
     Execute方法会作用于目标文本(S),并返回一个叫作"Matches"的集合对象,在这里是mh.在这个集合对象中包含它找到的所有叫做"Match"的成功匹配对象(Matches集合最多可容纳65536个匹配对象). 如果未找到匹配,Execute 将返回空的 Matches 集合。Matches集合有两个只读属性:索引(Item)和成功匹配的次数(Count).
     Matches集合中包含的匹配对象Match有四个只读属性:Value/firstindex/length/submatches
     值得一提的是,Submatches属性是一个集合属性,集合中元素个数与正则表达式中使用的捕获性括号的个数相同,每个元素的值就是括号包围起来的内容.它也有两个只读属性:item和Count
    下面用树状图来表示它们之间的关系,并在接下来的内容中继续逐一讨论它们的用法.
捕获4.PNG

评分

11

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-1 07:54 , Processed in 0.055183 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表