欢迎大家来到IT世界,在知识的湖畔探索吧!
正则表达式的基本概念及用途了解之后,我们就来学习下具体的语法,先以一个简单的例子来讲解。
基础语法:
比如,A1单元格中有一串字符:aabbccddaabbcc,我们要把其中的a找到,然后替换成o。
代码如下:
Sub test()
Dim regx As Object, t$, k, s, n
t = “aabbccddaabbcc”
Set regx = CreateObject(“vbscript.regexp”)’引用正则表达式
regx.Global = True ‘查找范围,true为全部查找,false只查找第一个,默认是false。
regx.Pattern = “a” ‘引号里书写正则表达式,这里要查找a,就直接写个a
Set k = regx.Execute(t) ‘Execute方法的结果为一个对象,返回匹配成功的结果。
For Each s In k ‘通过循环K可以得到该对象中的每个元素。
MsgBox s
Next
n = regx.Replace(t, “o”) ‘将匹配成功的结果做替换
MsgBox n
End Sub
上面的代码后面都有注释,首先要引用正则表达式,前期绑定也可以,直接创建也可以,然后要对regexp的两个属性做出指定。
Global属性,指查找范围,true为全部查找,false只查找第一个,如果上面案例中其属性改为false,那么只要该字符串中查找第一个a。
Pattern属性,指的是正则表达式。
下面讲下正则表达式的两个方法:
Execute方法,返回匹配成功的结果,是一个对象,通过for each 可以循环其中的值。
Replace方法,将匹配的结果做替换,regx.Replace(t, “o”),t为原字符串,第二个参数为要替换为的结果。
普通字符的替换:
了解了基础的语法之后,我们来看下如何用正则对普通的字符做替换。
如上例中,把A列部门中的门字去掉。
思路:
对A列部门循环,循环出来的值用正则表达式匹配门字,并把匹配的结果替换成空。
代码如下:
Sub test1()
Dim regx As Object, rng1 As Range
Set regx = CreateObject(“vbscript.regexp”)
With regx
.Global = True
.Pattern = “门”
End With
For Each rng1 In Range(“a2:a11”)
rng1(1, 2).Value = regx.Replace(rng1.Value, “”)
Next
End Sub
这里注意regexp的两个属性可以用with语法来书写,这样显得简洁明了。当然这节课我们只是对正则表达的基础语法做了个了解,正则表达是真正的魅力在Pattern = “……”,引号中的表达式,后面的课程中我们会体会到他的强大之处。
转自:米宏Office
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://itzsg.com/65343.html